<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 として回復する。
 戻る