home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / raytrace / radiance / lib / brick.cal < prev    next >
Encoding:
Text File  |  1990-02-01  |  604 b   |  26 lines
  1. {
  2.     Brick patterns
  3.  
  4.     A1    = Grout width
  5.     A2    = Nominal layer height
  6.     A3    = Nominal brick spacing
  7.     A4    = Offset
  8.     A5    = Brick brightness
  9.     A6    = Grout brightness
  10. }
  11.  
  12. brick_xy = if( f_brick_xy, A5, A6 );
  13. brick_x = if( f_brick_x, A5, A6 );
  14. brick_y = if( f_brick_y, A5, A6 );
  15.  
  16. f_brick_xy = and( brick_inv,
  17.     if( brick_inx, brick_inh(Px+2*A1), brick_inh(Py+2*A1) ) );
  18. f_brick_x = and( brick_inv, brick_inh(Px) ) ;
  19. f_brick_y = and( brick_inv, brick_inh(Py) ) ;
  20.  
  21. brick_inx = .5 - Nx*Nx;
  22. brick_inv = mod(Pz,A2) - A1 ;
  23. brick_inh(h) = mod(h+floor(Pz/A2)*A4,A3) - A1;
  24.  
  25. brick_swx = if(brick_inx, 1, 0);
  26.