Grapes/3D 1.21
[Don't Edit]
----------
UserFunction
1 1 1
FX/[FX]-(0,0,r/Sqrt(1+r^2))
----------
Point
22 1 3 5 0 8 0 0 4 0 6 0 0 7 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 0 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
0 0 1
T
6 0 1
T
(0,0,s)
0
0.0011
s 0.1


t 0.1
0 0 0
16777215 175 16777215 1 0 1 1 1
1 0 1 1 0 0 0
U
0 0 1
V
0 0 1
A
6 0 1
A
f(aroll(s,0))
0
2Pi
s 0.02


a 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
f(R)
0
1
t 0.02


m 1
0 1 0
16777215 11468800 16777215 1 0 0 1 1
1 0 1 1 0 0 0
D
0 0 1
E
0 0 1
F
1 3 1
F
(0,0,-r)


s 0.1


t 0.1
0 0 0
175 16711680 16744576 0 0 0 1 1
1 0 1 1 0 0 0
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.01 1 1
0.01 0
1 1 0.005 1 0
0.713 0
1 1 0.001 1 0
0 0
1 1 0.1 1 0
0.196349540849362 0
1 1 0.1 1 0
72 0
1 1 1 1 2
72 0
1 1 1 1 3
360 0
1 1 1 1 0
1 0
1 1 0.1 1 0
0.5 0
1 1 0.1 1 4
4 0
1 1 0.1 1 5
20 0
1 1 0.005 1 6
-2 0
1 1 1 1 7
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
2 1
----------
ScaleS
Vlow,VHigh
-5.05937149270482 4.94062850729518
-4.94433221099888 5.05566778900112
MeshMode , Axiswidth , Sfontsize , Axismode
0 4 32 0 0.2 4
ViewPoint
4 20 28.0191418942685 4.00626013411285 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
463 512 800 226 713 0 0 1 1 1 1 1 1 0
----------
MEMO SECTION
Style, Color, BGcolor , Size, PositionX, positionY
3 1 0 12
40
球の半径{r}
心射図法
#HideScript//D
#on n change
#m:=n
#calc
#Draw

#//初期化
#ClrAImg
#m:=0
#draw

#//描画
#for m:=0 to n
#draw
#//SetAImg
#next

#//横回転
#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 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
----------