21 lines
649 B
Smalltalk
21 lines
649 B
Smalltalk
|
accessing
|
||
|
|
externalWordCloud
|
||
|
|
|
||
|
|
| text outputFile |
|
||
|
|
outputFile := (self folder / 'nube.png')fullName.
|
||
|
|
text := (self folder / 'texto.txt')fullName.
|
||
|
|
OSSUnixSubprocess new
|
||
|
|
command: 'wordcloud_cli';
|
||
|
|
arguments: { '--text' . text .
|
||
|
|
'--imagefile' . outputFile .
|
||
|
|
'--color' . '#5B83DE' .
|
||
|
|
'--width' . '1153' .
|
||
|
|
'--height' . '357' .
|
||
|
|
'--background' . 'white' .
|
||
|
|
'--mode' . 'RGBA' .
|
||
|
|
'--stopwords' . 'stopwords-es.txt' .
|
||
|
|
'--mask' . '../commons/nube-mascara.jpg'};
|
||
|
|
workingDirectory: self folder fullName;
|
||
|
|
redirectStdout;
|
||
|
|
redirectStderr;
|
||
|
|
runAndWaitOnExitDo: [ :process :outString | ^ outputFile asFileReference ]
|