#include "a2d.hsp" ; 仮想イメージ 0 を作成 alCreateImage 0, 640, 480 if stat = -1 : dialog "GDI+ を初期化できませんでした。" : end d = 600.0 // 半径 // s0=1.5にしても、200以下ぐらいにするとズレる f = d*0.9 // 太さ px = -d/2 + 20 py = -d/2 + 20 r0 = 0.0 // 開始角度 r1 = 90.0 // 終了角度 s0 = 0.0 // 描画角度を延長 // s0 = 1.5 度にすると綺麗に水平垂直になる r0 -= s0 r1 += s0*2 // 目安線 alColor 0, 0,0, 255 alPenWidth 1 alDrawLine px+d/2,py+d/2, px+d*2,py+d/2 alDrawLine px+d/2,py+d/2, px+d/2,py+d*2 // 円弧 alColor 255, 0,0, 127 alPenWidth f alDrawArc px,py, d,d, r0,r1 alCopyImageToScreen 0, 0 redraw