\mnb150<nb wrap="0" txtwidth="80" autowidth="0" pprint="1" typeset="1" xface="Times New Roman" xsize="360" xbold="0" xitalic="0" xcolor="#0000FF" slidents="1" sizemult="71" minsize="160" ifont="0 360 255 0 49 Lucida Sans Typewriter" ofont="0 360 16711680 0 49 Lucida Sans Typewriter" tfont="0 360 0 0 34 Trebuchet MS"></nb>ÿ{\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fprq2 System;}{\f3\fswiss\fprq2 Trebuchet MS;}{\f4\fmodern\fprq1 Lucida Sans Typewriter;}}
{\colortbl\red0\green0\blue0;\red255\green0\blue0;}
\deflang1033\pard\ri4\plain\f3\fs72\cf0 Chapter 8 JavaView workshop
\par \plain\f3\fs36\cf0 
\par Example 3 - Roman surface in parametric form
\par 
\par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f4\fs36\cf1 {\pntext\f1\'b7\tab}// parametric equation of the sphere
\par \pard\li600\ri1\fi-300\plain\f4\fs36\cf1 x := r*sin(u)*cos(t):
\par y := r*sin(u)*sin(t):
\par z := r*cos(u): // for t=0..PI, u=0..2*PI
\par 
\par // parametric equation after transformation
\par r := 1: // let us suppose that r=1,
\par REq :=[y*z, x*z, x*y]
\par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f4\fs36\cf1 {\pntext\f1\'b7\tab}RomanSurf := plot::Surface(REq,
\par \pard\li600\ri1\fi-300\plain\f4\fs36\cf1   t=0..PI, u=0..PI
\par ):
\par plot(RomanSurf)
\par \pard\ri4\plain\f3\fs36\cf0 
\par Insert 3 planes and plot Roman surface with planes
\par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f4\fs36\cf1 {\pntext\f1\'b7\tab}R := 0.5:
\par \pard\li600\ri1\fi-300\plain\f4\fs36\cf1 PLx := plot::Surface([0, u, v], u=-R..R, v=-R..R, Mesh=[2,2]):
\par PLy := plot::Surface([u, 0, v], u=-R..R, v=-R..R, Mesh=[2,2]):
\par PLz := plot::Surface([u, v, 0], u=-R..R, v=-R..R, Mesh=[2,2]):
\par plot(RomanSurf, PLx, PLy, PLz)
\par \pard\ri4\plain\f3\fs36\cf0 
\par Example 4 - Plot a single dodecahedron
\par 
\par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f4\fs36\cf1 {\pntext\f1\'b7\tab}A := plot::Dodecahedron():
\par \pard\li600\ri1\fi-300\plain\f4\fs36\cf1 plot(A, Axes=None)
\par \pard\ri4\plain\f3\fs36\cf0 
\par Animations 
\par Example 5 - Animation of a sphere
\par 
\par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f4\fs36\cf1 {\pntext\f1\'b7\tab}// parametric equation of the sphere
\par \pard\li600\ri1\fi-300\plain\f4\fs36\cf1 x := r*sin(u)*cos(t):
\par y := r*sin(u)*sin(t):
\par z := r*cos(u): // for t=0..2*PI, u=0..PI:
\par r := 1:
\par SphEquation := [x,y,z]:
\par Sphere := plot::Surface(SphEquation, t=0..a, u=0..PI, 
\par    a=0.01..2*PI
\par ):
\par plot(Sphere, Scaling=Constrained)
\par  
\par \pard\ri4\plain\f3\fs36\cf0 Example 5 - Lissajou curve
\par \plain\f4\fs36\cf1 
\par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f4\fs36\cf1 {\pntext\f1\'b7\tab}Lissajous := [cos(3*t), sin(5*t)]:
\par \pard\li600\ri1\fi-300\plain\f4\fs36\cf1 LCurve := plot::Curve2d(Lissajous, t=0..2*PI):
\par Pt := plot::Point2d(Lissajous,t=0..2*PI,
\par    PointSize=3, 
\par    PointColor=RGB::Red
\par ):
\par plot(LCurve, Pt)
\par \pard\ri4\plain\f3\fs36\cf0 
\par ---------------------------------------------------------
\par Additional Example - Plot of three transparent solids
\par 
\par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f4\fs36\cf1 {\pntext\f1\'b7\tab}plot(plot::Hexahedron (FillColorFunction = RGB::Red.[0.2]),
\par \pard\li600\ri1\fi-300\plain\f4\fs36\cf1      plot::Tetrahedron(FillColorFunction = RGB::Pink.[0.2]),
\par      plot::Octahedron (FillColorFunction = RGB::Blue.[0.2]),
\par      Axes = None)
\par \pard\ri4\plain\f3\fs36\cf0 
\par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f4\fs36\cf1 {\pntext\f1\'b7\tab}
\par {\pntext\f1\'b7\tab}
\par {\pntext\f1\'b7\tab}
\par }
 