Grapes/3D 1.21 [Don't Edit] ---------- UserFunction 0 ---------- Point 22 1 3 5 7 0 0 0 4 0 6 0 0 0 0 0 0 0 0 0 0 0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 P 1 2 1 P roll(m(2Pi/n),0) s 0.1 t 0.1 1 0 0 0 16711680 16744576 0 0 0 1 1 1 0 1 1 0 0 0 Q 1 4 1 Q roll(um(2Pi/n),0) s 0.1 t 0.1 1 0 0 0 16711680 16744576 0 0 0 1 1 1 0 1 1 0 0 0 R 6 4 1 R (1-t)P+tQ 0 1 t 0.02 m 0.1 1 0 0 0 16711680 16744576 0 0 0 1 1 1 0 1 1 0 0 0 S 1 0 1 S (0,0,0) s 0.1 t 0.1 0 0 0 11468800 175 16777215 0 0 0 1 1 1 0 6 1 0 0 0 T 0 0 1 U 0 0 1 V 0 0 1 A 6 0 1 A (roll(t,0)) 0 2Pi t 0.005 m 0.01 0 0 0 16777215 11468800 16777215 1 0 0 1 1 1 0 2 1 0 0 0 B 0 0 1 C 6 0 1 C R+(0,0,(-[OR]^2+1)(a[OR]^2+b)) 0 1 t 0.05 m 1 0 1 0 16777215 11468800 11468800 1 0 0 1 1 1 0 1 1 0 0 0 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 3 0 1 1 0 0 0 ---------- Segments 0 ---------- paramater 14 1 0 1 1 0.1 1 1 0.3 0 1 1 0.02 1 2 -2.6 0 1 1 0.1 1 0 1.1 0 1 1 0.1 1 0 0.196349540849362 0 1 1 0.1 1 0 72 0 1 1 1 1 3 72 0 1 1 1 1 4 360 0 1 1 1 1 0 1 0 1 1 0.1 1 0 0.25 0 1 1 0.005 1 0 4 0 1 1 0.1 0 0 20 0 1 1 0.005 0 5 -2 0 1 1 1 1 6 1 0 1 1 0.1 1 0 1 1 1 ---------- KakuMode LogMode AreaMode 1 2 1 0 0 1 DrawMode SegmentShowSync 1 0 AfterImageColorNo, CanAImg 0 1 ---------- ScaleS Vlow,VHigh -4.87048260381593 5.12951739618407 -4.73322109988777 5.26677890011223 MeshMode , Axiswidth , Sfontsize , Axismode 0 4 32 0 0.2 4 ViewPoint 4 20 28.7271082179453 4.4756902298777 0 0 0 1 ---------- ViewPosition 5 30 20 25 30 -70 20 25 30 60 20 25 30 -90 90 25 30 -90 0 25 30 ---------- Panel Position 441 490 702 254 653 0 0 1 1 1 1 1 1 0 ---------- MEMO SECTION Style, Color, BGcolor , Size, PositionX, positionY 3 1 0 12 45 4次関数回転体 への正射影 #HideScript//D #on n change #m:=n #calc #Draw #//初期化 #ClrAImg #m:=0 #draw #//順に描画 #for m:=0 to n #draw #//SetAImg #next #//一度に表示 #//SetAImg #m:=n #draw #//横回転 #t:=viewH #for p:=t to t+360 # SetViewPoint(p,viewV,viewD,viewA) # Draw #next p #//縦回転 #t:=viewV #for p:=t to t+360 # SetViewPoint(viewH,p,viewD,viewA) # Draw #next p #//斜回転(MoonSalto) #s:=viewH #t:=viewV #for p:=0 to 360 # SetViewPoint(s+p,t+p,viewD,viewA) # Draw #next p ---------- 11 4 24 1 4 83 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 ----------