HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2012
0310
まっちゃ太線を描きたいのですが…4解決


まっちゃ

リンク

2012/3/10(Sat) 09:11:03|NO.45327

ペイントツールを作っていて、
#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
ここを見ても自分にはまだわかりません。お願いします!



この記事に返信する


fortunehill

リンク

2012/3/10(Sat) 15:52:16|NO.45338

API使うならこんな方法もあります。


#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



まっちゃ

リンク

2012/3/10(Sat) 17:31:49|NO.45340

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



GENKI

リンク

2012/3/10(Sat) 18:59:04|NO.45345

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

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



まっちゃ

リンク

2012/3/10(Sat) 19:43:44|NO.45347

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



ONION software Copyright 1997-2023(c) All rights reserved.