>usagi師匠のプログラムの先頭に#include "hsp3dish.as"
こんにちわ
申し訳ないですが、私の例はhgimg4のOpenGl版限定でございます。
"最後の画面=Windowsのウインドウ"でHsp3dish条件下ならこんな感じでどうでしょうか?
; 追加モジュール ---------------
#undef pget
#module
#uselib "user32.dll"
#cfunc GetDC "GetDC" sptr
#uselib "gdi32.dll"
#cfunc GetPixel "GetPixel" sptr,sptr,sptr
//#define pget(%1=ginfo_cx,%2=ginfo_cy) _pget(%1,%2)
#deffunc pget int x, int y
c=GetPixel(GetDC(hwnd),x,y):color c&$FF,c>>8&$FF,c>>16&$FF:return
#global
;-------------------------------
; サンプル
#include "hsp3dish.as"
screen 0, 512, 512
*MAIN
redraw 1:await 16:redraw 0
gmode 1:gradf ,,,,1,$ff0000,$0000ff:gmode 5,,,255:gradf ,,,,0,0,$00ff00
pget mousex, mousey : r = ginfo_r : g = ginfo_g : b = ginfo_b
pos 30, 30:p=ginfo_cx-20, ginfo_cy-20, ginfo_cx+20, ginfo_cy+20
circle p.0,p.1,p.2,p.3,1:color:circle p.0,p.1,p.2,p.3,0
pos 60,15:color 255,255,255
mes strf("Pos:%3d, %3d\nRGB:%3d, %3d, %3d", mousex, mousey, r, g, b),4
goto *MAIN