Grapes/3D 1.21
[Don't Edit]
----------
UserFunction
3 1 2 3 1 0 1
Y+rot(YX,YZ,w)
arg(ZX&ZW,ZY&ZW)
f(X,Y,Z,180-s)
----------
Point
22 13 14 15 16 17 18 19 20 1 2 4 5 6 7 8 9 10 11 12 21 22 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
P
1 1 1
P
h(C,D,B)


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 0 0 1 1 0
1 0 1 1 0 0 0
Q
1 1 1
Q
h(E,F,D)


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 0 0 1 1 0
1 0 1 1 0 0 0
R
1 1 1
R
h(G,H,F)


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 0 0 1 1 0
1 0 1 1 0 0 0
S
1 1 1
S
h(I,J,H)


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 0 0 1 1 0
1 0 1 1 0 0 0
T
1 1 1
T
h(K,L,J)


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 0 0 1 1 0
1 0 1 1 0 0 0
U
1 1 1
U
h(B,O,C)


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 0 0 1 1 0
1 0 1 1 0 0 0
V
1 1 1
V
h(D,C,E)


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 0 0 1 1 0
1 0 1 1 0 0 0
A
1 1 1
A
h(J,I,K)


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 0 0 1 1 0
1 0 1 1 0 0 0
B
1 1 1
B
(0.5,Sqrt(3)/2,0)


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 0 0 1 1 0
1 0 1 1 0 0 0
C
1 1 1
C
(1,0,0)


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 0 0 1 1 0
1 0 1 1 0 0 0
D
1 1 1
D
h(O,C,B)


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 0 0 1 1 0
1 0 1 1 0 0 0
E
1 1 1
E
h(B,C,D)


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 0 0 1 1 0
1 0 1 1 0 0 0
F
1 1 1
F
h(C,E,D)


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 0 0 1 1 0
1 0 1 1 0 0 0
G
1 1 1
G
h(D,E,F)


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 0 0 1 1 0
1 0 1 1 0 0 0
H
1 1 1
H
h(E,G,F)


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 0 0 1 1 0
1 0 1 1 0 0 0
I
1 1 1
I
h(F,G,H)


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 0 0 1 1 0
1 0 1 1 0 0 0
J
1 1 1
J
h(G,I,H)


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 0 0 1 1 0
1 0 1 1 0 0 0
K
1 1 1
K
h(H,I,J)


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 0 0 1 1 0
1 0 1 1 0 0 0
L
1 1 1
L
h(I,K,J)


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 0 0 1 1 0
1 0 1 1 0 0 0
M
1 1 1
M
h(F,E,G)


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 0 0 1 1 0
1 0 1 1 0 0 0
N
1 1 1
N
h(H,G,I)


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 0 0 1 1 0
1 0 1 1 0 0 0
O
1 0 3

(0,0,0)


s 0.1


t 0.1
0 0 0
16777215 16711680 16711680 1 0 0 1 1 0
1 0 1 1 0 0 0
----------
Segments
5
6 0 1 0 0
1 1 16711680 16777215 3
1 1 16711680 16777215 1
-1 
9 11 13 15 17 19 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
6 0 1 0 0
1 1 16711680 16777215 3
1 1 16711680 16777215 1
-1 
252 10 12 14 16 18 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
6 0 1 0 0
1 1 16711680 16777215 3
1 1 16711680 16777215 1
-1 
252 9 10 11 12 13 14 15 16 17 18 19 0 0 0 0 0 0 0 0 0 0 0 0 0
6 0 1 0 0
1 1 16711680 16777215 3
1 1 16711680 16777215 1
-1 
9 1 11 2 13 3 15 4 17 5 19 0 0 0 0 0 0 0 0 0 0 0 0 0 0
6 0 1 0 0
1 1 16711680 16777215 3
1 1 16711680 16777215 1
-1 
252 6 10 7 12 20 14 21 16 8 18 0 0 0 0 0 0 0 0 0 0 0 0 0 0
----------
paramater
14
180 0
1 1 0.1 1 0
99.569518 0
1 1 0.1 1 0
34 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
10 0
1 1 1 1 2
1 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
370 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
0 0
1 1 0.1 1 1
0 0
1 1 1 1 0
194 0
1 1 1 1 0
-166 0
1 1 5 1 0
1 1 112
----------
KakuMode LogMode AreaMode
2 2 1 1 0 1
DrawMode SegmentShowSync
1 0
AfterImageColorNo, CanAImg
2 1
----------
ScaleS
Vlow,VHigh
-4.56852721131298 5.43147278868702
-2.76699500926555 7.23300499073445
MeshMode , Axiswidth , Sfontsize , Axismode , AxesColor
2 4 32 0 2 4 1
ViewPoint
-166 43 5 46 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
0 0 0 0 0 112 0 0 0 0 1 0 1 0
----------
MEMO SECTION
Style, Color, BGcolor , Size, PositionX, positionY
3 1 0 14
108
手動時のパラメータ:{s}


アニメの速さ：{k}
#hidescript//draws
#on s,k change
#if k <= 1 then k := 1
#if s <= 0 then s := 0
#if s >= a then s := a
#Refresh
#draw

#//初期化
#a := 180
#s := 0
# SetViewPoint(-166,43,5,46)
#draw

#//【自動１】
#CALL(初期化)
#for s:=0 to 41.8 step 0.025*k
#draw
#next
#s:= 41.9
#draw
#wait(1000)
#for s:=41.8 to 70.5 step 0.025*k
#draw
#next
#s:= 70.5
#draw
#wait(1000)
#for s:=70.5 to 109.5 step 0.025*k
#draw
#next
#s:= 109.5
#draw
#wait(1000)
#for s:=109.5 to 138.2 step 0.025*k
#draw
#next
#s:= 138.2
#draw
#wait(1000)
#for s:=138.2 to 180 step 0.025*k
#draw
#next
#s:= 180
#draw
#wait(1000)
#for s:=180 to 0 step -0.05*k
#draw
#next
#s:=0
#draw

#//【自動２】
#CALL(初期化)
#v:=viewH
#for s:=0 to 180 step 0.025*k
#u:=v+s
# SetViewPoint(u,viewV,viewD,viewA)
#draw
#next
#wait(1000)
#for s:=180 to 0 step -0.05*k
#u:=v-s
# SetViewPoint(u,viewV,viewD,viewA)
#draw
#next

#//例１「正２０面体」
#s := 41.8
#draw

#//例２「正８面体」
#s := 70.5
#draw

#//例３「正４面体」
#s := 109.5
#draw

#//例４「星形」
#s := 138.2
#draw

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

#//【縦回転】
#v:=viewV
#for u:=v to v+360 step 0.1*k
# SetViewPoint(viewH,u,viewD,viewA)
# Draw
#next u

#//【斜回転】
#v:=viewH
#c:=viewV
#for u:=0 to 360 step 0.1*k
# SetViewPoint(v+u,c+u,viewD,viewA)
# Draw
#next u
----------
11
4 24 1
4 72 1
4 140 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
----------
Table SECTION
RowNo, ColumnNo
0 10 200
Table Data

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