Grapes/3D 1.21 [Don't Edit] ---------- UserFunction 4 1 2 3 4 1 1 1 1 Y+rot(YX,YZ,w) arg(ZX&ZW,ZY&ZW) f(X,Y,Z,180-t*s) [YX]roll(arg(XY,(1,0,0))+72w,0*[Z])+X ---------- Point 22 8 9 10 11 12 13 14 1 2 4 5 6 7 15 16 17 18 19 20 21 0 3 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 3 P (0.951056516295154,0.309016994374947,0) s 0.1 t 0.1 0 0 0 255 16711680 16711680 0 1 1 1 1 0 6 0 1 1 0 0 0 Q 1 3 3 Q (0,1,0) s 0.1 t 0.1 0 0 0 255 16711680 16711680 0 1 1 1 1 0 6 0 1 1 0 0 0 R 1 3 3 R (-0.951056516295154,0.309016994374947,0) s 0.1 t 0.1 0 0 0 255 16711680 16711680 0 1 1 1 1 0 6 0 1 1 0 0 0 S 1 3 3 S (-0.587785252292473,-0.809016994374947,0) s 0.1 t 0.1 0 0 0 255 16711680 16711680 0 1 1 1 1 0 6 0 1 1 0 0 0 T 1 3 3 T (0.587785252292473,-0.809016994374947,0) s 0.1 t 0.1 0 0 0 255 16711680 16711680 0 1 1 1 1 0 6 0 1 1 0 0 0 U 1 3 3 U (0.363271264002681,2.1180339887499,0) s 0.1 t 0.1 0 0 0 36608 16711680 16711680 0 0 1 1 1 0 3 0 1 1 0 0 0 V 1 3 3 V (1.53884176858763,2.11803398874989,0) s 0.1 t 0.1 0 0 0 36608 16711680 16711680 0 0 1 1 1 0 3 0 1 1 0 0 0 A 1 1 1 A (0,0,0) s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 0 1 1 1 1 0 2 0 1 1 0 0 0 B 1 1 1 B (0,1,0) s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 0 0 1 1 1 0 1 0 1 1 0 0 0 C 1 1 1 C (-0.951056516295154,0.309016994374947,0) 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 D 1 1 3 D (-0.587785252292473,-0.809016994374947,0) s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 0 0 1 1 1 0 1 0 1 1 0 0 0 E 1 1 3 E (0.587785252292473,-0.809016994374947,0) s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 0 0 1 1 1 0 1 0 1 1 0 0 0 F 1 1 3 F (0.951056516295154,0.309016994374947,0) s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 0 0 1 1 1 0 1 0 1 1 0 0 0 G 1 3 3 G (1.90211303259031,1,0) s 0.1 t 0.1 0 0 0 36608 16711680 16711680 0 0 1 1 1 0 3 0 1 1 0 0 0 H 1 3 3 H (3.07768353717526,1,0) s 0.1 t 0.1 0 0 0 36608 16711680 16711680 0 0 1 1 1 0 2 0 1 1 0 0 0 I 1 3 3 I (3.44095480117794,2.1180339887499,0) s 0.1 t 0.1 0 0 0 36608 16711680 16711680 0 0 1 1 1 0 2 0 1 1 0 0 0 J 1 3 3 J (2.48989828488278,2.80901699437495,0) s 0.1 t 0.1 0 0 0 36608 16711680 16711680 0 0 1 1 1 0 3 0 1 1 0 0 0 K 1 3 3 K (2.85316954888546,3.92705098312485,0) s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 0 0 1 1 1 0 3 0 1 1 0 0 0 L 1 3 3 L (4.0287400534704,3.92705098312486,0) s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 0 0 1 1 1 0 3 0 1 1 0 0 0 M 1 3 3 M (4.39201131747309,2.80901699437496,0) s 0.1 t 0.1 0 0 0 16711680 16711680 16711680 0 0 1 1 1 0 3 0 1 1 0 0 0 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 4 7 1 1 0 0 1 1 36608 16777215 3 1 1 16711680 16777215 1 0 2 3 4 5 1 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 36608 16777215 3 1 1 16711680 16777215 1 0 2 6 7 14 1 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 36608 16777215 3 1 1 16711680 16777215 1 0 14 15 16 17 7 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 36608 16777215 3 1 1 16711680 16777215 1 0 17 18 19 20 16 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ---------- paramater 14 180 0 1 1 0.1 1 0 90 0 1 1 0.1 1 0 39 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 10 0 1 1 1 1 2 1 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 370 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 5 1 1 1 0 1 1 5 1 0 360 0 1 1 1 1 0 -79 0 1 1 5 1 0 1 1 1 ---------- KakuMode LogMode AreaMode 2 2 1 0 0 1 DrawMode SegmentShowSync 1 0 AfterImageColorNo, CanAImg 0 1 ---------- ScaleS Vlow,VHigh -4.84304328742324 5.15695671257676 -4.41365890035472 5.58634109964528 MeshMode , Axiswidth , Sfontsize , Axismode , AxesColor 2 3 24 0 1 4 1 ViewPoint -79 39 8 60 0 0 0 1 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 581 0 0 693 0 0 0 1 0 1 1 ---------- MEMO SECTION Style, Color, BGcolor , Size, PositionX, positionY 3 1 0 14 221 このファィルは、 データがすこし重い！ {s}:面角を変化させる 手動時のパラメータ {k}:アニメの速さ 特別な「例３」について 【説明】 連結図形Ｌ４の残像をＯｎにし て、「例３」を押すと・・・ #//初期化 #a:=180 #s:=0 #t:=1 #SetViewPoint(-79,39,8,60) #ClrAImgData #Calc #CALL(DD) #Call(D) #//【描画１】 #ClrAImg #for s:=0 to 63.5 step 0.5*k #Call(D) #next #s:=63.5 #Call(D) #Wait(300) #Call(【横回転】) #for s:=63.5 to 116.56 step 0.5*k #Call(D) #next #s:=116.56 #Call(D) #Wait(300) #Call(【横回転】) #for s:=116.5 to 180 step 0.5*k #Call(D) #next #s:=180 #Call(D) #Wait(300) #for s:=180 to 0 step -k #Call(D) #next #s:=0 #Call(D) #//【描画２】 #CALL(初期化) #v:=viewH #for s:=0 to 180 step 0.5*k #u:=v+s # SetViewPoint(u,viewV,viewD,viewA) #Call(D) #next #wait(1000) #for s:=180 to 0 step -0.6*k #u:=v-s # SetViewPoint(u,viewV,viewD,viewA) #Call(D) #next #//例１「正１２面体」 #s := 63.5 #Call(D) #//例２「５角の家？☆？(Beer?)」 #s := 96 #Call(D) #for u:=0 to 1 step 0.1 #SetViewPoint(-79(1-u)+90*u,39*(1-u)+90*u,8*(1-u)+7.8*u,60*(1-u)+25*u) #Call(D) #next #Wait(200) #Call(【横回転】) #for u:=1 to 0 step -0.1 #SetViewPoint(-79(1-u)+90*u,39*(1-u)+90*u,8*(1-u)+7.8*u,60*(1-u)+25*u) #Call(D) #next #//例３「正２０面体(足らず)」 #s := 116.56 #Call(D) #Wait(200) #Call(【横回転】) #hidescript// #on k change #if k<=1 then k:=1 #if k>=30 then k:=30 #hidescript//D #on s change #ClrAImgData #CAll(D0) #Calc #CALL(D1) #Calc #CALL(D2) #Calc #CALL(D3) #Calc #CALL(D4) #Calc #Refresh #hidescript//DD #a:=180 #A:=(0,0,0) #B:=A+(0,1,0) #b:=arg(AB,(1,0,0)) #C:=A+[AB](cos(b+72),sin(b+72),0) #D:=A+[AB](cos(b+144),sin(b+144),0) #E:=A+[AB](cos(b+216),sin(b+216),0) #F:=A+[AB](cos(b+288),sin(b+288),0) #hidescript//D0 #P:=B #Q:=C #R:=D #S:=E #T:=F #U:=h(R,P,Q) #V:=h(S,P,Q) #G:=h(T,P,Q) #H:=h(P,G,V) #I:=h(Q,G,V) #J:=h(U,G,V) #K:=h(V,I,J) #L:=h(G,I,J) #M:=h(H,I,J) #hidescript//D1 #P:=C #Q:=D #R:=E #S:=F #T:=B #U:=h(R,P,Q) #V:=h(S,P,Q) #G:=h(T,P,Q) #H:=h(P,G,V) #I:=h(Q,G,V) #J:=h(U,G,V) #K:=h(V,I,J) #L:=h(G,I,J) #M:=h(H,I,J) #hidescript//D2 #P:=D #Q:=E #R:=F #S:=B #T:=C #U:=h(R,P,Q) #V:=h(S,P,Q) #G:=h(T,P,Q) #H:=h(P,G,V) #I:=h(Q,G,V) #J:=h(U,G,V) #K:=h(V,I,J) #L:=h(G,I,J) #M:=h(H,I,J) #hidescript//D3 #P:=E #Q:=F #R:=B #S:=C #T:=D #U:=h(R,P,Q) #V:=h(S,P,Q) #G:=h(T,P,Q) #H:=h(P,G,V) #I:=h(Q,G,V) #J:=h(U,G,V) #K:=h(V,I,J) #L:=h(G,I,J) #M:=h(H,I,J) #hidescript//D4 #P:=F #Q:=B #R:=C #S:=D #T:=E #U:=h(R,P,Q) #V:=h(S,P,Q) #G:=h(T,P,Q) #H:=h(P,G,V) #I:=h(Q,G,V) #J:=h(U,G,V) #K:=h(V,I,J) #L:=h(G,I,J) #M:=h(H,I,J) #//【横回転】 #v:=viewH #for u:=v to v+360 step 0.1*k # SetViewPoint(u,viewV,viewD,viewA) # Draw #next u #//【縦回転】 #v:=viewV #for u:=v to v+360 step 0.1*k # SetViewPoint(viewH,u,viewD,viewA) # Draw #next u #//【斜回転】 #v:=viewH #c:=viewV #for u:=0 to 360 step 0.1*k # SetViewPoint(v+u,c+u,viewD,viewA) # Draw #next u ---------- 11 4 24 1 4 92 1 4 188 1 4 200 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 Table Data ---------- SimpleMemo SECTION 0 ----------