home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / graphic / raytracing / construct / vertex / rexxy / same_size.vert < prev   
Encoding:
Text File  |  1995-07-10  |  757 b   |  65 lines
  1. /* Arexx */
  2.  
  3. options results
  4.  
  5. 'data objs'
  6. num_obj=result
  7.  
  8. minx. = 0
  9. miny. = 0
  10. minz. = 0
  11. cx.    = 0
  12. cy.    = 0
  13. cz.    = 0
  14. maxx. = 0
  15. maxy. = 0
  16. maxz. = 0
  17.  
  18. do a=1 to num_obj
  19.     'data obje' a
  20.     parse var result minx.a miny.a minz.a cx.a cy.a cz.a maxx.a maxy.a maxz.a .
  21.     end
  22.  
  23. xx = maxx.1 - minx.1
  24. yy = maxy.1 - miny.1
  25. zz = maxz.1 - minz.1
  26.  
  27. do a=2 to num_obj
  28.     dx = maxx.a - minx.a
  29.     dy = maxy.a - miny.a
  30.     dz = maxz.a - minz.a
  31.     
  32.     fx = 1
  33.     fy = 1
  34.     fz = 1
  35.     
  36.     if xx~=0 then do
  37.         tx = (dx / xx)
  38.         if tx~=0 then do
  39.             fx = 1 / tx
  40.             end
  41.         end
  42.     
  43.     if yy~=0 then do
  44.         ty = (dy / yy)
  45.         if ty~=0 then do
  46.             fy = 1 / ty
  47.             end
  48.         end
  49.  
  50.     if zz~=0 then do
  51.         tz = (dz / zz)
  52.         if tz~=0 then do
  53.             fz = 1 / tz
  54.             end
  55.         end
  56.  
  57.     'deselect all'
  58.     'select obje' a
  59.     'scale' fx fy fz
  60.  
  61.     end
  62.  
  63. 'draw'
  64. 'endd'
  65.