Grapes/3D 1.21
[Don't Edit]
----------
UserFunction
2 1 2 1 1
Asin((c+r)x/rSqrt(x^2+c^2))-Atan(x/c)
(c+r-rcos(f([OX])))/c*FX+(0,0,c)
----------
Point
22 1 3 5 8 9 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 0 1
P
roll(m(2Pi/n),0)


s 0.1


t 0.1
1 0 0
12632319 16711680 16744576 1 0 0 1 1 0
1 0 1 1 0 0 0
Q
1 0 1
Q
roll(um(2Pi/n),0)


s 0.1


t 0.1
1 0 0
12632319 16711680 16744576 1 0 0 1 1 0
1 0 1 1 0 0 0
R
6 0 1
R
mid(P,Q,cos^2 (Pit/2),sin^2 (Pit/2))
0
1
t 0.02


m 0.1
1 0 0
0 16711680 16744576 0 0 0 1 1 0
1 0 1 1 0 0 0
S
6 0 1
S
roll(s,0)
0
2Pi
s 0.1


t 0.1
0 0 0
16777215 175 16744576 1 0 0 1 1 0
1 0 1 1 0 0 0
T
7 0 1
T
r(costcoss,costsins,sint-1)
0
2Pi
s 0.196349540849362
0
Pi/2
t 0.130899693899575
0 0 1
16777215 52992 12648447 1 0 0 1 1 0
1 0 1 1 0 0 0
U
0 0 1
V
0 0 1
A
6 0 1
A
g(roll(s,0))
0
2Pi
s 0.05


t 0.1
0 0 0
16777215 11468800 16777215 1 0 0 1 1 0
1 0 2 1 0 0 0
B
0 0 1
C
6 0 1
C
g(R)
0
1
t 0.02


m 1
0 1 0
16777215 11468800 16777215 1 0 0 1 1 0
1 0 1 1 0 0 0
D
0 0 1
E
0 0 1
F
1 9 1
<s>F</s>
(0,0,c)


s 0.1


t 0.1
0 0 0
255 16711680 16744576 1 0 0 1 1 0
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 0
3 0 1 1 0 0 0
----------
Segments
3
9 0 1 0 0
3 1 175 16777215 1
1 1 16711680 16777215 1
0 
13 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
9 0 1 0 0
3 1 175 16777215 1
1 1 16711680 16777215 1
0 
13 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 1 1 0 0
1 1 12632319 16777215 1
1 1 16711680 16777215 1
0 
2 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
----------
paramater
14
1 0
1 1 0.1 1 0
0.6 0
1 1 0.1 1 0
1.5 0
1 1 0.1 1 1
2.0514821 0
1 1 0.002 1 0
0.19634954 0
1 1 0.1 1 0
0 0
1 1 1 1 2
60 0
1 1 1 1 3
360 0
1 1 1 1 0
1 0
1 1 0.1 1 0
2 0
1 1 0.1 1 4
0 0
1 1 0.1 0 5
0 0
1 1 0.005 0 6
-2 0
1 1 1 1 7
1 0
1 1 0.1 1 0
1 1 0
----------
KakuMode LogMode AreaMode
1 2 1 1 0 1 30 1
DrawMode SegmentShowSync
1 0
AfterImageColorNo, CanAImg
0 1
----------
ScaleS
Vlow,VHigh
-5.02603815937149 4.97396184062851
-5.02210998877666 4.97789001122334
MeshMode , Axiswidth , Sfontsize , Axismode , AxesColor
0 2 18 0 0.2 4 1
ViewPoint
-70 20 18 12 0 0 0 1 0 (0,0,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
651 893 736 474 1086 0 1207 1 1 1 1 1 1 1
----------
MEMO SECTION
Style, Color, BGcolor , Size, PositionX, positionY
3 1 0 12
88
視点と平面までの距離{c}
球の半径{r}の平射図法の逆

与えられた球の半径{r}に対して
ＦＰが球面に接するように{c}を
設定するボタンを【接】とする。
#HideScript//D
#on c,n,r change
#m:=n
#calc
#Draw

#//《説明の表示ＳＷ》
#InvShowObj(P,Q,F,S,T,L1,L2,L3)

#//【状況の初期化】
#ClrAImg
#c:=1.5
#n:=60
#r:=2
#u:=-2
#InvShowObj(A)
#InvShowObj(A)
#Call(［ 視点を元に戻す ］)
#draw

#//【接】
#c:=2r/(r^2-1)
#InvShowObj(A)
#InvShowObj(A)
#Call(＜残像を初期化＞)
#draw

#//＜残像を初期化＞
#ClrAImg
#m:=0
#draw

#//＜順に描画＞
#for m:=0 to n
#draw
#//SetAImg
#wait(200)
#next

#//＜全て描画＞
#for m:=0 to n
#calc
#//SetAImg
#next
#draw

#//横回転
#t:=viewH
#for p:=t to t+360
# SetViewPoint(p,viewV,viewD,viewA)
# Draw
#wait(50)
#next p

#//縦回転
#t:=viewV
#for p:=t to t+360
# SetViewPoint(viewH,p,viewD,viewA)
# Draw
#wait(50)
#next p

#//斜回転(MoonSalto)
#s:=viewH
#t:=viewV
#for p:=0 to 360
# SetViewPoint(s+p,t+p,viewD,viewA)
# Draw
#wait(50)
#next p

#//［ 視点を F に移動 ］
#SetViewPoint(0,90,c,80)
#draw

#//［ 視点を ドーム内に移動 ］
#SetViewPoint(0,-26,1.2,56)
#draw

#//［ 視点を元に戻す ］
#SetViewPoint(-70,20,18,12)
#draw
----------
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 200
Table Data

60 60 60 60 60 60 60 60 60 60
----------
SimpleMemo SECTION
0
----------