Grapes/3D 1.21
[Don't Edit]
----------
UserFunction
2 1 2 1 1
Y+rot(YX,YZ,w)
arg(ZXﾗZW,ZYﾗZW)
----------
Point
22 4 5 6 8 9 10 0 1 2 3 11 12 13 14 15 16 0 0 0 0 0 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 4 1
P
C+[BC]ｷunit(CA)


s 0.1


t 0.1
0 0 0
175 16711680 16711680 0 0 0 1 1
1 0 1 1 0 0 0
Q
1 4 1
Q
(A+R)/2


s 0.1


t 0.1
0 0 0
175 16711680 16711680 0 0 0 1 1
1 0 1 1 0 0 0
R
1 4 1
R
B+([AC]-[BC])ｷunit(BA)


s 0.1


t 0.1
0 0 0
175 16711680 16711680 0 0 0 1 1
1 0 1 1 0 0 0
S
1 1 1
S
intrP(B,[QP],C,[CQ],R,[RQ])


s 0.1


t 0.1
0 0 0
36608 16711680 16711680 0 1 0 1 1
3 0 1 1 0 0 0
T
1 1 1
T
intrP(C,[CB],Q,[QP],R,[RB])


s 0.1


t 0.1
0 0 0
36608 16711680 16711680 0 1 0 1 1
3 0 1 1 0 0 0
U
1 0 1
U
intrP(C,[CR],P,[PA],Q,[QR])


s 0.1


t 0.1
0 0 0
36608 16711680 16711680 0 1 0 1 1
3 0 1 1 0 0 0
V
0 0 1
A
1 13 1
A
(4.00,-8.00,0.00)


s 0.1


t 0.1
0 0 0
175 16711680 16711680 1 0 1 1 1
1 0 1 1 0 0 0
B
1 11 1
B
(4.00,8.00,0.00)


s 0.1


t 0.1
0 0 0
175 16711680 16711680 1 0 1 1 1
1 0 1 1 0 0 0
C
1 3 1
C
(-4.00,4.00,0.00)


s 0.1


t 0.1
0 0 0
175 16711680 16711680 1 0 1 1 1
1 0 1 1 0 0 0
D
1 1 1
D
f(Q,R,C,s)


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 0 0 1 1
1 0 1 1 0 0 0
E
1 1 1
E
f(P,R,C,s)


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 0 0 1 1
1 0 1 1 0 0 0
F
1 1 1
F
f(A,R,C,s)


s 0.1


t 0.1
0 0 0
11468800 16711680 16711680 0 0 0 1 1
1 0 1 1 0 0 0
G
1 1 1
G
f(E,D,C,t)


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 0 0 1 1
1 0 1 1 0 0 0
H
1 1 1
H
f(F,D,C,t)


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 0 0 1 1
1 0 1 1 0 0 0
I
1 1 1
I
f(H,D,G,u)


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 0 0 1 1
1 0 1 1 0 0 0
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
3 0 1 1 0 0 0
----------
Segments
8
7 0 1 0 0
1 1 175 16777215 2
1 1 16711680 16777215 1
-1 
8 9 10 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
6 0 1 0 0
1 1 175 16777215 2
1 1 16711680 16777215 1
1 
1 2 10 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
7 0 1 0 0
1 4 11468800 16761024 2
1 1 16711680 16777215 1
-1 
11 3 10 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
6 0 1 0 0
3 1 52992 16777215 2
1 1 16711680 16777215 1
-1 
3 13 12 10 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
7 0 1 0 0
1 4 11468800 16761024 2
1 1 16711680 16777215 1
-1 
10 11 14 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
6 0 1 0 0
3 1 52992 16777215 2
1 1 16711680 16777215 1
-1 
11 15 14 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
7 0 1 0 0
1 4 11468800 16761024 2
1 1 16711680 16777215 1
-1 
16 11 14 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
7 0 1 0 0
1 4 16711680 16761024 2
1 1 16711680 16777215 1
-1 
3 9 10 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
----------
paramater
14
153.454175615953 0
1 1 0.1 1 0
74.7415381099673 0
1 1 0.1 1 0
130.769192672513 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
0 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
0 0
1 1 2 1 1
0 0
1 1 2 1 2
0 0
1 1 2 1 3
0 0
1 1 2 1 4
1 1 64
----------
KakuMode LogMode AreaMode
2 2 1 0 0 1
DrawMode SegmentShowSync
1 0
AfterImageColorNo, CanAImg
2 1
----------
ScaleS
Vlow,VHigh
-4.98472222222221 5.01527777777779
-5.02569444444445 4.97430555555555
MeshMode , Axiswidth , Sfontsize , Axismode
2 4 32 0 2 4
ViewPoint
0 45 38.0244688310254 31.6271219926201 0 0 0 1
----------
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
116
「展開図が三角形になる四面体」
＜その２＞
３点A,B,Cはドラッグできます。
折り曲げ操作は，変数{v}を動かします。
#hidescript//draws
#on s change
#if s < 0 then s := 0
#if s > a then s := a

#hidescript//drawt
#on t change
#if t < 0 then t := 0
#if t > b then t := b

#hidescript//drawu
#on u change
#if u < 0 then u := 0
#if u > c then u := c

#hidescript//SetAngle
#on A,B,C change
#X := intrP(B,[QP],C,[CQ],R,[RQ])
#a := g(Q,X,R,C)
#X := intrP(C,[CB],Q,[QP],R,[RB])
#b := g(A,X,Q,C)
#X := intrP(C,[CR],P,[PA],Q,[QR])
#c := g(A,X,Q,P)

#hidescript//drawall
#on v change
#s := 0
#t := 0
#u := 0
#if v < 0 then
#    v := 0
#    end
#endif
#x := v
#if x <= a then
#    s := x
#else
#    s := a
#    dec(x,a)
#    if x <= b then
#        t := x
#    else
#        t := b
#        dec(x,b)
#        if x <= c then
#            u := x
#        else
#            u := c
#            v := a+b+c
#        endif
#    endif
#endif

#//初期化
#s:=0
#t:=0
#u:=0
#v:=0
#Call(SetAngle)
#draw

#//Draw(1)
#for v:=0 to 89
#inc(s,a/90)
#inc(t,b/90)
#inc(u,c/90)
#draw
#next v

#//Draw(2)
#for v:=0 to 89
#inc(s,a/90)
#draw
#next v
#for v:=0 to 89
#inc(t,b/90)
#draw
#next v
#for v:=0 to 89
#inc(u,c/90)
#draw
#next v

#//Draw(H-Rotate)
#wait(200)
#v:=viewH
#for p:=v to v+359 step 2
#inc(s,a/180)
#inc(t,b/180)
#inc(u,c/180)
#SetViewPoint(p,viewV,viewD,viewA)
#draw
#next
#p:=v
#SetViewPoint(p,viewV,viewD,viewA)
#draw

#//H-Rotate
#wait(200)
#v:=viewH
#for p:=v to v+360 step 2
#SetViewPoint(p,viewV,viewD,viewA)
#draw
#next

#//V-Rotate
#wait(200)
#v:=viewV
#for p:=v to v+360  step 2
#SetViewPoint(viewH,p,viewD,viewA)
#draw
#next
----------
11
4 24 1
4 130 1
4 286 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
Table Data

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