# Scripts/Stereo Plot

The `stereo` utility creates spatial view of 3D plot
results.

require 'plot trig' rotz_z_=: ] +/ .* ((cos,sin),:-@sin,cos)@[ , 0 0 1"_ stereo_z_=: 3 : 0 'boxed 0'stereo y. : vp=. 1.6 _2.3 1 [ angle=. 1r24p1 pd'reset;sub 1 2;new;',x.,';viewpoint ',":vp pd y. pd'new;',x.,';viewpoint ',":angle rotz vp pd y. pd'show' )

The idea was suggested by Devon McCormick, instructing how to view the result:

Once you've done this, bring up the two pictures side-by-side and view them as a stereo pair: blend the images by crossing your eyes and moving your head back until you have a merged, 3-D image in the center.

A few more examples

The verb works essentially as `plot`, selecting the type
of plot corresponding to the shape and type of the argument,
and taking additional parameters at the left. It hides the box
by default.

It is possible to modify series of `pd` definitions as in the `Plot` demo.
For 3D/Lines it would look like this

`u=. 0.5*steps 0 50p1 500`

`r=. sin steps (o. (,-.)0.1), 500`

`x=. r*sin u`

`y=. r*cos u`

`z=. 0.1*u`

`pd 'sub 1 2;new;boxed 0' `

`pd 'color red'`

`pd 'viewpoint ',``":vp=. 1.6 1.9 1.25`

`pd 'viewsize 1'`

`pd x;y;z`

`pd 'new;boxed 0'`

`pd 'color red'`

`pd 'viewpoint ',``":1r24p1 rotz vp`

`pd 'viewsize 1'`

`pd x;y;z`

`pd 'show'`

Contributed by Oleg Kobchenko.