home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / VISONAIRE1,1MAIN.DMS / in.adf / virx / ScaleVertices.virx < prev    next >
Encoding:
Text File  |  1992-12-03  |  885 b   |  51 lines
  1. /*
  2.  * ScaleVertices.virx
  3.  * Copyright (c)1992 Bruno Costa & Lucia Darsa
  4.  */
  5.  
  6. options results
  7.  
  8. signal on HALT
  9. signal on SYNTAX
  10. signal on FAILURE
  11.  
  12. lockgui
  13.  
  14. form = '"BOOL,TO _Window,0|'    ||,
  15.        'STR,_X Factor:,1.0,6|'    ||,
  16.        'STR,_Y Factor:,1.0,6"'
  17.  
  18. requestform TITLE '"Scale Vertices"' form
  19. if rc >= 5 then
  20.   signal halt
  21.  
  22. parse var result window '|' sx '|' sy
  23.  
  24. if window = 0 then
  25.   winname = 'FROM'
  26. else
  27.   winname = 'TO'
  28.  
  29. getcenterselected winname
  30. parse var result cx cy
  31.  
  32. transformpoints winname sx 0 (-sx * cx + cx) 0 sy (-sy * cy + cy) 0 0 1
  33.  
  34. unlockgui
  35. exit 0
  36.  
  37. BREAK_C:
  38. HALT:
  39.  unlockgui
  40.  exit 20
  41.  
  42. FAILURE:
  43.  requestnotify '"Host *"'address()'*" returned an error (severity 'rc')*nexecuting' compress(sourceline(2),'* ') 'at line' SIGL'"'
  44.  unlockgui
  45.  exit 20
  46.  
  47. SYNTAX:
  48.  requestnotify '"'errortext(rc)'*nexecuting' compress(sourceline(2),'* ') 'at line' SIGL'"'
  49.  unlockgui
  50.  exit 20
  51.