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

	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