HSPTV!掲示板

ペイントツールを作っていて、
#include "user32.as"
#module
#deffunc line2 int p1, int p2, int p3, int p4, int p5;関数1
circle p1+p5,p2+p5,p1-p5,p2-p5,1
repeat p5
line p1+cnt,p2,p3+cnt,p4
line p1-cnt,p2,p3-cnt,p4
line p1,p2+cnt,p3,p4+cnt
line p1,p2-cnt,p3,p4-cnt
loop
circle p3+p5,p4+p5,p3-p5,p4-p5,1
return
#global

こんな感じで簡単に使えるようにしたのですが、少し丸が出てしまいます。
丸がないと線が一本出てしまい、綺麗な太線になりません。
他のやり方やどう変えれば綺麗な太線になりますでしょうか？
http://hspdev-wiki.net/?Paint%2Fline
ここを見ても自分にはまだわかりません。お願いします！

ＡＰＩ使うならこんな方法もあります。

#include "gdi32.as"
  mref BMSCR,67      :Orig = BMSCR(37)
  Lpen       = 0,255,0
                     :ExtCreatePen $10000 | $100,20,varptr(Lpen),0,0
  BMSCR(37)  = stat  :line 20,20,200,20
  DeleteObject stat
  Lpen       = 0,$FF00FF,0
                     :ExtCreatePen $10000       ,40,varptr(Lpen),0,0
  BMSCR(37)  = stat  :line 20,80,200,80
  DeleteObject stat
  BMSCR(37)  = Orig
  redraw

>>fortunehill
回答ありがとうございます。
でも理解ができないので関数にできますでしょうか？
お願いします。

> http://hspdev-wiki.net/?Paint%2Fline
> ここを見ても自分にはまだわかりません。お願いします！

このページの一番下に「直線描画モジュール」がありますが試されましたか？
説明もサンプルも付いているのでわかりやすい方だと思うのですが…。

>>GENKI
ありがとうございます！
下のは気づきませんでした！
これで作れます！！