load 'numeric trig plot isigraph files' fread1_z_=: fread f. fread=: ([: fread1 normpath) :: (fread1 normpath) load 'system\examples\graphics\plot\plexam.ijs' ('jzplot';'z') copath 'base' VLIST=: ;:^:_1 PLOTNAMES COCREATOR=:<'base' NB. casealign=: [[. 9!:37 :: ] 2 _ 0 _ ]]> ' lr_z_=: 3 : '5!:5 <''y.''' cgl_z_=: ][. NB. (ogl@:cmt@:(&,))@:([: ' '&, lr) qq2q_z_=:''''&('"'&(= # i.@#@])@]}) arg2rest_z_=: {. , 1&{ , <@(2&}.) atan2_z_=: (<&0@{. 180&*@(2&|)@+ 1p_1&*@arctan@:(%~/))"1 joinstyles=: [: ; (, ,&';'@(': '&,))&":&.> joinxywh=: (;:'left top width height')&joinstyles joinwh=: (;:'width height')&joinstyles angleA=: [: -/ (4 0,.5 1)&{ NB. (xa-x),(ya-y) angleZ=: [: -/ (6 0,.7 1)&{ NB. (xz-x),(yz-y) wh2z=: (i.2 2)&(([: +/ {)`({:@[)`]}) NB. x,y,(x+w),(y+h) ctr=: [: (+ <.@-:@>:)/ (i.2 2)&{ alrt=: [: 'expression('&, ,&'-this.firstChild.clientWidth)' alct=: [: 'expression('&, ,&'-this.firstChild.clientWidth/2)' allt=: ] casealign=: alrt`alct`allt@. vrgb=: 0 0 0 'vpenc vpenw vpens'=: vrgb;1;0 'vtextc vtextx vtexty'=: vrgb;0;0 vbrush=: vrgb vbkmode=: 1 vfont=: '' dim=: 640 480"_ glbkmode_z_=: 3 : 'vbkmode=:y.' glbrush_z_=: 3 : 'vbrush=:vrgb' glpen_z_=: 3 : '''vpenc vpenw vpens''=:vrgb;<"0]2{.,y.' glqwh_z_=: 'glqwh'cgl ] dim glrgb_z_=: 3 : 'empty ] vrgb=:3{.,y.' gltextalign_z_=: 3 : 'vtexta=:y.' gltextcolor_z_=: 3 : 'vtextc=:vrgb' gltextxy_z_=: 3 : '''vtextx vtexty''=:2{.,y.' glfont_z_=: 3 : 0 'f s r'=. arg2rest ;: qq2q y. w=. ;:^:_1(<'normal'),`]@.(*@#@])(;:'italic bold')([ #~ e.) r d=. 'text-decoration: underline; '#~(<'underline') e. r v=: 'writing-mode:tb-rl; '#~(<'angle900') e. r vfont=: 'font: ',w,' ',(*&0.6&.".s),'pt ',f,'; ',d,v ) glarc_z_=: (3 : 0)"1 ogl '' ) glellipse_z_=: (3 : 0)"1 ogl '' ) gllines_z_=: (3 : 0)"1 ogl '' ) glpie_z_=: (3 : 0)"1 ogl '' ) glpixel_z_=: (3 : 0) ogl '' ) glpolygon_z_=: (3 : 0) ogl '' ) glrect_z_=: (3 : 0)"1 ogl '' ) gltext_z_=: 3 : 0 ogl '',y.,'' ) glfile_z_=: 'glfile'cgl glmap_z_=: 'glmap'cgl glmapraw_z_=: 'glmapraw'cgl glmark_z_=: 'glmark'cgl glmarkc_z_=: 'glmarkc'cgl glnoerasebkgnd_z_=: 'glnoerasebkgnd'cgl glpaintx_z_=: 'glpaintx'cgl glsave_z_=: 'glsave'cgl glsavebmp_z_=: 'glsavebmp'cgl glsel_z_=: 'glsel'cgl glshowx_z_=: 'glshowx'cgl glwantresize_z_=: 'glwantresize'cgl glwindowext_z_=: 'glwindowext'cgl glzcreate_z_=: 'glzcreate'cgl glzdevmode_z_=: 'glzdevmode'cgl glzenddoc_z_=: 'glzenddoc'cgl glzendpage_z_=: 'glzendpage'cgl glzprint_z_=: 'glzprint'cgl glzstartdoc_z_=: 'glzstartdoc'cgl glzstartpage_z_=: 'glzstartpage'cgl ]]>
J Plot VML Sampler
For J language see: jsoftware.com.
VML port from gl2 by
Oleg Kobchenko, see J Page.
     
  
If you see the following alert,
please answer [Yes]
An ActiveX control on this page might be unsafe to
interact with other parts of the page. Do you want to
allow this interaction?
If you see the following alert,
please answer [Yes]
An ActiveX control on this page might be unsafe to
interact with other parts of the page. Do you want to
allow this interaction?