CI think pn has a line break but I don't know what else might cause this:
_2 _2 2 2 0.1 dawin 'rot'
|domain error: dawin
| _2 _2 2 2 0.1 dawin'rot'
|[-48] c:\users\linda\j64-803-user\temp\104.ijs
Linda
-----Original Message-----
From: [email protected]
[mailto:[email protected]] On Behalf Of Cliff Reiter
Sent: Sunday, April 26, 2015 6:53 PM
To: [email protected]
Subject: Re: [Jprogramming] isidraw and glpixels
You need some access to gl2.ijs too, for for the sake of completeness"
coinsert 'jgl2'
require 'trig gl2'
dawin=: 3 : 0
0 0 1 1 1 dawin y
:
'a c b d e'=.x
SC=:WIN_WH&*@((-&(a,d)) %((b-a),c-d)"1)"1
sz=.":WIN_WH
PN=.y,'; Animation window bounds are x: ',(":a),' to ',(":b),' y:
',(":c),' to ',":d
nx_WIN ''
z=.'pc ',WIN_nam,' closeok;pn "',PN,'";minwh ',sz,' ;cc g isidraw;'
wd z,';pshow;'
glclear''
DELAY=:e
)
dfillcolor=: 3 : 0 NB. Start Fill Color
wd 'psel ',WIN_nam
if. _1 e.y do. glbrushnull ''
else. glrgb y
glbrush''
end.
)
NB. ------------------------------------------------
NB. dapoly v Displays animated list of 2-D polygons
dapoly=: 3 : 0 NB. Show polygon
0 0 0 dapoly y
:
if. (1=$$x) do. X=.(#y)$,:x else. X=.x end.
Y=.x:^:_1 SC 2{."1 y
wd 'psel ',WIN_nam
k=.0
while. k<#y do.
glclear ''
dfillcolor k{X
glpolygon ,k{Y
glpaintx ''
delay DELAY
k=.>:k
end.
)
nx_WIN=:3 : 0
try. WIN_num=: WIN_num + 1 catch. WIN_num=: 0 end.
WIN_nam=:'p',": WIN_num
)
delay=:6!:3
WIN_WH=:500 500
sq=:#: 0 1 3 2
_2 _2 2 2 0.1 dawin 'rot'
rot=:(cos,sin),:-@sin,cos
R=:(rot 1r40p1)&(+/ . *)"1
$pl=:R^:(i.120) sq
0 255 0 dapoly pl
On 4/26/2015 6:47 PM, Cliff Reiter wrote:
> nx_WIN=:3 : 0
>
> try. WIN_num=: WIN_num + 1 catch. WIN_num=: 0 end.
>
> WIN_nam=:'p',": WIN_num
>
> )
>
>
>
> On 4/26/2015 5:54 PM, Raul Miller wrote:
>> I get a value error on nx_WIN
>>
>> Thanks,
>>
>
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
>
>
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
