新しく発言する EXIT インデックスへ

画像8色化

　　画像8色化 しばっち 2008/03/08 10:43:22 
　　└続き しばっち 2008/03/08 10:45:30 
　　　└続き しばっち 2008/03/08 10:46:13
Re: 続き 返事を書く ノートメニュー
しばっち <dihjvcfsyu> 2008/03/08 10:46:13
続き


EXTERNAL SUB RGB(X,R,G,B)
LET B=MOD(INT(X/65536),256)
LET G=MOD(INT(X/256),256)
LET R=MOD(X,256)
END SUB

EXTERNAL SUB GETPOINT(X,Y,R,G,B)
ASK PIXEL VALUE (X,Y) C
CALL RGB(C,R,G,B)
END SUB

EXTERNAL SUB PSET(X,Y,R,G,B)
SET COLOR COLORINDEX(R/255,G/255,B/255)
PLOT POINTS: X , Y
END SUB

EXTERNAL SUB PICTURELOAD(N$,XSIZE,YSIZE)
CLEAR
SET COLOR MODE "NATIVE"
SET POINT STYLE 1
GLOAD N$
LET XSIZE=PIXELX(1)
LET YSIZE=PIXELY(1)
SET BITMAP SIZE XSIZE,YSIZE
SET WINDOW 0,XSIZE-1,YSIZE-1,0
END SUB
 
　　　　└他のしきい値行列による組織的ディザ法 山中和義 2008/03/11 19:52:36  (修正1回)

インデックスへ EXIT
新規発言を反映させるにはブラウザの更新ボタンを押してください。