mac5

listati per sintassi varia grafica

grafo1
&127;ese:-
add_pic(fillmode(xor,waves(fillbox(10,10,80,100)))),
add_pic(pointer((-100,-50),(0,80))),
add_pic(textline(-20,20,('testo'))),
add_pic(textline('Geneva',12,Bold,-50,-50,('testo scritto'))),
add_pic(textbox('Chicago',12,Bold,30,30,280,60,0,('testo scritto'))).

/* grafo4 */

ese:-
/* penfg(colore,pittura) ....penbg(colore,pittura*/
add_pic(penfg(red,horiz(fillbox(200,10,80,100)))),
add_pic(penfg(green,diamonds(box(10,10,80,100)))),
add_pic(penfg(red,diag(fillbox(10,130,80,100)))),
add_pic(penbg(blue,solid(box(10,250,80,100)))),
add_pic(penfg(red,waves(pointer((-30,-30),(0,100))))).

/* grafo6*/

ese:-
add_pic(thick(penpattern(brick,diamonds(fillcircle(0,0,70))))).

/* grafo8*/

ese:-
add_pic(thick(penpattern(brick,diamonds(fillcircle(0,0,70))))),
add_pic(fillmode(erase,stripesthick(fillcircle(0,80,70)))),
add_pic(penmode(xor,fillmode(nor,thick(penpattern(brick,diamonds(
fillcircle(40,40,70))))))).

/* grafo10*/

ese:-
add_pic(penfg(blue,penbg(cyan,fillfg(red,fillbg(yellow,
penpattern(horiz,fillpattern(diag,thick(filloval(0,0,40,80))))))))).

/* grafo11*/

ese:-
gmode('7 Graphic Window',quickdraw),
add_pic(pointer((-100,-100),(100,100))).

/* grafo12*/

ese:-
gmode('7 Graphic Window',static),
add_pic(pointer((-100,-100),(100,100))).

/* grafo14 */

ese:-
/* gzoom(finestra,on oppure off o variabile) */

gzoom('7 Graphic Window',X),
add_pic(or,box(40,40,40,40)).

/* grafo15 */

ese:-

/* zoom..............zoom_pic()  e comandi */
/* click....Shift-click.....Option-click..Command-click */
/* pop_tool......pop_tool_pic()  */

/* giustificazione sinistra -1  destra 0  centro 1 */
/* face con numeri 0,1,2,3 es.Bold=1 */
gzoom('7 Graphic Window',off),
add_pic(textline(-50,-50,'testo')),
add_pic(textbox(100,-100,40,200,-1,'testo da scrivere entro blocco')),
add_pic(textbox('Geneva',12,1,-20,20,40,120,1,
'testo scritto DENTRO blocco ',on)),
add_pic(textline('Chicago',14,5,-80,-80,'scrivere',on)).