小ワザ/mono

モノクロ hsp2 †

[編集]

画像を元のサイズのままモノクロ化

mono.as

    dialog "bmp;*.jpg",16
    if stat=0:end
 
    buffer 2
    picload refstr
     x=winx:y=winy
     z=x*y
    dim c,z
 
    repeat z
        pget cnt\x,cnt/x
        c.cnt=rval+gval+bval/3
    loop
 
    screen 0,x,y,1
    repeat 256
        palette cnt,cnt,cnt,cnt        ;rvalのcntを0に変えたりすると･･･
    loop                    ;まぁ遊んでください。
    palfade 
        redraw 0
        
        repeat z 
            r=c.cnt 
            palcolor r
            pset cnt\x,cnt/x
        loop
 
        redraw 1
    stop

↑

モノクロ hsp3 †

[編集]

    dialog "bmp;*.jpg", 16
    if stat == 0 : end
 
    buffer 1
    picload refstr
    x = ginfo(12)   // 画像の横サイズ
    y = ginfo(13)   // 画像の縦サイズ
    s = x * y       // 画像の画素数
    dim c, s
 
    repeat s
        pget cnt \ x, cnt / x
        c(cnt) = (ginfo(16) + ginfo(17) + ginfo(18)) / 3
    loop
 
    screen 0, x, y, 1
    repeat 255
        palette cnt, cnt, cnt, cnt      // rvalのcntを0に変えたりすると･･･
    loop                                // まぁ遊んでください。
    palette 255, 255, 255, 255, 1
 
    redraw 0
    repeat s
        palcolor c(cnt)
        pset cnt \ x, cnt / x
    loop
    redraw 1
 
    stop

↑

こめんと †

[編集]

pal系命令かぁ･･･初めてみるなぁ。 -- kz3 2005-06-25 21:14:48 (土)
27行目のif文は要らなくてもOKかな？RGBの平均で範囲が既に0～255だから･･･。 -- kz3 2005-06-25 21:17:00 (土)
あと29行目boxfは１ピクセルを描画していると思われるが座標とピクセルにあるようにこれだと２ピクセル描画されてます。けど、左上から描画していってるから問題ないかな･･･。 -- kz3 2005-06-25 21:19:09 (土)
パレットを自分で設定できるのはいいですね！ -- kz3 2005-06-25 21:23:42 (土)
- 要らないとこ多数消去・・・ -- Charlotte 2005-06-26 11:29:47 (日)
シェイプアップしました？＾＾ -- kz3 2005-06-26 11:31:25 (日)
- かなり(_＾)ﾉ -- Charlotte 2005-06-26 11:35:39 (日)
HSP3での実装ができない；；どうやるんだ？？ -- Charlotte 2005-06-26 11:40:52 (日)
HSP3は演算の優先順位があるじゃないですか＾＾； -- kz3 2005-06-26 11:54:06 (日)
- そっかｗ -- Charlotte 2005-06-26 12:22:05 (日)
boxf => pset　に変更（存在を忘れがち；； -- Charlotte 2005-06-26 12:23:38 (日)
演算だけじゃなくてpalfade->paletteにパラメータが増えてますね。 -- kz3 2005-06-26 12:27:05 (日)
出来ましたよ・・・やっと。β10で。大幅にシステム変数関連が変わってる；； -- kz3 2005-06-26 12:39:19 (日)
できない；；これの下にUPお願いします；； -- Charlotte 2005-06-26 12:40:31 (日)
rvalとかもなくなってたのか・・orz -- Charlotte 2005-06-26 12:43:02 (日)
UPさせていただきましたm__m -- Charlotte 2005-06-26 12:48:34 (日)
あ･･･absはintの間違いです；； -- kz3 2005-06-26 16:22:04 (日)
- 直しときました。 -- Charlotte 2005-06-26 16:59:04 (日)
- abs残っていたので直しておきました＾＾； -- kz3 2005-06-26 17:22:04 (日)
- あっ残ってた；； -- Charlotte 2005-06-26 17:27:06 (日)
codeのHSP3定義ファイルのテストしました。 -- Charlotte 2006-04-05 (水) 01:33:08
これってパレットモードのウィンドウにgcopyするだけで同じ効果が・・・ -- えっと? 2007-04-08 (日) 15:57:45
18行目の第4引数を0にするとセピアっぽくできるようです -- レヴィン? 2008-09-05 (金) 19:01:57
18行目の第4引数を0にするとセピアっぽくできるようです -- レヴィン? 2008-09-05 (金) 19:02:14

添付ファイル:

mono[b10].as 253件 [詳細]

mono.as 435件 [詳細]

OFFICIAL/関連

TUTORIAL

TOPICS

ETC

EDIT

REFERENCE

LOG

お知らせ

HSP Web-Ring

最新の40件

モノクロ hsp2 †

mono.as

モノクロ hsp3 †

こめんと †