/* ColorType Amiga Rexx script - Copyright © 1996 Cloanto Italia srl */

/* $VER: FlipFont.ctrx 1.0 */

/**
 This script flips ("mirrors") the images of all characters in the
 font, in a way equivalent to the "Flip Font" menu item of the Personal Fonts
 Maker 2 software.

 This command can be used in combination with the "Reverse Direction" command
 to transform a left-to-right font into right-to-left, or vice versa. This
 may be useful to process left-to-right font data for use in certain
 non-Latin languages, for specific video applications, for use in systems
 where the text has to be displayed through a reflective surface, for
 printing text on foil (e.g. in combination with Cloanto's RevLin utility),
 etc.
*/

IF ARG(1, EXISTS) THEN
	PARSE ARG CTPORT
ELSE
	CTPORT = 'COLORTYPE'

IF ~SHOW('P', CTPORT) THEN DO
	IF EXISTS('ColorType:ColorType') THEN DO
		ADDRESS COMMAND 'Run >NIL: ColorType:ColorType'
		DO 30 WHILE ~SHOW('P',CTPORT)
			 ADDRESS COMMAND 'Wait >NIL: 1 SEC'
		END
	END
	ELSE DO
		SAY "ColorType could not be loaded."
		EXIT 10
	END
END

IF ~SHOW('P', CTPORT) THEN DO
	SAY 'ColorType Rexx port could not be opened.'
	EXIT 10
END

ADDRESS VALUE CTPORT
OPTIONS RESULTS
OPTIONS FAILAT 10000


LockGUI
GetChar
scnum = RESULT

SetChar FIRSTON
IF RC = 0 THEN DO
	DO FOREVER
		FlipHoriz
		SetChar NEXTON
		IF RC ~= 0 THEN
			LEAVE
	END
	SetChar scnum
END
UnlockGUI