#ifdef lint
static char          sccsid[] = "@(#)dps_textwrap.psw 1.2 93/03/21";
#endif


 
defineps CreateFont(int size; char *name)
  /name findfont size scalefont setfont
endps



defineps RenderString(float x, y, sx, sy; char *string;
                      float r, g, b)
   gsave
   r  g  b  setrgbcolor
   x y moveto 
   sx sy scale
   (string) show
   grestore
endps

defineps IRenderString(float x, y, sx, sy; char *string;
                      int color)
   gsave
   color  setcolor     
   x y moveto 
   sx sy scale
   (string) show
   grestore
endps


defineps RenderIntro()
   gsave
   0.0  0.0  0.0  setrgbcolor
    0 -10  moveto
    (  The Ideal Gas Law states that) show
   1.0  0.0  0.0  setrgbcolor
    0 -25  moveto
    (            PV = NkT  ) show        
   0.0  0.0  0.0  setrgbcolor
    0 -40  moveto
    (where P is the pressure, V is the) show
    0 -55  moveto
    (volume,)show
   0.0  1.0  1.0  setrgbcolor
    ( N )show
   0.0  0.0  0.0  setrgbcolor
    (is the number of the ) show
    0 -70  moveto
    (molecules, k is Boltzmann's constant) show
    0 -85  moveto
    (and) show
   0.0  0.0  1.0  setrgbcolor
    ( T ) show
   0.0  0.0  0.0  setrgbcolor
    ( is the temperature.)show 
    0 -115  moveto
    (  This demonstration includes a )show
    0 -130  moveto
    (simulation of the kinetic energy of)show
    0 -145  moveto
    (molecules in a closed container. You) show
    0 -160  moveto
    (can vary)show
   0.0  1.0  1.0  setrgbcolor
    ( N)show
   0.0  0.0  0.0  setrgbcolor
    ( and)show
   0.0  0.0  1.0  setrgbcolor
    ( T, )show
   0.0  0.0  0.0  setrgbcolor
    (and the simulation)show
    0 -175  moveto
   (will show the result. )show
    0 -205 moveto
   (  By moving ) show
   0.0 1.0 1.0 setrgbcolor
   (N ) show
   0.0 0.0 0.0 setrgbcolor
   (you can change the) show
   0 -220 moveto
   (number of molecules and by) show
   0 -235 moveto
   (moving ) show
   0.0 0.0 1.0 setrgbcolor
   (T ) show
   0.0 0.0 0.0 setrgbcolor
   (you can change the) show
   0 -250 moveto
   (kinetic energy of each molecule.) show
    0 -280 moveto
   (  In addition, film clips of real-life)show
    0 -295  moveto
    (examples of the gas law can be )show
    0 -310  moveto
    ( played by clicking one of the above) show
    0 -325  moveto
    (images. But pay attention to the ) show
    0 -340 moveto
    (simulation on the left and the large ) show
    0 -355 moveto
    (equation above, they will reflect) show
    0 -370 moveto
    (the changes in the film clips.) show
   grestore
endps

defineps RenderTitle()
   gsave
   0.0  0.0  1.0  setrgbcolor
    35 180  moveto
    (Chapter One) show
   0.0  0.0  0.0  setrgbcolor
    25 140  moveto
    (The Ideal Gas) show
    80 100  moveto
    (Law) show
   grestore
endps

defineps Clear(int x, y, w, h)
   gsave
    1 setgray
    x y w h rectfill
   grestore
endps