TO AAA; 屋身 REPEAT 2 [ FD 100 RT 90 FD 200 RT 90 ]END
TO BBB; 屋頂RT 30 REPEAT 3 [ FD 100 RT 120 ] LT 30END
TO CCC; 窗戶REPEAT 4 [ REPEAT 4 [ FD 20 RT 90 ] RT 90]END
TO DDD; 門REPEAT 2 [ FD 75 RT 90 FD 60 RT 90 ]END
TO EEE; 門把REPEAT 180 [ PU FD 4 PD FD 1 PU BK 5 PD RT 2 ]END
TO MAIN; 房屋CSAAASETPOS [0 100]BBB SETPOS [100 100]BBB PUSETPOS [35 70]PDCCCPUSETPOS [165 70]PD CCCPUSETPOS [80 35]PDEEEPUSETPOS [70 2]PDDDDSETPOS [70 0]DDDEND
to cakerepeat 2[fd 50 rt 90 fd 100 rt 90]lt 90 fd 50 lt 90repeat 2[fd 50 lt 90 fd 200 lt 90]pu ;將畫筆收起來fd 5 rt 90 bk 70 ;將小海龜移動到大蛋糕裡面setfc [255 000 000] ;設定裡面顏色為紅色fill ;填入顏色rt 90 fd 30 ;移動小海龜到小蛋糕裡面setfc [255 000 255] ;設定裡面顏色為粉紅色fill ;填入顏色end
(star 2 50) (star 3 50)
to star :n :s if :n=0 [stop]repeat 6[fd :s lt 150 star :n-1 :s*0.4 lt 60 fd :s lt 90]end