Grapes/win 2.8
[Don't Edit] 3.14
----------
BGstretchOn BGfile
0 
----------
UserFunction
1 1 1
proj(x,y,z,s+u,t,v)
----------
y = f(x)
1 1 1
a
0 16711680 2 0 1
----------
0 = f(x,y)
0
----------
Point
22 0 0 0 0 0 0 0 1 2 3 4 5 6 7 8 9 10 11 12 0 0 13 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
P
0 0 1
Q
0 0 1
R
0 0 1
S
0 0 1
T
0 0 1
U
0 0 1
V
0 0 1
A
1 0 2
A
(f(0,0,a)).x
(f(0,0,a)).y
0


t 0.1
0 0
16711680 16711680 16777215 0 0 0 1 1 0 0
3 0 1 0
B
1 0 2
B
(f(1.414*2/3*a,0,-a/3)).x
(f(1.414*2/3*a,0,-a/3)).y
0


t 0.1
0 0
16711680 16711680 16777215 0 0 0 1 1 0 0
3 0 1 0
C
1 0 2
C
(f(-1.414/3*a,1.414*1.732/3*a,-a/3)).x
(f(-1.414/3*a,1.414*1.732/3*a,-a/3)).y
0


t 0.1
0 0
16711680 16711680 16777215 0 0 0 1 1 0 0
3 0 1 0
D
1 0 2
D
(f(-1.414/3*a,-1.414*1.732/3*a,-a/3)).x
(f(-1.414/3*a,-1.414*1.732/3*a,-a/3)).y
0


t 0.1
0 0
16711680 16711680 16777215 0 0 0 1 1 0 0
3 0 1 0
E
1 0 2
E
((1-@)A+@B).x
((1-@)A+@B).y
0


t 0.1
0 0
16711680 16711680 16777215 0 0 0 1 1 0 0
3 0 1 0
F
1 0 2
F
((1-@)B+@A).x
((1-@)B+@A).y
0


t 0.1
0 0
16711680 16711680 16777215 0 0 0 1 1 0 0
3 0 1 0
G
1 0 2
G
((1-@)B+@C).x
((1-@)B+@C).y
0


t 0.1
0 0
16711680 16711680 16777215 0 0 0 1 1 0 0
3 0 1 0
H
1 0 2
H
((1-@)C+@B).x
((1-@)C+@B).y
0


t 0.1
0 0
16711680 16711680 16777215 0 0 0 1 1 0 0
3 0 1 0
I
1 0 2
I
((1-@)C+@A).x
((1-@)C+@A).y
0


t 0.1
0 0
16711680 16711680 16777215 0 0 0 1 1 0 0
3 0 1 0
J
1 0 2
J
((1-@)A+@C).x
((1-@)A+@C).y
0


t 0.1
0 0
16711680 16711680 16777215 0 0 0 1 1 0 0
3 0 1 0
K
1 0 2
K
((1-@)C+@D).x
((1-@)C+@D).y
0


t 0.1
0 0
16711680 16711680 16777215 0 0 0 1 1 0 0
3 0 1 0
L
1 0 2
L
((1-@)A+@D).x
((1-@)A+@D).y
0


t 0.1
0 0
16711680 16711680 16777215 0 0 0 1 1 0 0
3 0 1 0
M
0 0 1
N
0 0 1
O
1 0 2
O
0
0
0


t 0.1
0 0
16777215 16711680 16777215 1 0 0 1 1 0 0
3 0 1 0
----------
Segments
10
1 1 1 16711680 16777215 2 1 1 0 0
0 
12 13 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 1 1 16711680 16777215 2 1 1 0 0
0 
13 14 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 1 1 16711680 16777215 2 1 1 0 0
0 
14 15 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 1 1 16711680 16777215 2 1 1 0 0
0 
15 16 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 1 1 16711680 16777215 2 1 1 0 0
0 
16 17 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 1 1 16711680 16777215 2 1 1 0 0
0 
17 12 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 1 1 16711680 16777215 2 1 1 0 0
0 
15 18 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 1 1 16711680 16777215 2 1 1 0 0
0 
17 19 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 1 1 16711680 16777215 2 1 1 0 0
0 
16 18 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 1 1 16711680 16777215 2 1 1 0 0
0 
19 12 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
----------
paramater
14
2 0
1 1 0.1 1 2
1 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
4 0
1 1 1 1 1
1 0
1 1 0.1 1 0
569 0
1 1 2 1 3
18 0
1 1 2 1 4
360 0
1 1 0.1 0 5
450 0
1 1 0.1 1 6
0 0
1 1 0.037037037037037 1 7
3 0
1 1 0.1 1 0
1 1 1
----------
KakuMode ScanWidth LogMode ThetaMode AreaMode capStyle
2 4 2 1 1 0 1 1 0 1 0 32 0
DrawMode SegmentShowSync
1 0
AfterImageColorNo, CanAImg,MaxAimgN0
0 1 3001
circleMode
1
----------
ScaleX
Vlow,VHigh,label
0 914 x
x
AxesVisible,ScaleVisible,Svaluevisible,AddDegreeLetter,ScaleGuidevisible
0 0 0 0 0
NUmber,Base,Linterval,numberR
7 1 1 7
High,Low
2.48627403803627 -2.3242522777532
----------
ScaleY
Vlow,VHigh,label
0 914 y
AxesVisible,ScaleVisible,Svaluevisible,ScaleGuidevisible
0 0 0 0 0
NUmber,Base,Linterval,NumbeerR
7 1 1 7
High,Low
2.74790850259209 -2.08569579226242
----------
ScaleS
SquareQ AreaRectify PsMesh AxisWidth FontSize AxisOn letterCenterShowPOsition ShowEquation AxisType PolorNum Areafixed
1 1 0 1 12 0 0 0 0 0 12 0 0 0
----------
Yvalue
1 1
----------
Iinterval
Svalue Evalue sliceNo
1 -1
1 1
40 10
Dfuncno Efuncno AreaQ
1 0 0
----------
Yvalue Function List
6
y1
y2
y3
y4
y5
y6
----------
Panel Position
0 0 0 0 359 52 0 85 0 0 0 0 1 0 1 0
1
----------
PetaMEMO SECTION
Style, Color, BGcolor , Size, PositionX, positionY
3 0 0 12 0 0 0

49
アニメスピード{p}


{a}：立体の拡大率
{s}:{z}軸の周りの回転
{t}:{x}軸の周りの回転
{v}:画角の決定


{0<=@<=1/2}の範囲
{0},{1/3},{1/2}：綺麗です


①TETRAHEDRON
②TRUNCATED TETRAHEDRON
③OCTAHEDRON
#HideScript//sub
#on p,a,@,s,t,v change
#if p<1 then p:=1
#if @<0 then @:=0
#if @>1/2 then @:=1/2
#Calc
#ClrAimgData
#for k:=1 to 3
#u:=120*k
#calc
#next
#refresh

#//Auto Draw
#for @:=0 to 1/3 step 0.0005*p
#Call(sub)
#s:=s+0.5
#next @
#wait(1000)
#for @:=1/3 to 0.5 step 0.0005*p
#Call(sub)
#s:=s+0.5
#next @
#wait(500)
#for v := u to u+90
#Call(sub)
#s:=s+0.5
#next
#wait(500)
#for @:=1/2 to 0 step -0.0005*p
#Call(sub)
#s:=s+0.5
#next @


----------
11
4 27 1
4 61 1
4 167 1
4 248 1
4 25 0
4 25 0
4 25 0
4 25 0
4 25 0
4 25 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
----------