to poli :x  :y  :z ; quanti lati, quanto lunghi, quanta deviazione
repeat :x [ fd :y  rt :z ]
end

to post_scroll 
cs
poli :n 100 :ang
end

to v
windowcreate "main "mywindow "angolo_deviazione 0 0 500 30 []
scrollbarcreate "mywindow "myscroll 10 5 480 30 [  make "ang scrollbarget "myscroll   post_scroll  ]
scrollbarset "myscroll 0 360 60

windowcreate "main "wdw_n_lati "numero_lati 0 30 200 30 []
scrollbarcreate "wdw_n_lati "scroll_n_lati 15 5 150 20 [ make "n scrollbarget "scroll_n_lati post_scroll  ]
scrollbarset "scroll_n_lati 1 36 3

;<try moving scrollbar and notice what happens  the turtle>
;windowdelete "mywindow  windowdelete "wdw_n_lati
end

Make "startup [v]