Grapes/3D 1.21
[Don't Edit]
----------
UserFunction
0
----------
Point
22 5 6 17 18 0 2 3 9 10 11 12 13 14 8 15 16 0 0 0 4 1 7 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
P
1 3 1
P
k*(M.y/ tan(a) - M.x, 0, (-M.z) / 2)


s 0.1


t 0.1
0 0 0
0 16711680 16711680 1 0 0 1 1 0
3 0 1 1 0 0 0
Q
1 3 1
Q
k (M.y / tan(a), M.y, M.z / 2)


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 1 0 0 1 1 0
3 0 1 1 0 0 0
R
1 0 1
R
rot(A,(0,0,1),2*a*(s+1))


s 0.1


t 0.1
1 0 0
0 16711680 16711680 1 0 0 1 1 0
3 0 1 1 0 0 0
S
1 0 1
S
rot(B,(0,0,1),2*a*(s+1))


s 0.1


t 0.1
1 0 0
255 16711680 16711680 1 0 0 1 1 0
3 0 1 1 0 0 0
T
0 0 1
U
1 3 1
<Red>v{u}</Red>
(cos(t), 0, sin(t))


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
V
1 3 1
<Blue>v{v}</Blue>
unit(U&N)


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
A
1 3 1
A
P-r*U


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 1 0 0 1 1 0
3 0 1 1 0 0 0
B
1 3 1
B
P+r*U


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 1 0 0 1 1 0
3 0 1 1 0 0 0
C
1 3 1
C
Q-r*V


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 1 0 0 1 1 0
3 0 1 1 0 0 0
D
1 3 1
D
Q+r*V


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 1 0 0 1 1 0
3 0 1 1 0 0 0
E
1 0 1
E
rot(A,(0,0,1),2*a*s)


s 0.1


t 0.1
1 0 0
0 16711680 16711680 1 0 0 1 1 0
3 0 1 1 0 0 0
F
1 0 1
F
rot(B,(0,0,1),2*a*s)


s 0.1


t 0.1
1 0 0
255 16711680 16711680 1 0 0 1 1 0
3 0 1 1 0 0 0
G
1 3 1
G
mid(P,Q)


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 1 0 0 1 1 0
3 0 1 1 0 0 0
H
1 0 1
H
rot(C,(0,0,1),2*a*s)


s 0.1


t 0.1
1 0 0
52992 16711680 16711680 1 0 0 1 1 0
3 0 1 1 0 0 0
I
1 0 1
I
rot(D,(0,0,1),2*a*s)


s 0.1


t 0.1
1 0 0
16711680 16711680 16711680 1 0 0 1 1 0
3 0 1 1 0 0 0
J
0 0 1
K
0 0 1
L
0 0 1
M
1 3 1
<color=#ff8c00>v{w}</color>
-U & V


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
N
1 5 1
<Red>v{n<sub>a </sub>}</Red>
(-sin(a),cos(a),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
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
13
3 0 1 0 0
1 1 16711935 16777215 4
1 1 16711680 16777215 1
0 n<sub>a </sub>
252 21 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
3 0 1 0 0
1 1 255 16777215 4
1 1 16711680 16777215 1
0 
252 6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
3 0 1 0 0
1 1 16711680 16777215 4
1 1 16711680 16777215 1
0 
252 7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
3 0 1 0 0
1 1 4227327 16777215 4
1 1 16711680 16777215 1
0 
252 20 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 1 0 0
2 1 44975 16777215 2
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
11 0 1 0 1
1 1 52992 12648384 2
1 1 16711680 16777215 1
0 
8 9 10 11 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
11 1 1 0 0
1 1 52992 16777215 3
1 1 16711680 16777215 1
0 
12 13 15 16 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 52992 16777215 3
1 1 16711680 16777215 1
0 
3 15 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 52992 16777215 3
1 1 16711680 16777215 1
0 
4 15 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 52992 16777215 3
1 1 16711680 16777215 1
0 
3 16 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 52992 16777215 3
1 1 16711680 16777215 1
0 
4 16 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 8
1 1 16711680 16777215 1
0 
12 13 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 16711680 16777215 8
1 1 16711680 16777215 1
0 
15 16 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
0.628318530717959 0
1 1 0.1 0 3
0 0
1 1 0.1 1 2
1 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
2.4 0
1 1 0.1 1 5
1 0
1 1 0.1 1 0
10 0
1 1 2 1 1
0 0
1 1 0.1 1 0
0 0
1 1 0.1 1 0
1.5 0
1 1 0.1 1 6
5 0
1 1 0.1 0 7
0 0
1 1 0.1 0 4
1 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
1 1 96
----------
KakuMode LogMode AreaMode
1 2 1 1 0 1 30 1
DrawMode SegmentShowSync
1 0
AfterImageColorNo, CanAImg
0 1
----------
ScaleS
Vlow,VHigh
-7.67802973041068 7.67802973041068
-6.48412698412698 6.48412698412698
MeshMode , Axiswidth , Sfontsize , Axismode , AxesColor
0 1 12 1 1 1 1
ViewPoint
-15.1331717774901 36.4731668052646 54.3367431263029 14.7353932404332 0 0 -1.5 0 0 (0,0,-1.5)
----------
ViewPosition
5
30 20 25 30
-70 20 25 30
60 20 25 30
-90 90 25 30
-90 0 25 30
----------
Panel Position
1000 1000 1000 0 1000 154 1000 0 0 0 1 0 1 0
----------
MEMO SECTION
Style, Color, BGcolor , Size, PositionX, positionY
3 1 0 14
37
n:カライドサイクルの四面体の数
b:x軸と<Red>v{u}</Red>が作る回転角度[rad]
k:PQの長さ(P,QはそれぞれABとCDの中点)
r=AP=BP=CQ=DQ  (0<=r<=k/tan(a))<Red>r=k/{Sqrt(2)}の時、正四面体となる(Regular Kaleidocycle)</Red>
<Blue>rを最大にした時、閉じたｶﾗｲﾄﾞｻｲｸﾙとなる</Blue>


Normal Kaleidocycle


<Red>bを変化させた時、手動回転</Red>
#HideScript
#on n,k,r,b change
#a:=2Pi/n
#if r < 0 then
#   r := 0
#   refresh  //パラメータ表示の更新
#else
#   if r > k/tan(a) then r:= k/tan(a)
#   refresh  //パラメータ表示の更新
#endif
#ClrAimgData
#t:=b
#call(点を打つ)

#HideScript//点を打つ
#for s:=0 to n/2
#Calc
#next
#Draw

#//Normal Kaleidocycleの自動回転
#for t:=0 to 2*Pi step Pi/200
#call(点を打つ)
#ClrAimgData
#next
#t:=0
----------
11
7 473 0
9 7 0
4 24 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
----------