<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倍のばす。 戻る |