2.3 番外編: 素朴に頂点座標を読み取って

百円ショップでコンパスと分度器を買って、 ネットで方眼紙を入手して、 実際に星を描いて、座標を読み取って…

naivestar.BAS

REM naivestar.BAS --- 素朴に座標を与えて星を描く
DIM x(10),y(10)
LET x(1)=4.8
LET y(1)=1.5
LET x(2)=1.1
LET y(2)=1.55
LET x(3)=0
LET y(3)=5
LET x(4)=-1.1
LET y(4)=1.55
LET x(5)=-4.75
LET y(5)=1.5
LET x(6)=-1.8
LET y(6)=-0.6
LET x(7)=-2.9
LET y(7)=-4
LET x(8)=0
LET y(8)=-1.9
LET x(9)=2.9
LET y(9)=-4
LET x(10)=1.8
LET y(10)=-0.6
SET WINDOW -5,5,-5,5
SET AREA COLOR "red"
MAT PLOT AREA : x,y
END