画像のネガポジ反転 | Codetter（こーどったー）

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
    dialog "jpg", 16, "画像選べや"
    if stat=1 : picload refstr : else : dialog "選べや" : end
    onexit *exit
    onerror *error
    
*main
    
    redraw 0
    
    repeat ginfo_winx*ginfo_winy
        pget cnt\ginfo_winx, cnt/ginfo_winx
        r = ginfo(16)
        g = ginfo(17)
        b = ginfo(18)
        
        color 255-r, 255-g, 255-b
        pset cnt\ginfo_winx, cnt/ginfo_winx
    loop
    
    redraw 1
    
    stop
*error
    dialog "操縦不可能なんだろ"
    end
    
*exit
    onexit 0
    dialog "終了しますかしませんか", 2, "確認"
    if stat=6 : end
    onexit 1
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX