home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1994 June / NEBULA_SE.ISO / SourceCode / Tutorial / Cookbook / 11a.PStransforms / BlobView.m < prev    next >
Encoding:
Text File  |  1993-01-19  |  583 b   |  37 lines
  1.  
  2. /* Generated by Interface Builder */
  3.  
  4. #import "BlobView.h"
  5. #import <dpsclient/wraps.h>
  6. #import <appkit/Control.h>
  7. #import "blob.h"
  8.  
  9. @implementation BlobView
  10.  
  11. - rotate:sender
  12. {
  13.     rot = [sender floatValue];
  14.     [self display];
  15.     return self;
  16. }
  17.  
  18. - zoom:sender
  19. {
  20.     mag = [sender floatValue];
  21.     [self display];
  22.     return self;
  23. }
  24.  
  25. - drawSelf:(NXRect*)r :(int)c
  26. {
  27.     NXEraseRect(&bounds);
  28.     PStranslate(bounds.size.width/2.0, bounds.size.height/2.0);
  29.     PSscale(mag+1.0, mag+1.0);
  30.     PSrotate(rot);
  31.     PSsetgray(NX_BLACK);
  32.     drawBlob(100.0, 5.0);
  33.     return self;
  34. }
  35.  
  36. @end
  37.