Grapes/3D 1.21
[Don't Edit]
----------
UserFunction
1 1 1
((a+bcoskPix)cosPix,(a+bcoskPix)sinPix,bsinkPix)
----------
Point
22 2 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
P
7 0 1
P
f(s)+ctilt(roll(Pit,0),(0,0,1),f'(s))
0
m
s 0.01
0
n
t 0.2
0 0 0
16777215 36608 36608 1 0 0 1 1 0
3 0 1 1 0 0 0
Q
6 0 1
Q
f(s)
0
m
s 0.01


t 0.1
0 0 0
16777215 255 16711680 0 0 1 1 1 0
3 0 3 1 0 0 0
R
0 0 1
S
0 0 1
T
0 0 1
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
16 0
1 1 0.5 1 1
4 0
1 1 1 1 2
1 0
1 1 0.5 1 3
0 0
1 1 1 1 0
6.5 0
1 1 0.1 1 4
4 0
1 1 0.5 1 5
2 0
1 1 0.1 1 6
0 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
20 0
1 1 1 1 9
28.041593 0
1 1 0.1 0 7
-5.6758844 0
1 1 0.392699081698724 0 8
400 0
1 1 0.1 1 0
40 0
1 1 0.1 1 0
1 1 128
----------
KakuMode LogMode AreaMode
1 2 1 0 0 1
DrawMode SegmentShowSync
1 0
AfterImageColorNo, CanAImg
2 1
----------
ScaleS
Vlow,VHigh
-4.83482142857142 5.16517857142858
-5.05357142857143 4.94642857142857
MeshMode , Axiswidth , Sfontsize , Axismode
0 2 12 0 5 4
ViewPoint
40 40 90 30 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
627 540 0 303 714 0 0 1 1 0 1 1 1 0
----------
MEMO SECTION
Style, Color, BGcolor , Size, PositionX, positionY
3 1 0 12
61
ベクトルの回転を利用


アニメスピード={r}
#//初期化
# SetViewPoint(40,40,90,30)
# Draw

#//横回転
#v := viewH
#for u:=v to v+360 step 0.05*r
# SetViewPoint(u,viewV,viewD,viewA)
# Draw
#next u

#//縦回転
#v := viewH
#for u:=v to v+360 step 0.05*r
# SetViewPoint(viewH,u,viewD,viewA)
# Draw
#next u

#//斜回転
#v := viewH
#for u:=v to v+360 step 0.05*r
# SetViewPoint(u,u,viewD,viewA)
# Draw
#next u

#//【曲線の説明】
#HideObj(P)
#m:=0
#Draw
#ShowObj(Q)
#for m:=0 to 4 step 0.05
# draw
#next m
#m:=0
#Draw
#ShowObj(P)
#for m:=0 to 4 step 0.25
# draw
#next m
#Call(斜回転)
#HideObj(Q)

#//ZOOM-(Out)
#for d:=0 to 100 step 0.5
#SetViewPoint(40,40-d*3.6,90-0.2*d,30+0.95*d)
#Draw
#next

#//ZOOM-(In)
#for d:=100 to 0 step -0.5
#SetViewPoint(40,40-d*3.6,90-0.2*d,30+0.95*d)
#Draw
#next

#hidescript
#on r change
#if r <1 then r := 1
----------
11
4 24 1
4 58 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
----------
Table SECTION
RowNo, ColumnNo
0 10
Table Data

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