#import "Block.h"
#import "Nutation.h"
/* Superclass file goes here: */
#pragma .h #import "Glyph.h"
@implementation Block:Glyph
{
}

- drawSelf: (NXRect *) aRect ;
{ [Nu ps:
   "gsave "
   "/d 12 def "
   ".5 setgray "
   "1 setlinewidth "
   "/x %f d sub def /y %f d sub def "
   "0 d x y rectfill  "
   ".333 setgray "
   "0 d x y rectstroke "
    "d { "
   " 1 setlinewidth "
   "0 setgray "
   "d 0 moveto x 0 rlineto "
   "stroke "
   ".333 setgray "
   "x d add 0 moveto "
   "0 y rlineto "
   "stroke "
   "-1 1 translate "
   "} repeat "
   "grestore "
   ,frame.size.width , frame.size.height
  ] ;
  return self ;
 }


@end



