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 13 12 10 8 9 11 0 2 3 4 5 6 7 0 0 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 3 1 P f(U,Q,R,u) s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 0 0 0 1 1 3 0 1 1 0 0 0 Q 1 5 1 Q f(T,E,R,t) s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 0 0 0 1 1 3 0 1 1 0 0 0 R 1 3 1 R f(F,E,C,s) s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 0 0 0 1 1 3 0 1 1 0 0 0 S 1 3 1 S f(A,E,C,s) s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 0 0 0 1 1 3 0 1 1 0 0 0 T 1 3 1 T f(D,E,C,s) s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 0 0 0 1 1 3 0 1 1 0 0 0 U 1 13 1 U f(S,E,R,t) s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 0 0 0 1 1 3 0 1 1 0 0 0 V 0 0 1 A 1 12 1 A (-2.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 B 1 12 1 B (-2.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 C 1 3 1 C (2.01,-3.05,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 12 3 D A+[BC]unit(AB) s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 0 0 0 1 1 3 0 1 1 0 0 0 E 1 12 1 E mid(B,D) s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 0 0 0 1 1 3 0 1 1 0 0 0 F 1 10 1 F mid(A,C) s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 0 0 0 1 1 3 0 1 1 0 0 0 G 0 0 1 H 0 0 1 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 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 3 1 52992 16777215 2 1 1 16711680 16777215 1 -1 12 4 3 5 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 3 12 10 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 3 1 52992 16777215 2 1 1 16711680 16777215 1 -1 6 12 3 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 3 12 2 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 1 2 3 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 10 12 13 11 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 12 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 140.837228118745 0 1 1 0.1 1 0 81.3001000332103 0 1 1 0.1 1 0 109.831576690468 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 180 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 1 ---------- KakuMode LogMode AreaMode 2 2 1 0 0 1 DrawMode SegmentShowSync 1 0 AfterImageColorNo, CanAImg 2 1 ---------- ScaleS Vlow,VHigh -5 5 -5 5 MeshMode , Axiswidth , Sfontsize , Axismode 2 4 32 0 1 4 ViewPoint 180 62.5 23.0046912656219 30 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 115 「展開図が三角形になる四面体」 その３ ３点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 #X := intrP(C,[CF],E,[EF],B,[DF]) #a := g(A,X,E,C) #b := g(f(A,E,C,a),B,E,X) #c := g(2B-E,C,B,X) #//初期化 #on A,B,C change #s := 0 #t := 0 #u := 0 #v := 0 #call(SetAngle) #draw #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 #//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 154 1 4 140 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 ----------