Grapes/3D 1.21 [Don't Edit] ---------- UserFunction 3 1 2 3 1 1 1 Y+rot(YX,YZ,w) arg(ZX&ZW,ZY&ZW) f(X,Y,Z,180+s) ---------- Point 22 0 0 0 0 0 0 0 1 2 3 5 6 7 8 0 0 0 0 0 0 0 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 P 0 0 1 Q 0 0 1 R 0 0 1 S 0 0 1 T 0 0 1 U 0 0 1 V 0 0 1 A 1 11 1 A (5,0,0) s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 0 0 0 1 1 0 1 0 1 1 0 0 0 B 1 1 1 B (5.5,0.866025403784438,0) s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 0 0 0 1 1 0 1 0 1 1 0 0 0 C 1 1 1 C (6,0,0) s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 0 0 0 1 1 0 1 0 1 1 0 0 0 D 1 1 1 D h(A,C,B) s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 0 0 0 1 1 0 1 0 1 1 0 0 0 E 1 1 1 E h(B,C,D) s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 0 0 0 1 1 0 1 0 1 1 0 0 0 F 1 1 1 F h(B,A,C) s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 0 0 0 1 1 0 1 0 1 1 0 0 0 G 1 1 1 G h(C,D,B) s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 0 0 0 1 1 0 1 0 1 1 0 0 0 H 0 0 1 I 0 0 1 J 0 0 1 K 0 0 1 L 0 0 1 M 0 0 1 N 0 0 1 O 1 0 3 O (0,0,0) s 0.1 t 0.1 0 0 0 16777215 16711680 16711680 1 0 0 1 1 0 1 0 1 1 0 0 0 ---------- Segments 1 6 1 1 0 0 1 1 16711680 16777215 2 1 1 16711680 16777215 1 -1 8 13 10 9 11 14 9 8 10 11 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ---------- paramater 14 180 0 1 1 0.1 1 0 99.569518 0 1 1 0.1 1 0 -135 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 10 0 1 1 1 1 2 1 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 370 0 1 1 0.1 1 0 5 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 0 0 1 1 0.005 1 1 0 0 1 1 1 1 0 360 0 1 1 1 1 0 -12 0 1 1 5 1 0 1 1 64 ---------- KakuMode LogMode AreaMode 2 2 1 0 0 1 DrawMode SegmentShowSync 1 0 AfterImageColorNo, CanAImg 0 1 ---------- ScaleS Vlow,VHigh -3.35160244703052 6.64839755296948 -2.47987782197481 7.52012217802519 MeshMode , Axiswidth , Sfontsize , Axismode , AxesColor 2 4 32 0 2 4 1 ViewPoint -8 -135 7.5 38 0 0 0 1 0 ---------- ViewPosition 5 30 20 25 30 -70 20 25 30 60 20 25 30 -90 90 25 30 -90 0 25 30 ---------- Panel Position 0 0 502 0 0 112 0 0 0 1 1 0 1 0 ---------- MEMO SECTION Style, Color, BGcolor , Size, PositionX, positionY 3 1 0 12 119 手動時のパラメータ:{s} アニメの速さ:{k} #hidescript//draws #on s,k change #if s <= 0 then s := 0 #if s >= a then s := a #A:=(0,0,0) #B:=(0.5,Sqrt(3)/2,0) #C:=(1,0,0) #calc #ClrAImgData #for q:=1 to 5 #X:=C #Y:=D #Z:=E #A:=X #B:=Y #C:=Z #calc #next q #refresh #//初期化 #Refresh #a := 180 #s := 0 # SetViewPoint(-8,-135,7.5,38) #Call(draws) #//【自動1】 #CALL(初期化) #for s:=0 to 41.8 step 0.05*k #Call(draws) #next #s:= 41.8 #Call(draws) #wait(1000) #for s:=41.8 to 70.5 step 0.05*k #Call(draws) #next #s:= 70.5 #Call(draws) #wait(1000) #for s:=70.5 to 109.5 step 0.05*k #Call(draws) #next #s:= 109.5 #Call(draws) #wait(1000) #for s:=109.5 to 138.2 step 0.05*k #Call(draws) #next #s:= 138.2 #Call(draws) #wait(1000) #for s:=138.2 to 180 step 0.05*k #Call(draws) #next #s:= 180 #Call(draws) #wait(1000) #for s:=180 to 0 step -0.1*k #Call(draws) #next #//【自動2】 #CALL(初期化) #v:=viewH #for s:=0 to 180 step 0.05*k #u:=v-s # SetViewPoint(u,viewV,viewD,viewA) #Call(draws) #next #wait(1000) #for s:=180 to 0 step -0.1*k #u:=v+s # SetViewPoint(u,viewV,viewD,viewA) #Call(draws) #next #//例1「正20面体」 #s := 41.8 #Call(draws) #//例2「正8面体」 #s := 70.5 #Call(draws) #//例3「正4面体」 #s := 109.5 #Call(draws) #//例4「星形」 #s := 138.2 #Call(draws) #//【横回転】 #v:=viewH #for u:=v to v+360 step 0.5*k # SetViewPoint(u,viewV,viewD,viewA) #Call(draws) #next u #//【縦回転】 #v:=viewV #for u:=v to v+360 step 0.5*k # SetViewPoint(viewH,u,viewD,viewA) #Call(draws) #next u #//【斜回転】 #v:=viewH #c:=viewV #for u:=0 to 360 step 0.5*k # SetViewPoint(v+u,c+u,viewD,viewA) #Call(draws) #next u ---------- 11 4 24 1 4 58 1 4 140 1 4 24 0 4 24 0 4 24 0 4 24 0 4 24 0 4 24 0 4 24 0 4 24 0 ---------- Table SECTION RowNo, ColumnNo 0 10 Table Data ---------- SimpleMemo SECTION 0 ----------