to cijev :v :d :kut ;cijev 100 500 30 make "P pos rt 90 fd :v*4 setpos :P pu lt 90 fd :v ;crtanje cijevi make "P1 pos rt 90 pd fd :v*4 pu setpos :P pd lt 90 ;crtanje cijevi rt :kut make "duljina 0 while [:d>=:duljina][while [ycor<:v][ fd 1 make "duljina :duljina+1 if :duljina =:d [stop]] rt 180-2*:kut pr :duljina while [ycor>0][fd 1 make "duljina :duljina+1 if :duljina =:d [stop]] lt 180-2*:kut pr :duljina] ;crtanje gornjeg i donjeg dijela hitca end Make "duljina 250 Make "p [0 0] Make "p1 [0 100]