home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / VISONAIRE1,1MAIN.DMS / in.adf / virx / TransformVertices.virx < prev    next >
Encoding:
Text File  |  1992-10-30  |  1.0 KB  |  50 lines
  1. /*
  2.  * TransformVertices.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.        'MSG,Transformation Matrix:|'||,
  16.        'STR,(1.1),0,6|STR,(1.2),0,6|STR,(1.3),0,6|'||,
  17.        'STR,(2.1),0,6|STR,(2.2),0,6|STR,(2.3),0,6|'||,
  18.        'STR,(3.1),0,6|STR,(3.2),0,6|STR,(3.3),1,6"'
  19.  
  20. requestform TITLE '"Transform Vertices"' form
  21. if rc >= 5 then
  22.   signal halt
  23.  
  24. parse var result window '|' mat11 '|' mat12 '|' mat13 '|' mat21 '|' mat22 '|' mat23 '|' mat31 '|' mat32 '|' mat33
  25.  
  26. if window = 0 then
  27.   winname = 'FROM'
  28. else
  29.   winname = 'TO'
  30.  
  31. transformpoints winname mat11 mat12 mat13 mat21 mat22 mat23 mat31 mat32 mat33
  32.  
  33. unlockgui
  34. exit 0
  35.  
  36. BREAK_C:
  37. HALT:
  38.  unlockgui
  39.  exit 20
  40.  
  41. FAILURE:
  42.  requestnotify '"Host *"'address()'*" returned an error (severity 'rc')*nexecuting' compress(sourceline(2),'* ') 'at line' SIGL'"'
  43.  unlockgui
  44.  exit 20
  45.  
  46. SYNTAX:
  47.  requestnotify '"'errortext(rc)'*nexecuting' compress(sourceline(2),'* ') 'at line' SIGL'"'
  48.  unlockgui
  49.  exit 20
  50.