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


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 0 0 1 1 0
3 0 1 1 0 0 0
Q
1 0 1
Q
g(E,k)


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 0 0 1 1 0
3 0 1 1 0 0 0
R
1 0 1
R
g(C,k)


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 0 0 1 1 0
3 0 1 1 0 0 0
S
1 0 1
S
g(D,k)


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 0 0 1 1 0
3 0 1 1 0 0 0
T
1 0 1
T
g(G,k)


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 0 0 1 1 0
3 0 1 1 0 0 0
U
1 0 1
U
g(H,k)


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 0 0 1 1 0
3 0 1 1 0 0 0
V
0 0 1
A
1 3 1
A
f((a,0,0),s,t)


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 3 1
B
f((a,b,0),s,t)


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
f((a,b,c),s,t)


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 0 0 1 1 0
3 0 1 1 0 0 0
D
1 1 1
D
B+CB


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 0 0 1 1 0
3 0 1 1 0 0 0
E
1 7 1
E
f((a+c,0,0),s,t)


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 8 1
F
A+EA


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 0 0 1 1 0
3 0 1 1 0 0 0
G
1 1 1
G
g(F,1)


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 0 0 1 1 0
3 0 1 1 0 0 0
H
1 1 1
H
g(E,1)


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 0 0 1 1 0
3 0 1 1 0 0 0
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
5
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 
6 5 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 
5 3 1 4 5 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 
6 3 2 4 6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
----------
paramater
14
6.88948063802691 0
1 1 0.1 0 4
3 0
1 1 0.1 1 2
2 0
1 1 0.1 1 3
1 0
1 1 0.1 1 0
6 0
1 1 0.1 0 7
1 0
1 1 0.1 1 0
7 0
1 1 1 1 1
0 0
1 1 0.1 1 0
-1 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
4.908734 0
1 1 0.196349540849362 1 5
0.441260835089561 0
1 1 1 0 6
0 0
1 1 0.01 1 0
1 0
1 1 0.1 1 0
1 1 80
----------
KakuMode LogMode AreaMode
1 2 1 1 0 1
DrawMode SegmentShowSync
1 0
AfterImageColorNo, CanAImg
0 1
----------
ScaleS
Vlow,VHigh
-4.83097981059802 5.16902018940198
-5.22237319833147 4.77762680166853
MeshMode , Axiswidth , Sfontsize , Axismode , AxesColor
2 3 24 0 1.6 4 1
ViewPoint
-72.5 43 40.4721108273706 28.4491558576144 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 162 0 0 0 0 1 0 1 0
----------
MEMO SECTION
Style, Color, BGcolor , Size, PositionX, positionY
3 1 0 12
40
環状の{n}個の四面体を
回転させる動き。{n>=3}

但し，赤い線分の中点
の{z}座標を0に固定


<red><B>{c}が大きいと
中央でぶつかる・・・よ</B></red>
#//初期化(フィッテング)
#ClrAImgData
#t:=Atan(-sin(s)tan(Pi/n))
#a:=b/(cos(t)tan(Pi/n))
#Call(D)

#//【AUTO】
#ClrAImg
#for s:=0 to 4Pi+0.001 step Pi/16
#t:=Atan(-sin(s)tan(Pi/n))
#a:=b/(cos(t)tan(Pi/n))
#Call(D)
#ClrAimgData
#next

#//赤線水平垂直
#s:=0
#Call(初期化(フィッテング))


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

#hidescript//Dummy
#on n,b,c,s change
#if n<3 then n:=3
#if n>20 then n:=20
#Call(初期化(フィッテング))
----------
11
4 24 1
4 154 1
4 258 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

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