fig1
to fig1
setlabelfont [[Times New Roman] -18 0 0 400 0 0 0 0 3 2 1 18]
qcecom 100
spostamento -160
qcecom 50
spostamento -160
qcecom 25
end
to spostamento :distanza
pu
right 90
fd :distanza
left 90
pd
end
to qcecom :q
make "h heading
make "posizione pos
qcerchio :q
pu
setheading :h
setpos :posizion
pd
rt 90
make "eti sentence "QCERCHIO :q
label :eti
lt 90
ht
end
to qcerchio :arco
repeat 90 [fd :arco/90 rt 1]
end
_________
complementi:
setactivearea [-340 -50 160 90] attiva gifsave "qcerchio
to attiva
;disegna un rettangolo corrispondente all'area attiva
;serve per vedere l'area attiva per poi salvare l'immagine
make "xl item 1 activearea
make "yl (item 2 activearea)+1
make "xh (item 3 activearea)-1
make "yh item 4 activearea
pu home
fd :yh rt 90 pd
fd :xh rt 90
fd :yh-:yl rt 90
fd :xh-:xl rt 90
fd -:yl+:yh rt 90
fd -:xl
pu lt 90 bk :yh pd
end