<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 を移動させる。 戻る |