<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.5 1; set C 3 1; kaiten AC 2.5;
   color 0 0 0;  addpoly AC -40 -20; addpoly CA 10 -20;
   color 224 224 224; fclosedpoly;
   color 128 128 128; closedpoly;   clearpoly;
   set D arcpoint AC -40 -20 30 70; set E arcpoint CA 10 -20 70 30;
   set F arcpoint AC -40 -20 50 50; set G arcpoint CA 10 -20 50 50;
   addpoly ED -40 -40; addpoly DF -20 -10;
   addpoly FG -40 -40; addpoly GE 0 -10;
   color 128 64 32; fclosedpoly; clearpoly;
   set H naibun DG 1 1; set I naibun DG 1 3;
   color 64 32 16; fcircle HI;
   set J arcpoint AC -40 -20 40 60; set K arcpoint AC -40 -20 45 55;
   addpoly JK 145 145; addpoly KJ 5 10;
   color 224 236 236;  fclosedpoly; clearpoly;
   set X 0 1; set Y 0 -1; sen_taisyou ACDEFGHIOX;
   addpoly AC 40 20; addpoly CA -10 20;
   color 224 224 224; fclosedpoly;
   color 128 128 128;  closedpoly; clearpoly;
   addpoly ED 40 40; addpoly DF 20 10; 
   addpoly FG 40 40; addpoly GE 0 10;
   color 128 64 32;  fclosedpoly; clearpoly;
   color 64 32 16; fcircle HI;
   set J arcpoint AC 40 20 42 58; set K arcpoint AC 40 20 47 53;
   addpoly JK -145 -145; addpoly KJ -5 -10;
   color 224 236 236; fclosedpoly; clearpoly;
">
</APPLET>

左図は上の アプレットを実行したものです。
set D arcpoint AC -40 -20 30 70;
で A から C に -40°で出て -20°で入る
アーク を 30:70 に分割する点を D とする。
 戻る