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


HSPTV!掲示板


未解決 解決 停止 削除要請

2021
0501
雪月夜alClipModeRect2解決


雪月夜

リンク

2021/5/1(Sat) 12:10:35|NO.92727

Artlet2DにalClipModeRectというコマンドがありますが
サンプルも無いため、使い方が分かりません

どなたか教えていただけないでしょうか
ソースコードも載せてもらえると助かります
よろしくお願いします



この記事に返信する


TOMATO

リンク

2021/5/1(Sat) 12:48:53|NO.92728


#include "a2d.hsp" ; まず、Artlet2D 仮想イメージ 0 を作成します。 alCreateImage 0, 640, 480 ; GDI+ を使用することができなかった場合は、システム変数 stat に -1 が返ります。 if stat = -1 : dialog "GDI+ を初期化できませんでした。" : end button gosub "ClipOn", *ClipON button gosub "ClipOff", *ClipOFF stop *ClipON bClip = 1 gosub *draw return *ClipOFF bClip = 0 gosub *draw return *draw ; Clip if (bClip == 1) { alClipModeRect 160, 120, 320, 240 } else { alResetClipMode } ; 消去 alErase ; Artlet2D の仮想イメージ 0 での描画色を設定します。 alColor 255, 0, 0 ; 仮想イメージ上で直線を描画します。 alDrawLine 0, 0, 640, 480 ; 同様に、たくさん直線を描画してみます。 randomize 0 repeat 100 alColor rnd(255), rnd(255), rnd(255) alDrawLine rnd(640), rnd(480), 200, 200;320, 240 loop ; 仮想イメージ 0 から HSP スクリーン 0 に画像をコピーします。 color 255, 255, 255 : boxf alCopyImageToScreen 0, 0 ; HSP スクリーン 0 のディスプレイ上の画面を更新させ、結果を表示します。 redraw return



雪月夜

リンク

2021/5/2(Sun) 19:41:44|NO.92740

TOMATOさん有難うございます!



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