/acorn { /x exch def
    currentpoint translate
    x 288 div dup scale
    /s { 16 div 72 mul } def /h1 36 s def /f1 .26 def
    -18 s 0 moveto -18 3 f1 mul add s h1 f1 mul
    s 18 3 f1 mul sub s h1 f1 mul s 18 s 0 curveto
    /h2 30 s def /f2 .17 def 
    -19 s -3 s moveto -19 3 f2 mul add s -3 h2 f2 mul 
    sub s 19 3 f2 mul sub s -3 h2 f2 mul sub s 19 s -3 s curveto 
    -20.5 s -17.5 s moveto 0 -23 s 0 -23 s 22 s -31 s curveto 
    17 s -33 s lineto 0 -25 s 0 -25 s -21.25 s -19 s curveto 
    fill
    -1.4 s -15 s moveto -1.4 s 
    -24 s lineto 1.4 s -24 s lineto 1.4 s -15 s lineto 
    fill} def 

/go {currentrgbcolor 
 initgraphics setrgbcolor 370 500 moveto acorn } def 

/e {erasepage} def

/b {0 0.0625 .99 {dup setgray 1 exch sub 900 mul go} for} def

0 0.5 0 setrgbcolor
