お絵描きツールを作ろう - HSP開発wiki

hinekure.net が http://hspdev-wiki.net/ から自動クローリングした結果を表示しています。画像やリソースなどのリンクが切れています。予めご了承ください。

お絵描きツールを作ろう - HSP開発wiki

OFFICIAL/関連

TUTORIAL

HSP基礎講座

TOPICS

ETC

EDIT

REFERENCE

LOG

お知らせ

お知らせ

HSP Web-Ring

前<-ランダム->次

最新の40件

2013-11-28

外部リンク

2013-11-25

2013-11-24

RecentDeleted

2013-11-23

ソフト開発

2013-11-14

HSPのフォームデザインソフト

2013-11-13

2013-11-10

TUT/calc

2013-11-06

ネタ収集BOX/1

2013-10-23

INIファイル操作モジュール

2013-10-21

String/矩形

2013-10-20

小ワザのその他

2013-10-15

実行結果図鑑

2013-10-12

ソフト開発/HSPLet3拡張ライブラリ/Tips

2013-10-06

Module/hspdb(SQLite版)

2013-09-15

小ワザ/モーダルダイアログ

2013-08-28

2013-08-26

Web Browserを作ろう

2013-08-15

2013-08-06

2013-08-05

ネットワークFPSを作ろう！！

2013-08-02

半透明ウインドウ

2013-07-05

小ワザ/ストップウォッチ

2013-07-02

2013-06-29

2013-06-28

Math/2次Bスプライン関数

2013-06-27

小ワザ/アクション/基本動作

2013-06-25

ＩＭＥの制御

2013-06-14

eller

2013-06-01

Math/平面回転

2013-05-29

衝突判定

2013-05-28

雑談

total: 8724
today: 1
yesterday: 1
now: 1

お絵描きツールを作ろう †

HSP2.6で適当に再現機能付きお絵描きツールを作ってみよう。
3.0では2.6でできる省略ができず実行速度が遅い。
できれば、標準命令のみで。

お絵描きツールを作ろう
適当な目的
適当なアイデア
適当な仕様
適当なスクリプト
適当なサンプル
適当なコメント

適当な目的 †

お絵描きツールとして必要な機能の追加。
描画データを極限まで小さくすること。

保存データを絶対値に変換する(相対値はミスが怖い)
絶対値に変換したデータに手を加えることで容量を小さくする
ただし、純粋な描画順序の再現とはいかない
極論を言えば最終画像を元に再現でもいい（絵描き屋さん？）
複数のファイル形式で保存できるようにする

適当なアイデア †

保存データのbit処理とか
- 1,xx,yy (5byte):始点
- 2,rgb(4byte):カラーコード
- 4,p(2byte):ペンサイズ
- 例：7,p,rgb,xxyy,(9byte):ペンサイズ、カラー、始点の処理

適当に他力本願

閉鎖領域を、一筆書きで線座標に格納するようなスクリプト -- たくあん?
パスワードがわからなくて文章編集できないな -- たくあん? 2008-05-07 (水) 02:02:12

適当な仕様 †

コマンド

ESC		データの読み込み
ENTER		データの書き込み
TAB		一度だけのアンドゥ
→		再描画
・↑		描画時のウェイトの増加
・↓		描画時のウェイトの減少
SPACE		ズーム窓の有無
・↑		ズーム窓の拡大率上昇
・↓		ズーム窓の縮小率下降

保存データの内訳。

xとyの値は相対値で保存。
1,x,xy,yとすることで4byteにできるが-768～768(256*3)の相対値しかとれず、展開に時間がかかる。
相対データでは-7～7の圧縮モードがあるためそんなに必要でもない。
現状で詰め込める機能は＠6個。

1 = 1,xx,yy		5 byte:始点
2 = 2,r,g,b		4 byte:カラーコード
3 = 3,p			2 byte:ペンサイズ
4 = 4,b,g,r		4 byte:マスク
5 = 5,xx,yy		5 byte:塗りつぶし
6 = 6,a			2 byte:合成値
7 = 7,b,g,r		4 byte:逆マスク
8 = 8,xx,yy,xx,yy,xx,yy	13byte:コピー
15=15,xx,yy		5 byte:中継点
! =xy			1 byte:中継点(-7～7範囲で)

適当なスクリプト †

Everything is expanded.

Everything is shortened.

;(20070204.txt)
 
#include"t_mod.txt"
#include"t_fill.txt" ;変更

+

20070204.txt

20070204.txt

Everything is expanded.

Everything is shortened.

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
-
-
|
|
|
|
|
|
|
|
!
!
-
-
|
|
|
|
|
|
-
|
|
|
!
|
-
-
|
|
|
|
|
|
-
|
|
|
|
|
|
|
!
|
!
|
|
|
|
!
!
|
!
-
|
-
|
|
|
!
-
|
-
|
|
|
|
-
|
|
!
!
|
-
-
|
|
|
|
|
|
-
|
|
|
|
|
|
|
!
|
!
-
|
|
|
|
|
!
|
|
!
-
|
|
|
!
!
-
-
|
|
|
|
|
|
|
|
|
|
!
|
!
-
-
|
|
|
|
|
!
!
-
-
|
|
|
|
|
|
|
|
|
!
!
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
!
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
|
|
|
-
|
-
|
|
|
!
|
|
|
!
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
|
!
 
 
-
|
|
|
-
|
-
|
|
|
!
|
|
|
|
|
|
!
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
|
|
|
!
 
 
-
|
|
|
|
|
|
|
|
|
|
|
|
|
|
!
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
|
|
|
!
 
 
-
|
|
|
|
|
|
|
|
|
|
|
|
|
!
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
!
-
|
|
|
|
|
!
-
|
|
-
|
|
|
|
|
!
!
-
|
|
|
!
-
|
|
|
|
!
 
 
-
|
|
|
|
!
-
-
|
|
|
!
|
!
 
 
 
 
 
 
 
-
|
|
|
!
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
|
|
!
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
|
|
!

    #include"t_mod.txt"
;	#include"fill5.txt"
 
    #define zwx 240
    #define zwy 240
    #define zw zwx*zwy*3
    #define pwx 24
    #define pwy 24
    #define pw pwx*pwy*3
 
    wx=480:wy=360
    w3=wx*wy*3
 
    screen 0,wx,wy:gsel 0,1:ginfo 2
    title"BS_draw"
    mref vram,66
    sdim bram,w3
    memcpy bram,vram,w3
    x=0:y=0:bx=0:by=0
    dim r,9:dim g,9:dim b,9:dim a,9:dim p,9
    r=1:g=1:b=1:a=256:p=1
 
    r.1=1:g.1=1:b.1=1:a.1=256:p.1=1
    repeat 7,2
    r.cnt=255:g.cnt=255:b.cnt=255:a.cnt=256:p.cnt=1
    loop
    sdim buf,128000
 
    screen 3,128,128,4,prmx+wx+5,prmy
    title"New data"
    gosub *pal_draw
 
    buffer 5,wx,wy
    color:boxf:mref vram5,66    ;VRAMの取得
 
    buffer 2,pwx,pwy    ;PEN_
    mref vram2,66        ;VRAM取得
    sdim bram2,PW        ;待避用
    sdim cram2,PW        ;比較or待避用
    sdim dram2,PW        ;比較用
    gosub *change
 
    screen 4,zwx,zwy,6,prmx,prmy:gsel 0:gmode 4,p,p,a
 
*main
    await 1,10
    stick click,768,1
    if click==256{
        ginfo 1
        if prmx : else{
            if z{
                tmp=zwx>>z>>1
                px=mousex-tmp:py=mousey-tmp
                tmp=zwx>>z
                if px<0:px=0
                if winx-tmp<px:px=winx-tmp
                if py<0:py=0
                if winy-tmp<py:py=winy-tmp
                gsel 4:gzoom zwx,zwy,0,px,py,tmp,tmp:gsel 0
            }else gosub *paint
        }
        if prmx-3:else{
            if mousex<128{
            tmp=mousey>>4
            
            if tmp==0:if mousex<86:r=mousex*3 : else:if mousex<94:r=255:else:if r-255:r++:wait 15
            if tmp==1:if mousex<86:g=mousex*3 : else:if mousex<94:g=255:else:if g-255:g++:wait 15
            if tmp==2:if mousex<86:b=mousex*3 : else:if mousex<94:b=255:else:if b-255:b++:wait 15
            if tmp==3:if mousex<86:a=mousex*3+1:else:if mousex<94:a=256:else:if a-256:a++:wait 15
            if tmp==4{
                if mousex<86:p=mousex+1:else:if p-256:p++:wait 15
                if pwy-2<p:p=pwy-2
                tp=p>>1
            }
            if tmp==5:gosub *click_wait:pt++:if 4<pt:pt=0:tmp=5
            if tmp==6{
                if 112<mousex{
                    wpoke buf,n  ,4
                    wpoke buf,n+2,0
                    n+4:bn=n
                    gosub *click_wait
                    gsel 5:color:boxf:gsel 0
                    m=0
                }else{
                    wpoke buf,n  ,b<<8+4
                    wpoke buf,n+2,r<<8+g
                    n+4:bn=n
                    gosub *click_wait
                    rgb=r<<8+g<<8+b
                    gosub *masking
                    m=1
                }
                tmp=6
            }
            if tmp==7:tmp=mousex>>4+1:r.tmp=r:g.tmp=g:b.tmp=b:a.tmp=a:p.tmp=p
 
            gosub *pal_draw
            gosub *change
            }
        }
        if prmx-4:else gosub *paint
    }
    if click==512{
        ginfo 1
        if prmx : else{
        pget mousex,mousey:r=rval:g=gval:b=bval
        gosub *pal_draw
        gosub *change
        }
        if prmx-3:else{
            tmp=mousey>>4
            if mousex>=94{
                if tmp==0:if r-0:r--:wait 15
                if tmp==1:if g-0:g--:wait 15
                if tmp==2:if b-0:b--:wait 15
                if tmp==3:if a-1:a--:wait 15
                if tmp==4:if p-1:p--:wait 15{
                    if pwy-2<p:p=pwy-2
                    tp=p>>1
                }
            }
            if tmp==5:gosub *click_wait:tmp=5:if pt-0:pt--
            if tmp==6{
                if 112<mousex{
                    wpoke buf,n  ,7
                    wpoke buf,n+2,0:n+4
                    bn=n
                    gosub *click_wait
                    gsel 5:color:boxf:gsel 0
                    m=0
                }else{
                    rgb=r<<8+g<<8+b
                    if rgb:wpoke buf,n,b<<8+7:else wpoke buf,n,b<<8+4
                    wpoke buf,n+2,r<<8+g:n+4
                    bn=n
                    gosub *click_wait
                    gosub *rMasking
                    m=1
                }
                tmp=6
            }
            if tmp==7{
                tmp=mousex>>4+1
                r=r.tmp:g=g.tmp:b=b.tmp:a=a.tmp
                if p-p.tmp:p=p.tmp:tp=p>>1
                gosub *click_wait
                tmp=7
            }
            gosub *pal_draw
            gosub *change
        }
        if prmx-4:else{
        pget mousex>>z+px,mousey>>z+py:r=rval:g=gval:b=bval
        gosub *pal_draw
        gosub *change
        }
    }
    if click==16{
        if z:gsel 4,-1:z=0:else{
            gsel 0:z++
            tmp=zwx>>z>>1
            px=mousex-tmp:py=mousey-tmp
            tmp=zwx>>z
            if px<0:px=0
            if winx-tmp<px:px=winx-tmp
            if py<0:py=0
            if winy-tmp<py:py=winy-tmp
            gsel 4,2
            gzoom zwx,zwy,0,px,py,tmp,tmp
        }
        gsel 0
    }
    if click==2{
        if z:if z-4{
            z++:tmp=zwx>>z>>1:px+tmp:py+tmp
            gsel 4
            tmp=zwx>>z
            gzoom zwx,zwy,0,px,py,tmp,tmp
            gsel 0
        }
    }
    if click==8{
        if 1<z{
            tmp=zwx>>z>>1:px-tmp:py-tmp
            z--:tmp=zwx>>z
            if px<0:px=0
            if winx-tmp<px:px=winx-tmp
            if py<0:py=0
            if winy-tmp<py:py=winy-tmp
            gsel 4
            gzoom zwx,zwy,0,px,py,tmp,tmp
            gsel 0
        }
    }
    if click==32:gosub *save
    if click==4:gosub *draw
    if click==128:gosub *load
    if click==1024:gosub *undo
    goto *main
 
*click_wait
    repeat
    wait 1
    stick click,768
    if click:else:break
    loop
    return
 
*pal_draw
    gsel 3:redraw 0
    color:boxf
    color 255,0,0
    boxf 0,2 ,r/3,14
    color 0,255,0
    boxf 0,18,g/3,30
    color 0,0,255
    boxf 0,34,b/3,46
    color 99,0,99
    boxf 0,50,a/3,62
    color 255,255,255
    boxf 0,66,p,78
    boxf  94,80,117,95
    color r,g,b
    boxf 95,81,116,94
    color 255,255,255
    pos 94,0 :mes r
    pos 94,16:mes g
    pos 94,32:mes b
    pos 94,48:mes a
    pos 94,64:mes p
    color 96,96,96
    pos 0,80:mes"点線塗写消"
    color 255,255,255
    pos 0,80
    if pt : else:mes"点"
    if pt-1:else:mes"　線"
    if pt-2:else:mes"　　塗"
    if pt-3:else:mes"　　　写"
    if pt-4:else:mes"　　　　消"
 
    tmp="マスク　　　　"
    if m:tmp+"有":else:tmp+"無"
    pos 0,96:mes tmp
 
    repeat 8,1
    color r.cnt,g.cnt,b.cnt
    boxf cnt-1<<4+1,113,cnt<<4-1,126
    loop
    redraw 1:gsel 0
    return
 
*Masking
    title"Mask making "+rgb:k=0
    repeat wx*wy
    memcpy vrgb,vram,3,,k
    if rgb=vrgb:memcpy vram5,vrgb,3,k
    k+3:await
    loop
    title""+n
    return
 
*rMasking
    title"rMask making "+rgb:k=0
    repeat wx*wy
    memcpy vrgb,vram,3,,k
    if rgb-vrgb:memcpy vram5,vrgb,3,k
    k+3:await
    loop
    title""+n
    return
 
*undo
    if n-bn:else return
    memset buf,0,n-bn,bn
    n=bn:bx=bbx:by=bby
    memcpy vram,bram,w3
    redraw 1
    if z:gsel 4:gzoom zwx,zwy,0,px,py,zwx>>z,zwy>>z:gsel 0
    title""+n
    return
 
*change
    gsel 2
    color:boxf
    color r,g,b:circlef tp,tp,p-1
    gsel 0:gmode 4,p,p,a
    memcpy bram2,vram2,PW    ;VRAM2待避
    return
 
*paint
    x=mousex:y=mousey
    if z :x=x>>z+px:y=y>>z+py
 
    if p-bp:wpoke buf,n,p<<8+3:n+2
    if r-br|(g-bg)|(b-bb){
        wpoke buf,n,r<<8+2
        wpoke buf,n+2,b<<8+g:n+4
    }
    if a-ba:wpoke buf,n,a-1<<8+6:n+2
    bp=p:br=r:bg=g:bb=b:ba=a:bn=n
    bbx=bx:bby=by
    memcpy bram,vram,w3
 
    if pt : else:gosub *pset_draw
    if pt-1:else:gosub *line_draw
    if pt-2:else:gosub *fill_draw
    if pt-3:else:gosub *copy_draw
    if pt-4:else:gosub *cls_draw
 
    if m:gmode 2:pos 0,0:gcopy 5,0,0,wx,wy:gmode 4,p,p,a
    if z:gsel 4:gzoom zwx,zwy,0,px,py,zwx>>z,zwy>>z:gsel 0
    title""+n
    return
 
*test_draw1
    gsel 2:pos 0,0:tmp1=pwx>>1:tmp2=pwy>>1:gcopy 0,x-tmp1,y-tmp2,pwx,pwy:gsel 0
    memcpy cram2,vram2,PW    ;VRAM2待避
    memcpy vram2,bram2,PW    ;VRAM2復帰
    return
 
*test_draw2
    tmp=0
    gsel 2:pos 0,0:tmp1=pwx>>1:tmp2=pwy>>1:gcopy 0,x-tmp1,y-tmp2,pwx,pwy:gsel 0
    repeat PW
    peek tmp1,vram2,cnt
    peek tmp2,cram2,cnt
    if tmp1-tmp2:tmp++:break
    loop
    memcpy vram2,bram2,PW    ;VRAM2復帰
    return
 
*pset_draw
    repeat:await 1
        getkey click,1:if click:else:break
 
        x=mousex:y=mousey    ;座標取得
        if z:x=x>>z+px:y=y>>z+py;拡大処理
 
        gosub *test_draw1    ;VRAM->CRAM2
        pos x-tp,y-tp:gcopy 2    ;VRAM++
        gosub *test_draw2    ;VRAM==CRAM2
        if tmp:else:continue
 
        if z:gsel 4:gzoom zwx,zwy,0,px,py,zwx>>z,zwy>>z:gsel 0
 
         poke buf,n,1
        wpoke buf,n+1,x-bx+32768
        wpoke buf,n+3,y-by+32768:n+5
        bx=x:by=y
 
        repeat:await 1            ;処理取得
            x=mousex:y=mousey    ;座標取得
            if z:x=x>>z+px:y=y>>z+py;拡大処理
            tx=x-bx : ty=y-by    ;相対化
            if tx|ty{
                gosub *test_draw1    ;VRAM->CRAM2
                gosub *gap        ;VRAM++
                gosub *test_draw2    ;VRAM==CRAM
                if tmp:else:break
                tx=x-bx : ty=y-by    ;相対化
                if -7<tx&(tx<7)&(-7<ty)&(ty<7){
                     poke buf,n,ty<<4+tx+136:n++
                }else{
                     poke buf,n,15
                    wpoke buf,n+1,tx+32768
                    wpoke buf,n+3,ty+32768:n+5
                }
                if z:gsel 4:gzoom zwx,zwy,0,px,py,zwx>>z,zwy>>z:gsel 0
                bx=x:by=y
                title""+n
            }
            getkey click,1:if click:else break
        loop
    loop
    return
 
*line_draw
    title"Line "+n
    pos x-tp,y-tp:gcopy 2
    if z:gsel 4:gzoom zwx,zwy,0,px,py,zwx>>z,zwy>>z:gsel 0
 
    poke buf,n,1
    wpoke buf,n+1,x-bx+32768
    wpoke buf,n+3,y-by+32768:n+5
    bx=x:by=y:tmp1=x:tmp2=y
    xline tmp1,tmp2,bx,by
 
    gosub *click_wait
    repeat
        await 1        ;処理取得
        getkey click,2
        if click:xline tmp1,tmp2,bx,by:break
 
        x=mousex:y=mousey        ;座標取得
        if z:x=x>>z+px:y=y>>z+py    ;拡大処理
        tmp=y-tmp2            ;相対化
 
        if x-tmp1|tmp{
            xline tmp1,tmp2,bx,by:tmp1=x:tmp2=y
            xline tmp1,tmp2,bx,by
            if z:gsel 4:gzoom zwx,zwy,0,px,py,zwx>>z,zwy>>z:gsel 0
        }
 
        getkey click,1
        if click{
            xline tmp1,tmp2,bx,by:tmp1=x:tmp2=y
 
            tx=x-bx:ty=y-by        ;相対化
            if -7<tx&(tx<7)&(-7<ty)&(ty<7){
                 poke buf,n,ty<<4+tx+136:n++
            }else{
                 poke buf,n,15
                wpoke buf,n+1,tx+32768
                wpoke buf,n+3,ty+32768:n+5
            }
            gosub *gap
            if z:gsel 4:gzoom zwx,zwy,0,px,py,zwx>>z,zwy>>z:gsel 0
            bx=x:by=y
            xline tmp1,tmp2,bx,by
            title"Line "+n
            gosub *click_wait
        }
    loop
    gosub *click_wait
    return
 
*fill_draw
    pget x,y
    if r=rval:if g=gval:if b=bval:gosub *click_wait:return
 
    color r,g,b:fill x,y:color
    poke buf,n,5
    wpoke buf,n+1,x-bx+32768
    wpoke buf,n+3,y-by+32768:n+5
    bx=x:by=y
    gosub *click_wait
 
    return
 
*copy_draw
    title"COPY "+n
    if z:gsel 4:gzoom zwx,zwy,0,px,py,zwx>>z,zwy>>z:gsel 0
 
;copy用のno,x1,y1
    poke buf,n,8:n++
    wpoke buf,n,x-bx+32768:n+2
    wpoke buf,n,y-by+32768:n+2
    bx=x:by=y:tmp1=x:tmp2=y
    xbox tmp1,tmp2,bx,by
    gosub *click_wait
;x2,y2の取得
    repeat
        await 1            ;処理取得
 
        x=mousex:y=mousey    ;座標取得
        if z:x=x>>z+px:y=y>>z+py
        tmp=y-tmp2    ;相対化
 
        if x-tmp1|tmp{
            redraw 0
            xbox tmp1,tmp2,bx,by:tmp1=x:tmp2=y
            xbox tmp1,tmp2,bx,by
            redraw 1
            if z:gsel 4:gzoom zwx,zwy,0,px,py,zwx>>z,zwy>>z:gsel 0
        }
 
        getkey click,1
        if click{
            if x>bx:tmp3=bx:else tmp3=x
            if y>by:tmp4=by:else tmp4=y
            xbox tmp1,tmp2,bx,by:tmp1=x:tmp2=y
 
            tx=x-bx:ty=y-by        ;相対化
 
            wpoke buf,n+0,tx+32768
            wpoke buf,n+2,ty+32768
 
            if z:gsel 4:gzoom zwx,zwy,0,px,py,zwx>>z,zwy>>z:gsel 0
            if tx<0:tx=-tx
            if ty<0:ty=-ty
            bx=x:by=y
            break
        }
    loop
 
    gosub *click_wait
;転写座標設定
    xbox tmp1,tmp2,tmp1+tx,tmp2+ty
    repeat
        await 1
 
        x=mousex:y=mousey    ;座標取得
        if z:x=x>>z+px:y=y>>z+py
        tmp=y-tmp2    ;相対化
 
        if x-tmp1|tmp{
            redraw 0
            xbox tmp1,tmp2,tmp1+tx,tmp2+ty:tmp1=x:tmp2=y
            xbox tmp1,tmp2,tmp1+tx,tmp2+ty
            redraw 1
            if z:gsel 4:gzoom zwx,zwy,0,px,py,zwx>>z,zwy>>z:gsel 0
        }
 
        getkey click,1
        if click{
            xbox tmp1,tmp2,tmp1+tx,tmp2+ty:tmp1=x:tmp2=y
            gmode 0
            pos x,y:gcopy 0,tmp3,tmp4,tx,ty
            gmode 4,p,p,a
 
            tx=x-bx:ty=y-by        ;相対化
 
            wpoke buf,n+4,tx+32768
            wpoke buf,n+6,ty+32768:n+8
 
            if z:gsel 4:gzoom zwx,zwy,0,px,py,zwx>>z,zwy>>z:gsel 0
            bx=x:by=y
            break
        }
    loop
    gosub *click_wait
 
    return
 
*cls_draw
    if m:gsel 5:color:boxf:gsel 0
    bx=0:by=0:m=0:z=0:n=0:bn=0
    br=0:bg=0:bb=0:bp=0:ba=0
    color 255,255,255:boxf:color
    gosub *click_wait
    gosub *pal_draw
    return
 
*save
    wait 5:dialog"tbs",17:if stat:else return
    bsave refstr,buf,n
    gsel 3:title""+refstr:gsel 0
    return
 
*load
    wait 5
    dialog"tbs",16:if stat:else return
    exist refstr:if 0<strsize:else return
    memset buf,0,n
    bload refstr,buf,strsize:n=strsize
    gsel 3:title""+refstr:gsel 0
    gosub *draw
    return
 
*draw
    if m:gsel 5:color:boxf:gsel 0
    i=0:bx=0:by=0:x=0:y=0:t=0:m=0
    r=1:g=0:b=0:a=256:p=1
    color 255,255,255:boxf:color
    gmode 4,p,p,a
 
    repeat
    if n<=i:break
    peek j,buf,i:i++
    if j-8:else{
        if m:gmode 2:pos 0,0:gcopy 5,0,0,wx,wy:gmode 4,p,p,a
 
        wpeek x,buf,i
        wpeek y,buf,i+2
        x+bx-32768:y+by-32768:bx=x:by=y
 
        wpeek x,buf,i+4
        wpeek y,buf,i+6
        x+bx-32768:y+by-32768
        if x>bx:x1=bx:x2=x-bx:else x1=x:x2=bx-x
        if y>by:y1=by:y2=y-by:else y1=y:y2=by-y
        bx=x:by=y
 
        wpeek x,buf,i+8
        wpeek y,buf,i+10:i+12
        x+bx-32768:y+by-32768
 
        gmode 0
        pos x,y:gcopy 0,x1,y1,x2,y2
        gmode 4,p,p,a
    }    
    if j-5:else{
        if m:gmode 2:pos 0,0:gcopy 5,0,0,wx,wy:gmode 4,p,p,a
        wpeek x,buf,i
        wpeek y,buf,i+2:i+4
        x+bx-32768:y+by-32768
        color r,g,b:fill x,y:color
    }
    if j-4:else{
        if m:gmode 2:pos 0,0:gcopy 5,0,0,wx,wy:gmode 4,p,p,a
        memcpy rgb,buf,3,,i:i+3
        if rgb:gosub *Masking:m=1:else{
            gmode 2
            pos 0,0:gcopy 5,0,0,wx,wy
            gmode 4,p,p,a
            gsel 5:color:boxf:gsel 0
            m=0
        }
    }
    if j-7:else{
        if m:gmode 2:pos 0,0:gcopy 5,0,0,wx,wy:gmode 4,p,p,a
        memcpy rgb,buf,3,,i:i+3
        gosub *rMasking:m=1
    }
    if j-2:else{
        peek r,buf,i
        peek g,buf,i+1
        peek b,buf,i+2:i+3
        gosub *change
    }
    if j-3:else peek p,buf,i:i++:tp=p>>1:gosub *change
    if j-6:else peek a,buf,i:a++:i++:gmode 4,p,p,a
    if j-1:else{
        wpeek x,buf,i
        wpeek y,buf,i+2:i+4
        x+bx-32768:y+by-32768
        pos x-tp,y-tp:gcopy 2
    }
    if 14<j{
        if j==15{
            wpeek x,buf,i
            wpeek y,buf,i+2:i+4
            x+bx-32768:y+by-32768
        }else x+=j&15-8:y+=j>>4-8
        gosub *gap
    }
    bx=x:by=y
 
    getkey click,38        ;カーソル↑38
    if click:w++:title"Wait "+w:wait 40
    getkey click,40        ;カーソル↓40
    if click:if w:w--:title"Wait "+w:wait 40
 
    if w{
        repeat w*w*1000
            if cnt&1:await
        loop
    }else:if cnt&1:await
 
    loop
 
    if m:gmode 2:pos 0,0:gcopy 5,0,0,wx,wy:gmode 4,p,p,a
    bp=p:br=r:bg=g:bb=b:ba=a
 
    gosub *pal_draw
    gosub *change
 
    gsel 0:tmp=""+n:title tmp
    return
 
*gap
    dx=x-bx:dy=y-by
    if dx<0:dx=-dx:x_plus=-1:else x_plus=1
    if dy<0:dy=-dy:y_plus=-1:else y_plus=1
    tx=bx-tp:ty=by-tp:l=0
 
    if dy<dx:gosub *gap_x:else gosub *gap_y
 
;	if a-256{
;		if p-1{
;			if dy<dx:gosub *gap_x2:else gosub *gap_y2
;			memcpy vram2,bram2,PW
;		}else if dy<dx:gosub *gap_x:else gosub *gap_y
;	}else if dy<dx:gosub *gap_x:else gosub *gap_y
 
    return
 
*gap_x
    l=dx>>1
    repeat dx
    tx+x_plus:l+dy
    if l>=dx:ty+y_plus:l-dx
    pos tx,ty:gcopy 2
    loop
    return
*gap_y
    l=dy>>1
    repeat dy
    ty+y_plus:l+dx
    if l>=dy:tx+x_plus:l-dy
    pos tx,ty:gcopy 2
    loop
    return
 
*gap_x2
    p--:tmp=tp-x_plus
    gsel 2:color
    circlef tmp,tp-y_plus,p
    memcpy cram2,vram2,PW
    memcpy vram2,bram2,PW
    circlef tmp,tp,p
    memcpy dram2,vram2,PW
    gsel 0
 
    l=dx>>1
    repeat dx:await
    tx+x_plus:l+dy
    if l>=dx{
        ty+y_plus:l-dx
        memcpy vram2,cram2,PW
        pos tx,ty:gcopy 2
        memcpy vram2,dram2,PW
    }else pos tx,ty:gcopy 2
    loop
    p++
    return
 
*gap_y2
    p--:tmp=tp-y_plus
    gsel 2:color
    circlef tp-x_plus,tmp,p
    memcpy cram2,vram2,PW
    memcpy vram2,bram2,PW
    circlef tp,tmp,p
    memcpy dram2,vram2,PW
    gsel 0
 
    l=dy>>1
    repeat dy:await
    ty+y_plus:l+dx
    if l>=dy{
        tx+x_plus:l-dy
        memcpy vram2,cram2,PW
        pos tx,ty:gcopy 2
        memcpy vram2,dram2,PW
    }else pos tx,ty:gcopy 2
    loop
    p++
    return

適当なモジュール

基本モジュール（必須）

+

T_mod.txt

T_mod.txt

Everything is expanded.

Everything is shortened.

#module
#deffunc circlef int,int,int
    mref cx,0:mref cy,1:mref r,2
    if r<0:r=-r
    p=r&1:r=r>>1:y=r
    repeat
    line cx+y+1,cy-cnt-p,cx-y-p,cy-cnt-p
    line cx+y+1,cy+cnt,cx-y-p,cy+cnt
    if cnt>=y:break
    r-cnt+1<<1-1
    if r>=0:continue
    line cx+cnt+1,cy-y-p,cx-cnt-p,cy-y-p
    line cx+cnt+1,cy+y,cx-cnt-p,cy+y
    y--:r+y<<1+1
    loop
return
#global
 
#module
#deffunc xLine int,int,int,int
    mref x1,0:mref y1,1
    mref x2,2:mref y2,3
    x1-x2:    if x1<0 :x1=-x1:x=-1:else:x=1
    y1-y2:    if y1<0 :y1=-y1:y=-1:else:y=1
        if x1<y1:n=y1:l=y1>>1:c=1:else:n=x1:l=x1>>1:c=0
    pget x2,y2:color rval^255,gval^255,bval^255:pset x2,y2
    repeat n
        if c{
            y2+y:l+x1:if l>=y1:x2+x:l-y1
        }else{
            x2+x:l+y1:if l>=x1:y2+y:l-x1
        }
        pget x2,y2:color rval^255,gval^255,bval^255:pset x2,y2
    loop
    color
return
#global
 
#module
#deffunc xBox int,int,int,int
    mref x1,0:mref y1,1
    mref x2,2:mref y2,3
 
    if x1<x2:tmp=x1:x1=x2:x2=tmp
    if y1<y2:tmp=y1:y1=y2:y2=tmp
    tmp=x1-x2
    repeat tmp
    pget x1,y1:color rval^255,gval^255,bval^255
    pset x1,y1
    pget x2,y2:color rval^255,gval^255,bval^255
    pset x2,y2
    x1--:x2++
    loop
 
    tmp=y1-y2
    repeat tmp
    pget x1,y1:color rval^255,gval^255,bval^255
    pset x1,y1
    pget x2,y2:color rval^255,gval^255,bval^255
    pset x2,y2
    y1--:y2++
    loop
    color
return
#global
 
#module
#deffunc gcd_ int,int
    mref a,0:mref b,1
    mref ret,64
    if b:else:ret=a:return
    c=a\b
    gcd_ b,c
    return
#global
 
#module
#deffunc gcd_2 int,int
    mref a,0:mref b,1
    if a<0:a=-a:if b<0:b=-b
    if a<b:gcd_ b,a:else:gcd_ a,b
    return
#global
 
#module
#deffunc lcm_ int,int
    mref a,0:mref b,1
    mref ret,64
    gcd_ a,b
    ret=stat
    ret=a*b/stat
    return
#global

閉鎖領域の塗り潰し(2007/09/22　t_fillを修正)

+

fill_api.txt

fill_api.txt

Everything is expanded.

Everything is shortened.

#include"llmod.as"
 
#module
#deffunc fill int,int
 
    mref x,0    ;塗りつぶしを開始する座標ｘ
    mref y,1    ;塗りつぶしを開始する座標ｙ
    mref bmscr,67
 
    prm=bmscr.4,bmscr.36
        ;bmscr.4はデバイスコンテキストハンドル
        ;bmscr.36はcolor命令で設定された色のブラシハンドル
    dllproc "SelectObject",prm,2,D_GDI    ;ブラシの割り当て
    hbrush=dllret@    ;オリジナルのブラシハンドル
 
    pget x,y    ;開始座標の色取得
    prm=bmscr.4,x,y,bval<<16+(gval<<8)+rval,1
        ;(bval<<16)+(gval<<8)+rvalは開始座標の色データ
        ;最後の1はFLOODFILLSURFACE（色データを塗りつぶし領域の色とする）
    dllproc "ExtFloodFill",prm,5,D_GDI    ;塗りつぶし描画
 
    prm=bmscr.4,hbrush
    dllproc "SelectObject",prm,2,D_GDI    ;オリジナルのブラシを戻す
 
return
#global

+

t_fill.txt

Everything is expanded.

Everything is shortened.

#module
#deffunc fill int, int
 
    dim wx, 1 : wx = winx
    dim wy, 1 : wy = winy
    dim wx_,1 : wx_= wx-1
    dim wy_,1 : wy_= wy-1
    dim max,1 : max= wx*wy
 
    mref mx,0
    mref my,1 : my=wy_-my
 
    if mx<0|(wx_<mx) : return
    if my<0|(wy_<my) : return
 
    mref vram,66 : mref bmscr,67
 
    dim full,1 : full=bmscr.3^1
    dim size,1 : if full : size=3 : else : size=1
    dim frgb,1 : dim vrgb,1 : dim off,1 : dim off_,1
    dim doff,4 : doff=size,-wx*size,-size,wx*size
 
    dim map,wx,wy
 
    dim bx,1 : dim by,1
    dim cx,1 : dim cy,1
 
    dim x,1 : dim y,1 : dim z,1
 
    dim rz,1 : dim rx,max/4 : dim ry,max/4
 
    dim l,1 : dim l_xy,max/2,4
 
    dim dir,1
    dim dirx,4 : dirx= 1, 0,-1, 0
    dim diry,4 : diry= 0,-1, 0, 1
 
    // 塗り潰し準備
    off=my*wx+mx*size
    if full : memcpy frgb,vram,3,,off : else : peek frgb,vram,off
 
    gosub *round_left        ;左壁に突進
    gosub *round_pal        ;探査機の登録
 
    //メインループ
    repeat
        if rz : else : break        ;探査機が0なら終了
        rz-- : mx=rx.rz : my=ry.rz    ;探査機の呼び出し
 
        gosub *round_left        ;左壁に突進
 
    // 線引き用の座標の登録
        l_xy.l = mx : l_xy.l.1=wy_-my
        l_xy.l.2=bx : l_xy.l.3=wy_-by : l++
 
        if map.mx.my : else : gosub *round_pal    ;未探索なら探査機の登録
    loop
 
    // 線の描画
    z=l
    repeat l : z--
        line l_xy.z-1,l_xy.z.1,l_xy.z.2,l_xy.z.3
    loop
 
    return
 
// 壁に当たるまで直進
*round_left
    dir=2 : z=mx : off=my*wx+mx*size
    repeat z
        off-size
        if full : memcpy vrgb,vram,3,,off : else : peek vrgb,vram,off
        if frgb-vrgb : z=cnt : break
    loop
    bx=mx : by=my : mx-z
 
    return
 
// 探査機の登録
*round_pal
    cx=mx : cy=my : z=dir+3\4 : off=my*wx+mx*size
    repeat : map.mx.my=1
        repeat 4
            z=z+1\4
            x=mx+dirx.z : y=my+diry.z
            if 0<=x&(x<wx)&(0<=y)&(y<wy){    ;描画領域内なら
                off_=off+doff.z
                if full:memcpy vrgb,vram,3,,off_:else:peek vrgb,vram,off_
                if frgb-vrgb : else : mx=x : my=y : off=off_ : break
            }
            if z : else : rx.rz=mx : ry.rz=my : rz++
        loop
        if mx-cx : else : if my-cy : else : break    ;元の位置に戻ったら終了
        z=z+2\4
    loop : dir=z
    return
#global

適当なサンプル †

描画データのサンプル、上のスクリプトで使用可能。
tak_0075.tbs

適当なコメント †

テスト。 -- 絵 2007-08-19 (日) 10:00:57
T_mod.txt の81行目なんですが、　　_gcd　　ではなく　　gcd_　　ではないのでしょうか？
エラーになりますよ。 -- ライセン? 2007-08-19 (日) 17:18:36
適当に修正、使えるかと思って作った未使用な機能でした。 -- 絵 2007-08-19 (日) 18:58:22
秀丸でプログラミングですか。やっぱりhsp2だな。秀丸は.txtでしか保存できないしょぼエディタ？ -- 2007-08-30 (木) 16:00:55
ひ、秀丸を馬鹿にするなーっていうか、メモ帳ですが＾＾ -- 絵 2007-09-03 (月) 00:20:18
HSP3でも遅いことはないと思いますがメッセージごとに処理を分けていけばかなり速度に期待できますよ。リピートはCPUにも負担かかるので。HSP2での開発が前提なので仕方ありませんが。 -- As 2007-09-07 (金) 02:44:29
以降はたくあんに成りすまします。　絵にかいた○○。 -- 絵 2007-09-20 (木) 00:49:41
エラーが出たらまず最新版のHSPをさがそう・・・ -- 秘密君? 2010-03-23 (火) 18:04:30

添付ファイル:

fill_api.txt 555件 [詳細]

20070204.txt 604件 [詳細]

T_mod.txt 571件 [詳細]

tak_0075.tbs 1210件 [詳細]