HSPTV!掲示板

スレッド一覧 | 新規書き込み | 新着一覧 | 使い方 | 過去ログ

未解決

解決

停止

削除要請


	2023 0202	T.S	ハートの描画について	4

T.S

2023/2/2(Thu) 17:23:44|NO.99065

某RPGのようなハートマークを描画してみたくてやってみたのですが、これはハートマークに見えるでしょうか？

#include "a2d.hsp"
color 0,0,0 : boxf
arr=318,245, 337,245, 328,258
alCreateImage 0,640,480

alColor 255,0,0,255
alFillPoly arr, 3
alFillEllip 318,239,9,10
alFillEllip 328,239,9,10
alCopyImageToScreen 0,0
redraw

また、描画するのにもっとよい方法があったら教えていただきたいです。
よろしくお願いします。

この記事に返信する

wee

2023/2/2(Thu) 19:04:54|NO.99066

utf8でもいいなら



#include "hsp3utf.as
color 255
font msgothic,100
;標準エディタでハートマークを記入できないのでpokeを使う
;utf8に対応したエディタなら直接記入していい
a=""
poke a,0,0xe2
poke a,1,0x99
poke a,2,0xa5
poke a,3,0
pos 290,190
mes a

調べたらシフトJISにもハートがあるみたい
ただし外字領域なのでどの環境でも表示できるかは不明。



color 255
font msgothic,100
;標準エディタでも記入できるけど掲示板が対応してないのでpokeを使う
a=""
poke a,0,0xf0
poke a,1,0xe6
poke a,3,0
pos 290,190
mes a

沢渡

2023/2/2(Thu) 19:24:14|NO.99067

ちょっとこの↓サイトを参考にやってみました。
https://yayoi-blog.info/16130.html



//参考：https://yayoi-blog.info/16130.html
#include "a2d.hsp"
color 0,0,0 : boxf

w=24	//ハートマークの大きさ(このサイズの正方形におさまる大きさに)

alCreateImage 0,w,w : alSelectImage 0
alColor 255,0,0,255

alFillEllip 0,0,w/2,w*10000/9571/2
alFillEllip w/2,0,w/2,w*10000/9571/2

w2=w*3/2 : h2=w2*10000/9571
alCreateImage 1,w2,h2 : alSelectImage 1
alColor 255,0,0,255
alFillEllip 0,0,w2,h2

alSelectImage 0
y=w*10000/9571/4
alCopyImageToImage 1,0, 0,y, w/2,w-y, 0,h2/2
alCopyImageToImage 1,0, w/2,y, w/2,w-y, w2-w/2,h2/2
alDeleteImage 1

//この時点で仮想イメージ0にw×wのハートマークが完成している

alCopyImageToScreen 0,0, 100,100, w,w,0,0	//座標(100,100)に描画してみる
redraw

沢渡

2023/2/4(Sat) 17:01:24|NO.99074

すみません、ちょっとだけ修正です。
リンク先で言う⑧の処理を行うのを忘れていたので、それを追加です。
(たぶんほんの僅かの違いしかないとは思いますが)



//参考：https://yayoi-blog.info/16130.html
#include "a2d.hsp"
color 0,0,0 : boxf

w=24	//ハートマークの大きさ(このサイズの正方形におさまる大きさに)

alCreateImage 0,w,w : alSelectImage 0
alColor 255,0,0,255

alFillEllip 0,0,w/2,w*10000/9571/2
alFillEllip w/2,0,w/2,w*10000/9571/2

w2=w*3/2 : h2=w2*10000/9571
alCreateImage 1,w2,h2 : alSelectImage 1
alColor 255,0,0,255
alFillEllip 0,0,w2,h2

alSelectImage 0
y=w*10000/9571/4
alCopyImageToImage 1,0, 0,y, w/2,w-y, 0,h2/2
alCopyImageToImage 1,0, w/2,y, w/2,w-y, w2-w/2,h2/2

//ハートの食い込んだ部分
w2=w*6872/10000 : h2=w2*10000/9571
alCreateImage 1,w2,h2 : alSelectImage 1
alColor 255,0,0,255
alFillEllip 0,0,w2,h2
alSelectImage 0
alcolor 0,0,0,0
alFillRect w/4,0,w*5/6-w/12-w/4,h/3
alCopyImageToImage 1,0, w/4,0, w2/2-w/12,h/3, w2/2+w/12,h2/2-h/3
alCopyImageToImage 1,0, w*5/6-w2/2,0, w2/2-w/12,h/3, 0,h2/2-h/3

alDeleteImage 1
//この時点で仮想イメージ0にw×wのハートマークが完成している

alCopyImageToScreen 0,0, 100,100, w,w,0,0	//座標(100,100)に描画してみる
redraw

T.S

2023/2/7(Tue) 16:42:07|NO.99083

weeさん、沢渡さんありがとうございました。
参考にさせていただきます。

NO.99065への返信

初めて利用する方は、HSP3掲示板の使い方をお読みください。
不要部分の多い長いスクリプトの投稿はご遠慮ください。
書き込みは自動改行されません。適度に改行を入れてください。
スクリプトは小文字の<pre>～</pre>で囲むと見やすく表示できます。

削除用パスワード

解決したら質問者本人がここをチェックしてください。


エラー発生時、再送信すると二重送信になることがあります。回答が得られたら、お礼書き込み時に[解決]チェックしてください。 SPAM防止のためURLから始まる文章は投稿できません。 SPAM防止のため英文字のみの本文を投稿することはできません。