<APPLET CODE="GDView0.class" WIDTH=600 HEIGHT=540>
<param name=command0 value="read hajime">
<param name=hajime value="
   set O 0 0; color 255 255 255;fcircle O 20;
   set C 2 0; set A 1 2; set B -2 0; copy CA XY;read egaku;
">
<param name=egaku value="
   color 0 0 0; line ABCA;
   color 0 100 255;
   set Z naibun BC 4 1; read senhiki;
   set Z naibun BC 3 2; read senhiki;
   set Z naibun BC 2 3; read senhiki;
   set Z naibun BC 1 4; read senhiki;
">
<param name=senhiki value="
   move XY Z; line_inf XY;
">
</APPLET>

左図は上の アプレットを実行したものです。
set Z naibun BC 4 1;
で BC を 4:1 に内分した点を Z に設定しています。
move XY Z;
で X を Z に移動して、同じ平行移動で Y を移動しています。
line_inf XY; で直線をかく。
XY の左右に約10倍のばす。

 戻る