home *** CD-ROM | disk | FTP | other *** search
/ Education Sampler 1992 [NeXTSTEP] / Education_1992_Sampler.iso / Programming / Source / tess / tess-1.0 / aGroup.pswm-old < prev    next >
Encoding:
Text File  |  1992-06-30  |  5.5 KB  |  275 lines
  1. #import "aGroup.h"
  2. #import "aGroup-inter.h"
  3. #import "TessSketch.h"
  4. #import "Underlay.h"
  5.  
  6. @implementation aGroup
  7.  
  8. +new 
  9. {
  10.   self = [super new];
  11.   [self setScaling: 1.0 : 1.0];
  12.   return self;
  13. }
  14.  
  15. + setup
  16. {
  17.   GroupSetup();                    // call only once
  18.   return self;
  19. }
  20.  
  21. - performTesselation: sender
  22. {
  23.   id imgview,outview,outimg;
  24.   NXPoint pt,genofft;
  25.   NXSize lsize;
  26.   NXRect outrect;
  27.   float xstart;
  28.   int xlimit,ylimit;
  29.   
  30.   outview = [sender getOutputView];
  31.   outimg = [outview getImage];
  32.   [self getLatticeUnitSize: &lsize];
  33.   [sender getImageView:&imgview withOffset: &genofft];
  34.   if(![outimg lockFocus]) fprintf(stderr,"Couldn't lock outimg focus\n");
  35.   PSgsave();
  36.   PSscale(xscaling,yscaling);
  37.   [outview getFrame: &outrect];
  38. #ifdef DEBUG
  39.   fprintf(stderr,"Output rect: %f,%f,%f,%f\n",outrect.origin.x,outrect.origin.y,
  40.       outrect.size.height,outrect.size.width);
  41. #endif
  42.   
  43.   pt.x = pt.y = 0.0;
  44.   ylimit = (int)(outrect.size.height/lsize.height) + 2;
  45.   do {
  46.     PSmoveto(0.0,0.0);
  47.     if(ylimit%2){
  48.       pt.x -= lsize.width;        /* adjust back for rhombic & poly case*/
  49.     } 
  50.     xlimit = (int)(outrect.size.width/lsize.width) + 4;
  51.     xstart = pt.x;
  52.     do{
  53. #ifdef 0
  54.       fprintf(stderr,"Current point %f,%f: xlimit %d\n",pt.x,pt.y,xlimit);
  55. #endif
  56.       PSgsave();
  57.       PStranslate(pt.x,pt.y);
  58.       [self makeLatticeUnitAt: &genofft fromImage: [imgview getImage]];
  59.       PSgrestore();
  60.       [self rightTranslatePoint: &pt];
  61.     } while (xlimit--);
  62.     pt.x = xstart;
  63.     [self upTranslatePoint: &pt];
  64.   } while (ylimit--);
  65.   PSgrestore();
  66.   [outimg unlockFocus];
  67.   return self;
  68. }
  69.  
  70. - generator: (NXCoord) x : (NXCoord) y
  71. {
  72.   [self clip: x : y];
  73.   PSstroke();
  74.   return self;
  75. }
  76.  
  77. - clip: (NXCoord) x: (NXCoord) y
  78. {
  79.   return self;
  80. }
  81. - (BOOL) isRigidLattice
  82. {
  83.   return YES;
  84. }
  85. - rightTranslatePoint: (NXPoint *) pt
  86. {
  87.   return self;
  88. }
  89.  
  90. - upTranslatePoint: (NXPoint *)pt
  91. {
  92.   return self;
  93. }
  94.  
  95. - (NXSize *)getLatticeUnitSize: (NXSize *) size
  96. {
  97.   size->width = latticesize.width;
  98.   size->height = latticesize.height;
  99.   return &latticesize;
  100. }
  101.  
  102. - setScaling: (float) xscale:(float) yscale
  103. {
  104.   xscaling = xscale;
  105.   yscaling = yscale;
  106.   return self;
  107. }
  108.  
  109. - (float) xscaling
  110. { 
  111.   return xscaling; 
  112. }
  113. - (float) yscaling
  114. { 
  115.   return yscaling; 
  116. }
  117. - drawImage
  118. {
  119.   [self sketchTemplate];
  120.   return self;
  121. }
  122. - sketchTemplate
  123. {
  124.   return self;
  125. }
  126. - makeLatticeUnitAt: (NXPoint *) point fromImage: srcimg 
  127. {
  128.   return self;
  129. }
  130. - (NXPoint *)getGeneratorOffset: (NXPoint *) pt
  131. {
  132.   pt->x = pt->y = 0.0;
  133.   return pt;
  134. }
  135.  
  136. - (NXSize *)getGeneratorSize: (NXSize *) size
  137. {
  138.   size->width = size->height = 0.0;
  139.   return size;
  140. }
  141.  
  142. @end
  143.  
  144. int genfun () {  return 1; }
  145. int clipper () { return 1; }
  146. int tesselate () { return 1;}
  147.  
  148. defineps GroupSetup()
  149.    /groupsdict 40 dict def
  150.    groupsdict begin
  151.        /equi { 3 sqrt mul 2 div } bind def
  152.        /generatorcolor {0.655171 0.102771 0.629475 setrgbcolor } bind def
  153.        /glidecolor {0.373226 0.462386 0.528733 setrgbcolor } bind def
  154.        /reflectioncolor {0.333338 0.039216 0.237907 setrgbcolor } bind def
  155.        /translationcolor {1 0.054903 0.101962 setrgbcolor       } bind def
  156.        /anglecolor { 0 0 1 setrgbcolor } bind def
  157.        /latticeunitcolor { 0.5 setgray } bind def
  158.        /scaling 1.0 def    
  159.  
  160.        /arrow { % angle x y
  161.        newpath moveto dup rotate 
  162.        -13 6 rlineto 4 -6 rlineto 
  163.        -4 -6 rlineto closepath gsave 0 
  164.        setlinejoin stroke grestore fill neg rotate
  165.        } def
  166.  
  167.        /addpoints { % x y x y
  168.           exch % x y y x
  169.           4 1 roll %  y y x x
  170.           add 3 1 roll % x y y
  171.           add % x y
  172.     } bind def
  173.  
  174.        /duptop2 { % x y -> x y x y
  175.        dup     %  x y y
  176.        3 2 roll % y y x
  177.        dup % y y x x    
  178.        4 1 roll % x y y x
  179.        exch % x y x y    
  180.        } bind def
  181.  
  182.        /even { % num
  183.        cvi 1 and 1 eq not
  184.        } bind def
  185.  
  186.        /setscaling { % scale - wrap with dictionary use !!!
  187. %       groupsdict begin       
  188. %           /scaling exch def    
  189. %           [scaling 0 0 scaling 0 0] setmatrix
  190. %       end           
  191.     pop
  192.        } bind def
  193.  
  194.        /reflect { % angle
  195.        dup rotate  
  196.        [1 0 0 -1 0 0] concat 
  197.        neg rotate     
  198.        }     bind def
  199.  
  200.        /rhombus { % x y 
  201.        groupsdict begin    
  202.            moveto
  203.            latticeunitcolor
  204.            lattice:side 0 lineto
  205.            lattice:w lattice:h rlineto
  206.            lattice:side neg 0 rlineto
  207.            closepath
  208.            stroke
  209.        end        
  210.        } bind def
  211.  
  212.        /transv0 { %x y len
  213.        groupsdict begin
  214.            gsave    
  215.            2 setlinewidth
  216.            translationcolor    
  217.            moveto dup 0 rlineto stroke    
  218.            0 exch 0 arrow
  219.            grestore    
  220.        end        
  221.        } bind def
  222.  
  223.        /transv90 { %x y len
  224.        groupsdict begin
  225.            gsave 
  226.            2 setlinewidth
  227.            translationcolor    
  228.            moveto dup 0 exch rlineto stroke    
  229.            90 exch 0 exch arrow
  230.            grestore    
  231.        } bind def
  232.  
  233.        /transv60 { %x y run rise
  234.        groupsdict begin
  235.            gsave 
  236.            2 setlinewidth
  237.            translationcolor    
  238.            moveto 
  239.            duptop2    
  240.            rlineto stroke    
  241.            60 3 1 roll % angle of arrow
  242.            arrow
  243.            grestore    
  244.        end        
  245.        } bind def
  246.  
  247.        /reflectionaxis { % x1 y1 x2 y2
  248.        groupsdict begin    
  249.            reflectioncolor
  250.            moveto rlineto stroke    
  251.        end
  252.        } bind def
  253.  
  254.        /rotation3 { % size x y
  255.        groupsdict begin    
  256.            moveto    
  257.            /r3size exch def
  258.            /r3ext r3size equi def    
  259.            anglecolor
  260.            0 r3ext 2 div rmoveto
  261.            r3size 2 div r3ext neg rlineto
  262.            r3size neg 0 rlineto
  263.            closepath 
  264.            gsave fill grestore stroke
  265.        end
  266.        } bind def
  267.    end
  268. endps
  269.  
  270. defineps reflect(float angle)
  271.      groupsdict begin
  272.          angle reflect
  273.      end 
  274. endps
  275.