/*
 * TransformVertices.virx
 * Copyright (c)1992 Bruno Costa & Lucia Darsa
 */

options results

signal on HALT
signal on SYNTAX
signal on FAILURE

lockgui

form = '"BOOL,TO Window,0|'||,
       'MSG,Transformation Matrix:|'||,
       'STR,(1.1),0,6|STR,(1.2),0,6|STR,(1.3),0,6|'||,
       'STR,(2.1),0,6|STR,(2.2),0,6|STR,(2.3),0,6|'||,
       'STR,(3.1),0,6|STR,(3.2),0,6|STR,(3.3),1,6"'

requestform TITLE '"Transform Vertices"' form
if rc >= 5 then
  signal halt

parse var result window '|' mat11 '|' mat12 '|' mat13 '|' mat21 '|' mat22 '|' mat23 '|' mat31 '|' mat32 '|' mat33

if window = 0 then
  winname = 'FROM'
else
  winname = 'TO'

transformpoints winname mat11 mat12 mat13 mat21 mat22 mat23 mat31 mat32 mat33

unlockgui
exit 0

BREAK_C:
HALT:
 unlockgui
 exit 20

FAILURE:
 requestnotify '"Host *"'address()'*" returned an error (severity 'rc')*nexecuting' compress(sourceline(2),'* ') 'at line' SIGL'"'
 unlockgui
 exit 20

SYNTAX:
 requestnotify '"'errortext(rc)'*nexecuting' compress(sourceline(2),'* ') 'at line' SIGL'"'
 unlockgui
 exit 20