作業五：Time,Foever,Refresh應用

圖：


程式碼：
size 200 200 paper 20 forever { paper 100 set s4 //----------------------------上 field 50 0 25 s4 10 field 100 0 75 s4 10 field 150 0 125 s4 10 field 200 0 175 s4 10 field 25 100 0 s4 10 field 75 100 50 s4 10 field 125 100 100 s4 10 field 175 100 150 s4 10 //----------------------------下 field 25 200 0 (s4+25) 10 field 75 200 50 (s4+25) 10 field 125 200 100 (s4+25) 10 field 175 200 150 (s4+25) 10 field 50 120 25 s4 10 field 100 120 75 s4 10 field 150 120 125 s4 10 field 200 120 175 s4 10 //----------------------------左 field 100 0 (s4+1) 25 10 field 100 50 (s4+1) 75 10 field 100 100 (s4+1) 125 10 field 100 175 (s4+1) 150 10 field 100 25 (s4*2) 50 10 field 100 75 (s4*2) 100 10 field 100 125 (s4*2) 150 10 field 100 175 (s4*2) 200 10 //----------------------------右 field 0 25 s4 50 10 field 0 75 s4 100 10 field 0 125 s4 150 10 field 0 175 s4 200 10 field 100 0 s4 25 10 field 100 50 s4 75 10 field 100 100 s4 125 10 field 100 150 s4 175 10 }

影片：