%!
%!PS-Adobe-2.0 EPSF-1.2

80 10 10 10 mul { %for
  dup 40 moveto
  790 lineto
} for stroke

80 10 10 10 mul { %for
  dup 0 
  exch
  moveto
  610 
  exch
  lineto

} for stroke


/Courier findfont 14 scalefont setfont

0 60 360 {
  newpath
  gsave
    300 300 moveto
    rotate
 %   172 0 rlineto
    (      hello world) show
    stroke
  grestore
} for

0 20 360 {
  newpath
  gsave
    300 300 moveto
    rotate
    172 0 rlineto
    stroke
  grestore
} for



0 20 360 {
  newpath
  gsave
    400 600 moveto
    dup
    rotate
    8 div
    0 rlineto
    stroke
  grestore
} for


%spiral
0 1 360 3 mul {
  newpath
  gsave
    500 600 moveto
    dup
    dup
    rotate
    30 div
    0 rmoveto
    neg 
    rotate
    1 0 rlineto
    stroke
  grestore
} for


.5 setgray

/inch {72 mul} def
newpath
1 inch 6 inch moveto
1 inch 0 inch rlineto
0 inch 1 inch rlineto
-1 inch 0 inch rlineto
closepath
fill


0 setgray

%stroke

/headerfont /Times findfont 24 scalefont def
headerfont setfont
400 550 moveto
(hello world) show
/headerfont /Times-Bold findfont 18 scalefont def
headerfont setfont
400 520 moveto
(hello world) show
/headerfont /Times-Italic findfont 14 scalefont def
headerfont setfont
400 500 moveto
(hello world) show


newpath
200 600 100 0 360 arc
stroke
newpath
200 600 90 0 360 arc
stroke
newpath
200 600 80 0 360 arc
stroke

 .15 setlinewidth

10 10 100 {
  newpath

  200 exch
  600 exch
  0 360 arc
  stroke
} for

/box {
  newpath
  moveto
  52 0 rlineto
  0 52 rlineto
  -52 0 rlineto
  closepath
} def


1 setlinewidth
gsave
10 10 translate 
0 0 box stroke
grestore
gsave
40 10 translate 
30 rotate
.75 .75 scale
0 0 box stroke
grestore
gsave
80 10 translate 
60 rotate
.5 .5 scale
0 0 box stroke
grestore
gsave
100 10 translate 
90 rotate
.25 .25 scale
0 0 box stroke
grestore


%rotating boxes
0 10 360 {
  gsave
  530 180 translate
  rotate
  0 0 box stroke
  grestore
} for



1 setlinewidth



newpath
105 700 moveto
105 701 lineto
%stroke
110 700 moveto
110 701 lineto
%stroke
115 700 moveto
115 701 lineto
stroke


%sequence of points
newpath
105 5 200 {
  dup 700 moveto
  701 lineto
} for stroke


newpath
100 600 moveto
200 700 300 400 400 600 curveto
stroke

%random points
newpath
300 { 
  rand 610 mod
  rand 790 mod
  moveto 
  currentpoint
  1 add
  lineto stroke} repeat

showpage