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


HSPTV!掲示板


未解決 解決 停止 削除要請

2019
0731
HSP 初心者ペンの大きさを変えるには、どうすればいいですか?2解決


HSP 初心者

リンク

2019/7/31(Wed) 11:14:16|NO.87977

ペン大きさを変えるには、どうしたらいいですか?
ヘルプを見たり、googleで調べてもよくわかりませんでした。


screen 0,640,480 screen 1,120,200 ;ツールボックス objsize 165,50 button "ペン",*pen button "画像を読み込み",*yomi button "色の変更",*iro *pen gsel 0 stick key,256 if key=256:color c1,c2,c3:line x,y,mousex,mousey x=mousex y=mousey await 1 goto *pen *yomi dialog "png",16,"実行ファイル" mes stat mes refstr picload refstr stop *iro dialog"",33:c1=ginfo_r:c2=ginfo_g:c3=ginfo_b goto *pen



この記事に返信する


よっぴー

リンク

2019/7/31(Wed) 11:39:34|NO.87978

ソース汚いのとつくりが雑なのは気にしないでください。
Artlet2Dを使いました。
通常のline命令より若干線が綺麗になります。


#include"a2d.hsp" screen 0,640,480 dim pensize pensize=4 screen 1,120,200 ;ツールボックス objsize 165,50 button "ペン",*pen button "画像を読み込み",*yomi button "色の変更",*iro alcreateimage 0,640,480 *pen gsel 0 redraw 0 color 255,255,255:boxf stick key,256 if key=256:alpenwidth pensize:alcolor c1,c2,c3:aldrawline x,y,mousex,mousey alcopyimagetoscreen 0,0 redraw 1 x=mousex y=mousey await 1 goto *pen *yomi dialog "png",16,"実行ファイル" mes stat mes refstr alloadfile refstr,0,0 redraw 0 color 255,255,255:boxf alcopyimagetoscreen 0,0 redraw 1 stop *iro dialog"",33:c1=ginfo_r:c2=ginfo_g:c3=ginfo_b goto *pen



HSP 初心者

リンク

2019/7/31(Wed) 11:57:52|NO.87982

本当にありがとうございます‼

HSP を使い始めたばっかりなので助かりました。



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