Grapes/3D 1.21
[Don't Edit]
----------
UserFunction
2 1 2 1 1
((X.x-a)cosy+X.ysinzsiny+X.zcoszsiny+a,X.ycosz-X.zsinz,-(X.x-a)siny+X.ysinzcosy+X.zcoszcosy)
(X.xcos(2yPi/n)-X.ysin(2yPi/n),X.xsin(2yPi/n)+X.ycos(2yPi/n),X.z)
----------
Point
22 12 13 14 15 16 17 0 2 3 4 5 6 7 8 9 10 11 0 19 18 20 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 0 1
P
g(E,k)


s 0.1


t 0.1
0 0 0
255 16711680 16711680 0 0 0 1 1 0
2 0 1 1 0 0 0
Q
1 0 1
Q
g(F,k)


s 0.1


t 0.1
0 0 0
255 16711680 16711680 0 0 0 1 1 0
2 0 1 1 0 0 0
R
1 0 1
R
g(G,k)


s 0.1


t 0.1
0 0 0
255 16711680 16711680 0 0 0 1 1 0
2 0 1 1 0 0 0
S
1 0 1
S
g(H,k)


s 0.1


t 0.1
0 0 0
255 16711680 16711680 0 0 0 1 1 0
2 0 1 1 0 0 0
T
1 0 1
T
g(I,k)


s 0.1


t 0.1
0 0 0
255 16711680 16711680 0 0 0 1 1 0
2 0 1 1 0 0 0
U
1 0 1

g(J,k)


s 0.1


t 0.1
0 0 0
255 16711680 16711680 0 0 0 1 1 0
2 0 1 1 0 0 0
V
0 0 1
A
1 1 1
<red>A</red>
f((a,0,0),s,t)-M


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 1 0 1 1 0
1 0 1 1 0 0 0
B
1 1 1
<red>B</red>
f((a,b,0),s,t)-M


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 1 0 1 1 0
1 0 1 1 0 0 0
C
1 1 1
<red>C</red>
f((a+c,b+c*m,1),s,t)-M


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 1 0 1 1 0
1 0 1 1 0 0 0
D
1 1 1
<red>D</red>
f((a+1,0,0),s,t)-M


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 1 0 1 1 0
1 0 1 1 0 0 0
E
1 1 1
E
A+pAD


s 0.1


t 0.1
0 0 0
255 16711680 16711680 0 1 0 1 1 0
3 0 1 1 0 0 0
F
1 1 1
F
A+qAD


s 0.1


t 0.1
0 0 0
255 16711680 16711680 0 1 0 1 1 0
3 0 1 1 0 0 0
G
1 1 1
G
B+uBC


s 0.1


t 0.1
0 0 0
255 16711680 16711680 0 1 0 1 1 0
3 0 1 1 0 0 0
H
1 1 1
H
B+vBC


s 0.1


t 0.1
0 0 0
255 16711680 16711680 0 1 0 1 1 0
3 0 1 1 0 0 0
I
1 8 1
I
g(E,1)


s 0.1


t 0.1
0 0 0
255 16711680 16711680 0 1 0 1 1 0
3 0 1 1 0 0 0
J
1 4 1
J
g(F,1)


s 0.1


t 0.1
0 0 0
255 16711680 16711680 0 1 0 1 1 0
3 0 1 1 0 0 0
K
0 0 1
L
7 0 1
L
(s,0,t)
0
10
s 0.5
-4
4
t 0.5
0 0 0
16777215 52992 52992 0 0 0 1 1 0
3 0 1 2 0 0 0
M
1 0 1
M
(0,0,0.5bsintcoss)


s 0.1


t 0.1
0 0 0
0 16711680 16711680 0 0 0 1 1 0
3 0 1 1 0 0 0
N
7 0 1
N
(s,s*tan(Pi/n),t)
0
10
s 0.5
-4
4
t 0.5
0 0 0
16777215 52992 52992 0 0 0 1 1 0
3 0 1 2 0 0 0
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
8
1 1 1 0 0
1 1 255 16777215 3
1 1 16711680 16777215 1
0 
1 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 255 16777215 3
1 1 16711680 16777215 1
0 
3 4 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 255 16777215 3
1 1 16711680 16777215 1
0 
5 6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
6 1 1 0 0
1 1 16711680 16777215 3
1 1 16711680 16777215 1
0 
1 3 5 4 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
6 1 1 0 0
1 1 16711680 16777215 3
1 1 16711680 16777215 1
0 
2 3 6 4 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
6 0 0 0 0
1 6 36608 11513600 4
1 1 16711680 16777215 1
0 
11 9 8 10 11 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 0 0 0 0
1 1 16711935 16777215 3
1 1 16711680 16777215 1
0 
8 11 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 0 0 0 0
1 1 16711935 16777215 3
1 1 16711680 16777215 1
0 
9 10 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
5.19130349143084 0
1 1 0.1 0 8
2.5 0
1 1 0.1 1 2
0.75 0
1 1 0.05 1 3
1 0
1 1 0.1 1 0
6 0
1 1 0.1 0 11
0.481574618807529 0
1 1 0.1 0 12
7 0
1 1 1 1 1
-2 0
1 1 0.1 1 4
3 0
1 1 0.1 1 5
1.06322701660195 0
1 1 0.1 0 0
12.5663706143596 0
1 1 0.05 1 9
0 0
1 1 1 0 10
-1 0
1 1 0.1 1 6
2.6 0
1 1 0.1 1 7
1 1 48
----------
KakuMode LogMode AreaMode
1 2 1 1 0 1
DrawMode SegmentShowSync
1 0
AfterImageColorNo, CanAImg
0 1
----------
ScaleS
Vlow,VHigh
-4.39036482244999 4.55997377800147
-4.54305984741672 4.40727875303474
MeshMode , Axiswidth , Sfontsize , Axismode , AxesColor
2 3 24 0 2 4 1
ViewPoint
-90 90 113.28838852958 10 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 564 0 0 0 0 0 0 1 0 1 0
----------
MEMO SECTION
Style, Color, BGcolor , Size, PositionX, positionY
3 1 0 10
65
w”CˆΣƒJƒ‰ƒCƒhƒTƒCƒNƒ‹x
{2n}ŒΒ‚ΜŽl–Κ‘Μ
||@ƒpƒ‰ƒ[ƒ^@||
AB={b},C({c})
E({p})CF({q}),
G({c,u}),H({c,v})


ŒvŽZŒ‹‰Κ’€ŽŸ•\Ž¦
EF=!{[EF]}
GH=!{[GH]}
EG=!{[EG]}
EH=!{[EH]}
FH=!{[FH]}
FG=!{[FG]}
#//‰Šϊ‰»
#s:=0
#Call(ƒtƒBƒbƒeƒ“ƒO)

#hidescript//ƒtƒBƒbƒeƒ“ƒO
#ClrAImgData
#m:=tan(Pi/n)
#r:=Sqrt(((m*sin(s))^2+1)*(m^2*c^2+1))
#t:=Asin(-m*c*cos(s)/r)-Asin(m*(sin(s)-c)/r)
#a:=b((cos(t)/m)-(sin(t)*sin(s)))
#Call(D)

#//y‰ρ“]z
#ClrAImg
#for s:=0 to 4Pi+0.001 step Pi/16
#m:=tan(Pi/n)
#r:=Sqrt(((m*sin(s))^2+1)*(m^2*c^2+1))
#t:=Asin(-m*c*cos(s)/r)-Asin(m*(sin(s)-c)/r)
#a:=b(cos(t)/m-sin(t)*sin(s))
#Call(D)
#wait(100)
#ClrAimgData
#next

#hidescript//D
#for k:=0 to n-1
#Calc
#next
#Draw

#hidescript//Dummy
#on n,b,c,s,p,q,u,v change
#if n<3 then n:=3
#Call(ƒtƒBƒbƒeƒ“ƒO)

#//“_‚Μ–ΌΜy‚r‚vz
#InvShowObj(E,F,G,H)
#Call(ƒtƒBƒbƒeƒ“ƒO)

#//‚’Ό–ʁy‚r‚vz
#InvShowObj(L,N)
#Call(ƒtƒBƒbƒeƒ“ƒO)

#//Žl”Ό•ͺŽl–ʑ́y‚r‚vz
#InvShowObj(A,B,C,D,L6,L7,L8)
#Call(ƒtƒBƒbƒeƒ“ƒO)

#//Kaleidocycley‚r‚vz
#InvShowObj(L1,L2,L3,L4,L5)
#Call(ƒtƒBƒbƒeƒ“ƒO)
----------
11
4 24 1
4 190 1
4 141 1
4 330 1
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

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