Artlet2Dの円弧のバグ | Codetter（こーどったー）

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
#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
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX