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 18 19 20 1 2 3 9 10 11 12 13 14 15 16 17 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 (A+B)/2 s 0.1 t 0.1 0 0 0 175 16711680 16711680 0 0 0 1 1 0 1 0 1 1 0 0 0 Q 1 13 1 Q (B+C)/2 s 0.1 t 0.1 0 0 0 175 16711680 16711680 0 0 0 1 1 0 1 0 1 1 0 0 0 R 1 7 1 R (A+C)/2 s 0.1 t 0.1 0 0 0 175 16711680 16711680 0 0 0 1 1 0 1 0 1 1 0 0 0 S 1 0 1 S intrP(P,[PA],Q,[QB],R,[RC]) s 0.1 t 0.1 0 0 0 36608 16711680 16711680 0 1 0 1 1 0 6 0 1 1 0 0 0 T 1 0 1 T (F+R)/2 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 (R+Q)/2 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 1 0 1 V (Q+F)/2 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 A 1 13 1 A (3.00,-3Sqrt(3),m) s 0.1 t 0.1 0 0 0 175 16711680 16711680 0 0 0 1 1 0 1 0 1 1 0 0 0 B 1 11 1 B (3.00,3Sqrt(3),m) s 0.1 t 0.1 0 0 0 175 16711680 16711680 0 0 0 1 1 0 1 0 1 1 0 0 0 C 1 3 1 C (-6,0,m) s 0.1 t 0.1 0 0 0 175 16711680 16711680 0 0 0 1 1 0 1 0 1 1 0 0 0 D 1 0 1 D f(A,P,R,s) 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 E 1 0 1 E f(B,Q,P,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 0 1 F f(C,R,Q,u) 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 G 1 0 1 G (D+P)/2 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 0 1 H (P+R)/2 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 1 0 1 I (R+D)/2 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 J 1 0 1 J (E+P)/2 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 K 1 0 1 K (P+Q)/2 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 L 1 0 1 L (Q+E)/2 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 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 255 16711680 16711680 0 0 0 1 1 0 3 0 1 1 0 0 0 ---------- Segments 10 7 0 0 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 7 0 1 0 0 1 1 175 16777215 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 7 0 1 0 0 1 4 11468800 16761024 2 1 1 16711680 16777215 1 -1 11 1 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 12 1 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 11468800 16761024 2 1 1 16711680 16777215 1 -1 13 2 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 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 7 0 1 0 0 1 1 255 16777215 8 1 1 16711680 16777215 1 0 14 15 16 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 1 255 16777215 8 1 1 16711680 16777215 1 0 17 18 19 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 1 255 16777215 8 1 1 16711680 16777215 1 0 7 5 6 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 1 255 16777215 8 1 1 16711680 16777215 1 0 18 6 15 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ---------- paramater 14 109.471220634491 0 1 1 0.1 1 0 109.471220634491 0 1 1 0.1 1 0 109.471220634491 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 -1.2 0 1 1 0.1 1 5 1 0 1 1 0.1 1 0 397.018672827493 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 1 1 1 0 0 1 1 1 1 2 0 0 1 1 1 1 3 0 0 1 1 5 1 4 1 1 0 ---------- KakuMode LogMode AreaMode 2 2 1 1 0 1 30 1 DrawMode SegmentShowSync 1 0 AfterImageColorNo, CanAImg 2 1 ---------- ScaleS Vlow,VHigh -4.62916666666666 5.37083333333334 -5.00347222222223 4.99652777777777 MeshMode , Axiswidth , initSfontsize , Axismode , AxesColor 0 3 32 0 2 4 1 ViewPoint -25.259882109432 37.018672827493 34.7479554960586 20.050402893689 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 1000 1000 427 0 1000 187 427 0 0 0 1 0 1 1 ---------- MEMO SECTION Style, Color, BGcolor , Size, PositionX, positionY 3 1 0 12 111 正四面体と正八面体 #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(P,[PA],Q,[QB],R,[RC]) #a := g(A,X,P,R) #b := g(B,X,Q,P) #c := g(C,X,R,Q) #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 #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 82 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 200 Table Data 60 60 60 60 60 60 60 60 60 60 ---------- SimpleMemo SECTION 0 ----------