be conetest t0=timefine clearScreen hideTurtle ; perspective orthographic disableDepthTest disableLighting ; disableLineSmooth setUpdateGraph false setPenSize [0 0] setPolygonMode 1 PenUp be mandala center n size dangle local [angle] angle=0 be rotate angle=angle+dangle end be draw home setPosXYZ center spinx 45 spinz 45+angle setPenColor HSBA size 1 1 1 repeat n [ (cylinder size size/sqrt 2 0 0 360 sqrt 2 n) spinz 360/n ] end end m=(List mandala [-207 0 0] 12 200 1 mandala [280 0 0] 18 300 2/3 mandala [0 100 0] 8 50 3 mandala [0 0 0] 6 100 -2 ) singleshot=Name? "framenr i=0 if singleshot [i=10*framenr] fps=0 while [not Key?] [ t0=timefine i=i+1 clearScreen foreach m [ ?'rotate ] m.3'center=(List 0 100+20*(abs sin 3*i) 0) foreach m [ ?'draw ] setPenColor "black Label (se fps "fps) updateGraph t=timefine fps=int 1/(t-t0) if singleshot [break] ] setPolygonMode 2 end