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)
8 1 2 3 4 5 6 7 8 1 1 1 1 1 1 1 1
a
0 16711680 2 0 1
b
0 16711680 2 0 1
c
0 16711680 2 0 1
d
0 16711680 2 0 1
m
0 16711680 2 0 1
n
0 16711680 2 0 1
@
0 16711680 2 0 1
q
0 16711680 2 0 1
----------
0 = f(x,y)
0
----------
Point
22 16 17 18 19 0 0 0 2 3 4 5 6 7 8 9 10 11 12 13 14 15 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
P
1 8 2
P
(qf(@c+(1-@)n,(1-@)b+@d,-@m+(1-@)m)).x
(qf(@c+(1-@)n,(1-@)b+@d,-@m+(1-@)m)).y
0


t 0.1
0 0
255 16711680 16777215 0 0 0 1 1 0 0
3 0 1 0
Q
1 9 2
Q
(qf(@a+(1-@)n,(1-@)b,m)).x
(qf(@a+(1-@)n,(1-@)b,m)).y
0


t 0.1
0 0
255 16711680 16777215 0 0 0 1 1 0 0
3 0 1 0
R
1 9 2
R
(qf((1-@)n,(1-@)b,(1-@)m+@)).x
(qf((1-@)n,(1-@)b,(1-@)m+@)).y
0


t 0.1
0 0
255 16711680 16777215 0 0 0 1 1 0 0
3 0 1 0
S
1 3 2
S
(qf(@n,@b,@m+(1-@))).x
(qf(@n,@b,@m+(1-@))).y
0


t 0.1
0 0
255 16711680 16777215 0 0 0 1 1 0 0
3 0 1 0
T
0 0 1
U
0 0 1
V
0 0 1
A
1 6 2
A
(qf(@a,0,(1-@)+@m)).x
(qf(@a,0,(1-@)+@m)).y
0


t 0.1
0 0
255 16711680 16777215 0 0 0 1 1 0 0
3 0 1 0
B
1 8 2
B
(qf((1-@)a,0,@+(1-@)m)).x
(qf((1-@)a,0,@+(1-@)m)).y
0


t 0.1
0 0
255 16711680 16777215 0 0 0 1 1 0 0
3 0 1 0
C
1 8 2
C
(qf((1-@)a+@n,@b,m)).x
(qf((1-@)a+@n,@b,m)).y
0


t 0.1
0 0
255 16711680 16777215 0 0 0 1 1 0 0
3 0 1 0
D
1 8 2
D
(qf((1-@)a+@c,@d,(1-@)m-@m)).x
(qf((1-@)a+@c,@d,(1-@)m-@m)).y
0


t 0.1
0 0
255 16711680 16777215 0 0 0 1 1 0 0
3 0 1 0
E
1 8 2
E
(qf(@a+(1-@)c,(1-@)d,@m-(1-@)m)).x
(qf(@a+(1-@)c,(1-@)d,@m-(1-@)m)).y
0


t 0.1
0 0
255 16711680 16777215 0 0 0 1 1 0 0
3 0 1 0
F
1 9 2
F
(qf((1-@)c+@n,(1-@)d+@b,-(1-@)m+@m)).x
(qf((1-@)c+@n,(1-@)d+@b,-(1-@)m+@m)).y
0


t 0.1
0 0
255 16711680 16777215 0 0 0 1 1 0 0
3 0 1 0
G
1 8 2
G
(qf((1-@)c-@n,(1-@)d+@b,-m)).x
(qf((1-@)c-@n,(1-@)d+@b,-m)).y
0


t 0.1
0 0
255 16711680 16777215 0 0 0 1 1 0 0
3 0 1 0
H
1 8 2
H
(qf((1-@)c,(1-@)d,-(1-@)m-@)).x
(qf((1-@)c,(1-@)d,-(1-@)m-@)).y
0


t 0.1
0 0
255 16711680 16777215 0 0 0 1 1 0 0
3 0 1 0
I
1 7 2
I
(qf(@c,@d,-@m-(1-@))).x
(qf(@c,@d,-@m-(1-@))).y
0


t 0.1
0 0
255 16711680 16777215 0 0 0 1 1 0 0
3 0 1 0
J
1 7 2
J
(qf(-@n,@b,-(1-@)-@m)).x
(qf(-@n,@b,-(1-@)-@m)).y
0


t 0.1
0 0
255 16711680 16777215 0 0 0 1 1 0 0
3 0 1 0
K
1 3 2
K
(qf(-(1-@)n,(1-@)b,-@-(1-@)m)).x
(qf(-(1-@)n,(1-@)b,-@-(1-@)m)).y
0


t 0.1
0 0
255 16711680 16777215 0 0 0 1 1 0 0
3 0 1 0
L
1 9 2
L
(qf(@c-(1-@)n,@d+(1-@)b,-m)).x
(qf(@c-(1-@)n,@d+(1-@)b,-m)).y
0


t 0.1
0 0
255 16711680 16777215 0 0 0 1 1 0 0
3 0 1 0
M
1 9 2
M
(qf(-(1-@)n+@n,b,-(1-@)m+@m)).x
(qf(-(1-@)n+@n,b,-(1-@)m+@m)).y
0


t 0.1
0 0
255 16711680 16777215 0 0 0 1 1 0 0
3 0 1 0
N
1 9 2
N
(qf((1-@)n-@n,b,-@m+(1-@)m)).x
(qf((1-@)n-@n,b,-@m+(1-@)m)).y
0


t 0.1
0 0
255 16711680 16777215 0 0 0 1 1 0 0
3 0 1 0
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
21
1 1 1 0 16777215 2 1 1 0 0
0 
8 9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 1 1 0 16777215 2 1 1 0 0
0 
9 10 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 1 1 0 16777215 2 1 1 0 0
0 
10 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 1 1 0 16777215 2 1 1 0 0
0 
2 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 1 1 0 16777215 2 1 1 0 0
0 
3 4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 1 1 0 16777215 2 1 1 0 0
0 
4 8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 1 1 0 16777215 2 1 1 0 0
0 
10 11 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 1 1 0 16777215 2 1 1 0 0
0 
11 12 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 1 1 0 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 0 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 0 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 0 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 0 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 0 16777215 2 1 1 0 0
0 
17 18 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 1 1 0 16777215 2 1 1 0 0
0 
19 14 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 1 1 0 16777215 2 1 1 0 0
0 
19 18 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 1 1 0 16777215 2 1 1 0 0
0 
19 20 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 1 1 0 16777215 2 1 1 0 0
0 
20 21 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 1 1 0 16777215 2 1 1 0 0
0 
13 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 1 1 0 16777215 2 1 1 0 0
0 
21 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 1 1 0 16777215 2 1 1 0 0
0 
1 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
----------
paramater
14
0.894 0
1 1 0.1 0 1
0.851 0
1 1 0.1 0 2
0.724 0
1 1 0.1 0 3
0.526 0
1 1 0.5 0 4
0.447 0
1 1 0.1 0 5
0.276 0
1 1 0.1 0 6
3 0
1 1 1 1 7
2 0
1 1 2 1 8
195 0
1 1 2 1 9
20 0
1 1 2 1 10
360 0
1 1 72 0 11
4 0
1 1 0.1 1 12
0 0
1 1 0.0277777777777778 1 13
5 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 933 x
x
AxesVisible,ScaleVisible,Svaluevisible,AddDegreeLetter,ScaleGuidevisible
0 0 0 0 0
NUmber,Base,Linterval,numberR
7 1 1 7
High,Low
2.38366164291665 -2.32845956920457
----------
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.40022298299001 -2.22615149297524
----------
ScaleS
SquareQ AreaRectify PsMesh AxisWidth FontSize AxisOn letterCenterShowPOsition ShowEquation AxisType PolorNum Areafixed
1 1 0 1 14 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

45
アニメスピード{p}


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


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


①DODECAHEDORON
②TRUNCATED ICOSAHEDRON
③ICOSIDODECAHEDRON
#HideScript//sub
#on p,q,@,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 5
#u:=72*k
#calc
#next
#refresh

#//Auto Draw
#for @:=0 to 1/3 step p*1/1440
#s:=s+0.5
#Call(sub)
#next @
#wait(1000)
#for @:=1/3 to 1/2 step p*1/1440
#s:=s+0.5
#Call(sub)
#next @
#wait(800)
#for @:=1/2 to 0 step -p*2/1440
#s:=s+0.5
#Call(sub)
#next @
#s:=s-360*int(s/360)


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