9 lines
385 B
Text
9 lines
385 B
Text
load 'viewmat'
|
|
NB. size=. 2{.".wd'qm' NB. J6
|
|
NB. size=. getscreenwh_jgtk_ '' NB. J7
|
|
size=. 2 3{_".wd'qscreen' NB. J9
|
|
rows=. (2^3+i.4),._1^i.4
|
|
bars=. ((64%{.)#[:(<:@|%~i.)*/)"1 rows
|
|
togreyscale=. (256#. [:<.255 255 255&*)"0
|
|
'rgb' viewmat (4<.@%~{:size)# (64<.@%~{.size)#"1 togreyscale bars
|
|
wd 'pmove 0 _30 ',":size [ wd 'psel ',1{::,hforms_jviewmat_'' NB. J9
|