<APPLET CODE="GDView0.class" WIDTH=560 HEIGHT=540> <param name=command0 value="read syoki"> <param name=syoki value=" set O 0 0; color 255 255 255; fcircle O 10; set A 0 0.5; set B 0 2; copy OOAB PQRS; kaiten SRQ 120; color 0 0 0;read moyou;set n 6; read moyou1 n; "> <param name=moyou1 value=" copy QRS OAB; read moyou; kaiten PQRS 60; "> <param name=moyou value=" read sub n; copy B D; kaiten OD 30; set E naibun OD 1 1; hkaiten OBA OE; read sub n; copy B D; kaiten OD 30; set E naibun OD 1 1; hkaiten OBA OE; read sub n; "> <param name=sub1 value=" set C naibun AB 2 3; copy BB XY; kaiten CX 60; kaiten CY -60; line AB; "> <param name=sub2 value=" read sub1; save 1 ABCXY; copy CX AB; read sub1; load 1 ABCXY ; copy CY AB; read sub1;load 1 ABCXY ; "> <param name=sub3 value=" read sub1; save 2 ABCXY;copy CX AB; read sub2; load 2 ABCXY ; copy CY AB; read sub2;load 2 ABCXY ; "> <param name=sub value=" read sub1; save 0 ABCXY; copy CX AB; read sub3; load 0 ABCXY; copy CY AB; read sub3; load 0 ABCXY ; kaiten OAB 60; "> </APPLET> 左図は上の アプレットを実行したものです。 save 0 AB; AB の座標を 0 番の待避所に待避する。 待避所は 0 から 9 まである。 save 0; 全ての座標を 0 番の待避所に待避する。 save 0 AB CD; AB の座標を CD として待避させる。 load 0 AB; 0 番の待避所から AB の座標を回復させる。 load 0; 0 番の待避所から全ての座標を回復させる。 load 0 AB CD; 0 番の待避所の CD の座標を AB として回復する。 戻る |