3D－GRAPESスクリプト 最初の一歩 - tcp-ip.or.jp

1 Y=xe 3D-GRAPES 3D-GRAPES GRAPES GRAPES GRAPES GRAPES 3D-GRAPES 3D-GRAPES GRAPES ~tomodak/grapes/ (1) 3D-GRAPES (2)GPS 2009 8 9 GPS (3) 2008 3D-GRAPES 2010 y=xe y xyzO(1) f( )x=12xe f( )x P ()0 s f( )s z y y x -2(s(2 Q 01P ()0 0 1 pt24 P z ()0 0 1 -2(s(2 // // t:=0 ClrAImgPause( )for i:=1 to 48drawSetAImgwait(100)next(2) GPS P0M8 cos0 1ps24-2 M8 sin0 1ps241+2 0Q0M5 cos0 1pt24-2 M5 sin0 1pt241- 2 0 t R02cos0 1pu241+2 2sin0 1pu24 0 u A()-2 2 5B(-2 )-1 5C()2 0 5 D()-2 2 0E(-2 )- 1 0F()2 0 0.))))

2 // s:=0 ClrAImgfor i:=1 to 48drawwait(50)next// t:=0for i:=1 to 48drawwait(50)next// xyzO(3) 2008 z A 01acos0 1pt24 asin0 1pt24 0B 01A ()0 0 1 2p3C 01A ()0 0 1 4p3D 01acos0 1+pt24p asin0 1+pt24p aM2E 01D ()0 0 1 2p3F 01D ()0 0 1 4p3 L1 ABCL2 DEFL3 AFEL4 BDFL5 CDE // t:=0 ClrAImg// t:=0for t:=1 to 48drawwait(50)next