Grapes/3D 1.21 [Don't Edit] ---------- UserFunction 0 ---------- Point 22 1 3 0 4 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 P 6 0 1 P rot((-b,0,0)+rot(aroll(Pis,0),(1,0,0),cPi/180),(0,0,1),v) -1 1 s 0.02 t 0.1 0 0 0 16777215 16711680 16711680 1 0 1 1 1 0 3 0 3 1 0 0 0 Q 7 0 1 Q rot(P,(0,0,1),Pit) 0 p s 0.05 0 q t 0.05 0 0 1 16777215 16711680 16777152 0 0 0 1 1 0 3 0 1 1 0 0 0 R 0 0 1 S 7 0 1 S rot(T,(0,0,1),Pit) 0 q s 0.05 0 p t 0.05 0 0 1 16777215 52992 36608 1 0 0 1 1 0 3 0 1 1 0 0 0 T 6 0 1 T rot((a,0,0)+rot(broll(Pis,0),(1,0,0),90Pi/180),(0,0,1),u) -1 1 s 0.05 t 0.1 0 0 0 16777215 36608 36608 0 0 1 1 1 0 3 0 2 1 0 0 0 U 0 0 1 V 0 0 1 A 0 0 1 B 0 0 1 C 0 0 1 D 0 0 1 E 0 0 1 F 0 0 1 G 0 0 1 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 3 0 1 1 0 0 0 ---------- Segments 0 ---------- paramater 14 6 0 1 1 0.1 1 1 3 0 1 1 0.1 1 2 30 0 1 1 1 1 3 400 0 1 1 0.1 1 0 20 0 1 1 1 1 10 1 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 2 0 1 1 1 0 4 2.2 0 1 1 0.1 0 5 40 0 1 1 0.1 1 0 2 0 1 1 0.1 0 6 0.9 0 1 1 0.1 0 7 0 0 1 1 0.196349540849362 0 8 -59 0 1 1 0.196349540849362 0 9 1 1 80 ---------- KakuMode LogMode AreaMode 1 2 1 0 0 1 DrawMode SegmentShowSync 1 0 AfterImageColorNo, CanAImg 2 1 ---------- ScaleS Vlow,VHigh -4.97767857142857 5.02232142857143 -5.35714285714286 4.64285714285715 MeshMode , Axiswidth , Sfontsize , Axismode 1 2 12 0 1 1 ViewPoint 120 40 50 25 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 0 445 0 0 7000 0 0 0 1 0 1 0 ---------- MEMO SECTION Style, Color, BGcolor , Size, PositionX, positionY 3 1 0 16 50 [自動計算]を押すと {b}=!{b},{c}=!{c} {b}と{c}から、 {a}を決定します。 {a}=!{a} アニメスピード {k>=1} #//[自動計算] #a:=b/sin(Pic/180) #Calc #InvShowObj(P,Q,R,S,T) #Wait(100) #InvShowObj(P,Q,R,S,T) #Draw #HideScript #on a,b,c,p,q,v Change #Calc #Draw #//横回転 #d:=120 #for d:=120 to 120+720 step 0.1*k #SetViewPoint(d,viewV,viewD,viewA) #Draw #next #//縦回転 #r:=viewV #for d:=r to r+360 step 0.1*k #SetViewPoint(viewH,d,viewD,viewA) #Draw #next #//ZOOM-(In) #for d:=0 to 100 step 0.1*k #SetViewPoint(120,40-d*0.4,50-d*0.42,25+d*0.90) #Draw #next #//ZOOM-(Out) #for d:=100 to 0 step -0.1*k #SetViewPoint(120,40-d*0.4,50-d*0.42,25+d*0.90) #Draw #next #hidescript #on k change #if k<2 then k:=1 ---------- 11 4 24 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 4 24 0 4 24 0 ---------- Table SECTION RowNo, ColumnNo 0 10 Table Data ---------- SimpleMemo SECTION 0 ----------