<param name=step1 value=" color 255 0 0; point AOX;">
<param name=dat1 value="
   set A 2 0; copy AA BX; kaiten OB 90;
   kaiten OX 180;  set C naibun OB 1 3; set Y naibun OB 1 1;
">
<param name=egaku1 value="
   read dat1; color 0 0 0; circle OA; line XA; 
   kigou OA A BO O OX A';  point AOX; 
">
<param name=egaku2 value="
   color 0 0 0; line OB; kigou AB B;  point B;
">
<param name=step2 value="
   color 0 0 255; circle XA;circle AX;
   set Y en_en XA AX 0; line OY;
">
<param name=step3 value=" color 255 0 0; point B;">
<param name=step4 value="
   color 0 0 255;  circle BO; set U en_en BO OB 0;
   set V en_en BO OB 1; line UV; circle YO; circle OY;
   set U en_en YO OY 0; set V en_en YO OY 1;line UV;
   color 255 0 0; point C; kigou AC C;
">
<param name=dat2 value="
   set D en_line CO AC 1; set E en_line CO AC 0;
   copy ADD XPF; move XPF O; kaiten OF OB;
   set G en_line FO AF 0;  set H naibun AG 1 1;
   copy AEE XQI; move XQI O; kaiten OI OB;
   set J en_line IO AI 1; set K en_line AJ AO 0;
   set X naibun AO 1 1; copy O Y; kaiten KY 90;
   set L en_line XO KY 0;  set X naibun AH 1 1;
   set M en_en XA AL 0;  set N en_line HM HA 0;
">
<param name=egaku3 value="
   read dat2; color 192 192 255; circle CO;
   line_hinf AC; kigou OD D BE E AC C; point CDE;
">
<param name=step5 value="
   color 0 0 255; circle CO; line_hinf AC;
   color 255 0 0; point DE;
">