environment j601 p beta/win32
In working with print preview, I found that glwindoworg does not work (which
works in j504), I borrow Oleg's fontscale.ijs for demo.
NB. =========================================================
require 'gl2'
coinsert 'jgl2'
F=: 0 : 0
pc f;pn "Font Fit";
xywh 6 6 117 50;cc fn combolist rightmove;
xywh 129 7 36 10;cc cq checkbox leftmove rightmove;cn "Quality";
xywh 6 20 200 200;cc g isigraph rightmove bottommove;
pas 6 6;pcenter;
rem form end;
)
f_run=: 3 : 0
wd F
wd 'set fn *',FONTS
wd 'setselect fn 0'
wd 'setfocus fn'
wd 'pshow;'
)
av2=: _2&((+/ <[EMAIL PROTECTED] #)\)
NB. av2=: _2&((+/ <[EMAIL PROTECTED] #)\)&.(256 256 256&#:) NB. slow
NB. =========================================================
f_g_paint=: 3 : 0
S=. 1 + 0 ".cq
wh=. S*glqwh''
wd 'pc tmp;xywh 0 0 ',(":wh),'; cc h isigraph;'
glsel 'h'
glclear ''
glwindoworg S*100 100 NB. <=== no effect ?
glrgb 3#220
glbrush ''
glpen 1 0 [ glrgb 3#200
for_i. 2+i.18 do.
p=. S*10,i*i
glrect p, S*380, i*4%3
glfont '"',fn,'" ',":S*i
gltextxy p
gltext (10#'x'),' ','"',fn,'" ',":i
end.
$q=. (|.wh)$glqpixels 0 0,wh
if. S~:1 do. q=. 16b010101*av2 av2&.|: 256|q end.
NB. if. S~:1 do. q=. av2 av2&.|: q end.
wd'pclose'
wd'psel f'
glsel 'g'
glpixels 0 0,(|.$q),,q
glpaint ''
)
f_fn_select=: f_cq_button=: f_g_paint
f_close=: 3 : 0
wd'pclose'
)
FONTS=: 0 : 0
Arial
Courier New
Times New Roman
)
f_run ''
NB. =========================================================
--
regards,
bill
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
