to aaa
;MSWLogo
;Zgodna demonstracija 3D mogucnosti
;Pokrenuti s:
;-------------------
;baby.blurp 1000 10
;-------------------
end

to baby :podaci
if emptyp :podaci [stop]
kriva (first first :podaci) (first bf first :podaci) (last first :podaci)
lt first bf :podaci
baby bf bf :podaci
end

to baby.blurp :opseg :koliko
perspective
setturtle -1 setposxyz [-3000 400 600]
setturtle 1 ht
repeat :koliko [pu up random 360 lr random 360 rt random 360 fd random :opseg ~
			pd polystart blurp polyend pu home]
polyview
end

to blurp
localmake "tocka pos
baby [[50 0.9 0] 0 [100 0.5 0] 90 ~
		[100 -1 1] -90 [30 -6 1] -90 ~
		[100 -1.5 1] -180 [100 -0.5 1] -20 [80 -0.5 1] -20 [100 -1 1] -50 ~
		[50 -2 1] -5 [250 -0.2 1] 10 [20 -6 1] -140]
setpos :tocka
end

to kriva :d :smjer :nazad
if :d<1 [rt product :smjer 3 stop]
fd 1 rt product :smjer 1
kriva :d-1 :smjer :nazad
if :nazad=0 [bk 1 lt product :smjer 1]
end