<APPLET CODE="GDView0.class" WIDTH=600 HEIGHT=540>
<param name=choice_ddl value="ddlA">
<param name=hani0 value="ddlA 3 177 3">
<param name=precommand0 value="set_ddl_mult ddlABC 120 180 0">
<param name=command0 value="read hajime">
<param name=hajime1 value="
   read hajime1;read egaku1; read hajime2;read egaku2;
   read hajime3;read egaku3;
">
<param name=hajime1 value="
   set O 0 0;color 255 255 255;fcircle O 20;
   set_circle_points_ddl_abs 0.9 ABC ddlABC;
   copy BC ED; set D -3 0; set V 1 0; set U 5 0;
   copy ABC XYZ; kaiten XYZ DU; copy YZ HK;
   kaiten ZXY HU; copy XY EI; set W naibun KI 1 1;
   copy DHE FJG; kaiten WFJG 180;
">
<param name=egaku1 value="
   color 255 255 192; fline GKJ DHK EIH FJI;
   skigou DHEIFJGK DHEIFJGK;line DEFGD KHIJK;
">
<param name=hajime2 value="
   copy DHEIFG LMPTQS; move LMPTQS V;
   copy MT OR; kaiten LO 90; kaiten QR -90;
   set N line_line OT MR;
">
<param name=egaku2 value="
   color 255 255 192; fline SONR NMPT; skigou LPQS LPQS;
   kigou NO O NT T NM M NR R QN N;line LPQSL OT RM OR MT;
 ">
<param name=hajime3 value="
   move DHEIFJGK 1 -3.3; move LOR D;
   set X line_line HR OI; set Y line_line HK OI;
   set Z line_line HR KJ;
">
<param name=egaku3 value="
   color 255 255 196; fline XHI FIJ XYKZ;
   color 196 255 255; fline RZJ YOK;
   color 255 196 255; fline GKZR ODHY;
   skigou DEFG DEFG; skigou KHIJ KHIJ; kigou IO O KR R;
   line DEFGD KHIJK; color 100 100 255;line OI HR;
"> 
</APPLET>

左図は上の アプレットを実行したものです。
kaiten XYZ DU; で
 X を D に平行移動し
Y が半直線 DU 上にくるような回転をする。
 その変換で Z も移動させる。
   kaiten XYZUVW AB のような使い方をする。
move DHEIFJGK 1 -3.3; で
D,H,E,I,F,J,G,K を (1,-3.3) だけ平行移動させる。
move LMPTQRSO D
L が D に移る平行移動で L,M,P,T,Q,R,S,O を移動させる。

 戻る