/* SCMTEXT (SCM) -- SCM Text Functions */
/* SCMTEXT (SCM) -- SCM-Textfunktionen */
/* -- INTENDED FOR KEY-CALL USE -- */
/*
// Copyright (c) 1995-2012 Oliver Bartels F+E, Muenchen
// Author: Manfred Baumeister
// Changes History:
//	rl (120427) RELEASED FOR BAE V7.8.
//	rl (110616) ENHANCEMENT:
//		Added clipboard attribute assignment support.
//	rl (101019) RELEASED FOR BAE V7.6.
//	rl (100119) BUGFIX:
//		Fixed multiline text edit rule loss problem.
//	rl (091021) RELEASED FOR BAE V7.4.
//	rl (090603) ENHANCEMENT:
//		Added clipboard text placement support.
//	rl (081014) RELEASED FOR BAE V7.2.
//	rl (071029) RELEASED FOR BAE V7.0.
//	rl (060829) RELEASED FOR BAE V6.8.
//	rl (051103) ENHANCEMENT:
//		Added multiline text alternate origin support.
//	rl (051019) ENHANCEMENT:
//		Added multiline text table import function.
//	rl (050906) RELEASED FOR BAE V6.6.
//	rl (040811) RELEASED FOR BAE V6.4.
//	rl (040331) ENHANCEMENT:
//		Added group symbol text class mask assignment function.
//	rl (040325) ENHANCEMENT:
//		Added text sheet load function.
//	rl (030912) RELEASED FOR BAE V6.2.
//	rl (030507) ENHANCEMENT:
//		Added text plot line width set function.
//	rl (030408) ENHANCEMENT:
//		Added group text class assignment function.
//	rl (030207) BUGFIX:
//		Fixed problem with multiline text copy function.
//	rl (021209) RELEASED FOR BAE V6.0.
//	rl (020618) RELEASED FOR BAE V5.4.
//	rl (010626) RELEASED FOR BAE V5.0.
//	rl (010106) ENHANCEMENT:
//		Added preservation of advanced text attributes in text mode
//		setting functions.
//	rl (000525) RELEASED FOR BAE V4.6.
//	rl (990625) RELEASED FOR BAE V4.4.
//	rl (980929) RELEASED FOR BAE V4.2.
//	mb (980710) ENHANCEMENT:
//		Pulldown menu delimiters introduced.
//	mb (980710) ENHANCEMENT:
//		Dynamic multi-language support introduced.
//	rl (970929) RELEASED FOR BAE V4.0.
//	mb (970604) CHANGE:
//		Applied figure list cross reference index access.
//	mb (970408) ENHANCEMENT:
//		New functions for changing mouse-selectable text
//		strings to upper case and/or lower case.
//	mb (970408) IMPROVEMENT:
//		Introduced screen redraw call for each change.
//	mb (960919) RELEASED FOR BAE V3.4.
//	mb (95) RELEASED FOR BAE V3.2.
//	mb (950222) IMPROVEMENT:
//		Avoid blank character creation during arc text generation.
//	mb (941116) ORIGINAL CODING.
//
// DESCRIPTION
//
// The scmtext User Language program provides a menu with a series
// of advanced text processing functions such as setting text sizes,
// changing standard to comment text (and vice versa), lower case text
// strings, upper case text strings, converting texts to areas or lines,
// writing texts on arcs, deleting texts with repetitive selection, etc.
*/

// Includes
#include "baeparam.ulh"			// User Language BAE param. access
#include "pop.ulh"			// User Language popup utilities
#include "scm.ulh"			// User Language SCM utilities

// Disable undo state request
#pragma ULCALLERNOUNDO

// Messages
string UPRABORT		= M_UPRABORT();
string UPRFCT		= M("Text-Funktion selektieren!",
			    "Select Text Function!");
string UPRFCT1		= M("Text&groesse setzen","Set Text &Size");
string UPRFCT2		= M("Text&modus setzen","Set Text &Mode");
string UPRFCT3		= M("%Text->&Flaeche","%Text->A&rea");
string UPRFCT4		= M("Text->&Linie","Text->&Line");
string UPRFCT5		= M("Text auf &Kreis","Text on Ar&c");
string UPRFCT6		= M("%Text Gro&ssschreibung","%Text &Upper Case");
string UPRFCT7		= M("Text Klei&nschreibung","Text L&ower Case");
string UPRFCT8		= M("%Texte l&oeschen","%&Delete Texts");
string UPRFCT9		= M("Texte &ersetzen","&Replace Texts");
string UPRFCT10		= M("Texte &aendern","C&hange Texts");
string UPRFCT11		= M("%Te&xtklasse","%Te&xt Class");
string UPRFCT12		= M("%Me&hrzeilentext","%&Multi L&ine Text");
string UPRFCT13		= M("%Text St&iftbreite setzen",
			    "%Set Text Plot &Width");
string UPRFCT14		= M("%Text&plan laden","%Load &Text Sheet");
string UPRFCT15		= M("Link zu ex&terner Datei","Li&nk to External File");
string UPRFCT16		= M("%Text aus &Zwischenablage",
			    "%&Place Clipboard Text");
string UPRMTEXTFCT	= M("Mehrzeilentextfunktion selektieren!",
			    "Select Multi Line Text Function!");
string UPRMFCT1		= M("&Neu","&Add");
string UPRMFCT2		= M("&Bewegen","&Move");
string UPRMFCT3		= M("&Kopieren","&Copy");
string UPRMFCT4		= M("&Aendern","&Edit");
string UPRMFCT5		= M("&Loeschen","&Delete");
string UPRMFCT6		= M("%&Groesse setzen","%Set Si&ze");
string UPRMFCT7		= M("&Modus setzen","Set M&ode");
string UPRMFCT8		= M("%&Selektieren","%&Select");
string UPRMFCT9		= M("D&eselektieren","Dese&lect");
string UPRMFCT10	= M("T&oggle","&Toggle");
string UPRMFCT11	= M("%&Tabelle einlesen","%&Import Table");
string UPRDPMODE	= M("Linienbreitenfunktion waehlen!",
			    "Select Text Line Width Function!");
string UPRDMODE1	= M("&Aendern","&Change");
string UPRDMODE2	= M("&Setzen","&Set");
string UPRDMODE3	= M("&Gruppe setzen","Set &Group");
string UPRTABFILE	= M("Texttabellendatei ? ","Text Table File ? ");
string UPRSELTNAME	= M("Tabellendefinition ? ","Table Definition ? ");
string UPRSELTEXT	= M("Text waehlen!","Select Text!");
string UPRTSIZEM	= M("Textgroesse [mm] ? ","Text Size [mm] ? ");
string UPRTSIZEI	= M("Textgroesse [Inch] ? ","Text Size [Inch] ? ");
string UPRTEXTWM	= M("Text Stiftbreite [mm] ? ",
			    "Text Pen Width [mm] ? ");
string UPRTEXTWI	= M("Text Stiftbreite [Inch] ? ",
			    "Text Pen Width [Inch] ? ");
string UPRTPWIDM	= M("Text Stiftbreite (%.2fmm) ? ",
			    "Text Pen Width (%.2fmm) ? ");
string UPRTPWIDI	= M("Text Stiftbreite [%.3f Inch] ? ",
			    "Text Pen Width [Inch] ? ");
string UPRTEXT		= M("Text ? ","Text ? ");
string UPRNEWTEXT	= M("Neuer Text ? ","New Text ? ");
string UPREDIT		= M("!Neuer Text","!New Text");
string UPRTCENTER	= M("Bogen-Mittelpunkt waehlen!",
			    "Select Arc Center!");
string UPRTSTART	= M("Text-Startposition waehlen!",
			    "Select Text Start Position!");
string UPRACLOCK	= M("&Gegen Uhrzeigersinn","C&ounter-Clockwise");
string UPRCLOCK		= M("&Im Uhrzeigersinn","&Clockwise");
string UPRTMODE		= M("Modus fuer Text waehlen!","Select Text Mode!");
string UPRNTEXT		= M("&Standardtext","&Standard Text");
string UPRDTEXT		= M("&Kommentartext","&Commentary Text");
string UPRTCLASS	= M("&Text zuweisen","&Text Assignment");
string UPRTCLASSGRP	= M("&Gruppe zuweisen","&Group Assignment");
string UPRTCLASSPDIS	= M("&Symbolmaske","&Symbol Mask");
string UPRTCLASSDIS	= M("&Planmaske","&Sheet Mask");
string UPRSELSYM	= M("Symbol waehlen!","Select Symbol!");
string UPRSELSYMA	= M("Symbol fuer Attributzuweisungen waehlen!",
			    "Select symbol for attribute assignments!");
string UPRTXTCLASS	= M("Text '%s' Klassenzugehoerigkeit",
			    "Text '%s' Class Assignment");
string UPRGTXTCLASS	= M("Gruppentexte Klassenzugehoerigkeit",
			    "Group Texts Class Assignment");
string UPRSTCLASS	= M("Symbol '%s' Textausblendung",
			    "Symbol '%s' Text Fade Out");
string UPRGSYMCLASS	= M("Gruppensymbole Textausblendung",
			    "Group Texts Text Fade Out");
string UPRPTCLASS	= M("Plan Textausblendung","Sheet Text Fade Out");
string UPRRBYES		= M("ja","yes");
string UPRRBNO		= M("nein","no");
string UPRNEXTDIAL	= M("&Weitere","&Next");
string UPRPREVDIAL	= M("&Vorherige","&Previous");
string UPREXTFILE	= M("Link Zieldatei ? ","Link Target File ? ");
string UPRFCTRPLC	= M("Funktion '%s' ersetzen ?",
			    "Replace function '%s' ?");
string REPTABLIST	= M("Auswahl Tabellendefinition :",
			    "Table Definition Selection :");
string REPCLASS		= M("Klasse %d","Class %d");
string ERRTEXT		= M("Fehler beim Erzeugen des Textes '%s'!",
			    "Error creating text '%s'!");
string ERRMTEXT		= M("Text '%s' ist kein Mehrzeilentext!",
			    "Text '%s' not part of a multi line text!");
string ERRDELETE	= M("Fehler beim Loeschen des Textes!",
			    "Error deleting text!");
string ERRPOLY		= M("Fehler beim Erzeugen der Flaechen!",
			    "Error creating areas!");
string ERRTEXTGLUED	= M("Text ist verankert!","Text is glued!");
string ERRNOTABDEF	= M("Tabellendefinition '%s' nicht gefunden!",
			    "Table definition '%s' not found!");
string ERRNOMTEXT	= M("Funktion fuer Mehrzeilentexte nicht unterstuetzt!",
			    "Function not supported for multi line texts!");
string ERRCLIPEMPTY	= M("Zwischenablage enthaelt keinen Text!",
			    "Clipboard contains no text!");
string ERRSETATT	= M("Fehler bei der Attributzuweisung '%s'!",
			    "Error setting attribute '%s'!");
string ERRNOPICK	= M_ERRNOPICK();
string ERRINPVAL	= M_ERRINPVAL();

// INI file parameter name definitions
#define PAR_CLASSDCNT	"TCLASSDCNT_SCM"// Class max. dialog items count
#define PAR_MAXEDIT	"MTMAXEDIT_SCM"	// Max. multi line edit length
#define PAR_TXTLSPC	"TXTLSPACE_SCM"	// Text line relativ spacing
#define PAR_MTEXTORIG	"MTEXTORIG_STD"	// Multi line text origin mode
#define PAR_TEXTTABL	"TEXTTABL_STD"	// Text table definition
#define PAR_TCLASSNAME	"TEXTCLASS%d_SCM"
					// Text class name
#define PAR_TCLASSCNT	"TCLASSCNT_SCM"	// Text class name count
#define PAR_ZOOMEXP	"SYMZOOMEXP_SCM"// Symbol zoom expansion value
#define PAR_ATTRSETP	"ATTR_SET_STD"	// Attribute set program
#define PAR_NOPLCPVIS	"NOPLCPVIS_SCM"	// $noplc/plot visibilty relationship
#define TCLASSMAX	31		// Max. text class name count

// Globals
double lastx,lasty			/* Last vector coordinates */;
struct tpoint {				// Text point descriptor
	double x,y			/* Point coordinates */;
	};
struct tpoint textdata[][]		/* Text polygon data field */;
int tpointcnt[]				/* Text poly. points count field */;
int tpolycnt		= 0		/* Text polygon count */;
string textstr				/* Current text string */;
double angle				/* Text size */;
double x,y				/* Text coordinates */;
double size				/* Text size */;
double width				/* Text width */;
int mirr				/* Text mirroring */;
int mode				/* Text mode (unused) */;

int MAXMENUCLASS = bae_iniintval(PAR_CLASSDCNT,12)
					/* Max. class menu list length */;
int TCLASSCNT = bae_iniintval(PAR_TCLASSCNT,31)
					/* Text class count */;
int MAXEDIT	= bae_iniintval(PAR_MAXEDIT,60000);
					// Max. multi line edit length
double LINESPC	= bae_inidblval(PAR_TXTLSPC,1.0);
					// Text rel. line spacing
int MTEXTORIG	= bae_iniintval(PAR_MTEXTORIG,0);
					// Multi line text origin mode
int NOPLCPVIS = bae_iniintval(PAR_NOPLCPVIS,3)
					/* $noplc/plot vis. relationship */;
#define GV_SATTRSYM	"set_attrsym"	// Set symbol name
#define GV_SOATTRN	"set_oattrn"	// Set original attribute count
#define GV_SOATTRNL	"set_oattrnl"	// Set original attribute name list
#define GV_SOATTRVL	"set_oattrvl"	// Set original attribute value list
int varl[]				/* Variant list */;
int varn	= 0			/* Variant count */;
int act_var	= 0			/* Active variant */;
int act_flag				/* Active variant defined flag */;
int ddbclass	= bae_planddbclass()	/* Plan DDB class */;
static int WINDOWS	= bae_swconfig(3)==BAE_WinStd
			 || bae_swconfig(3)==BAE_WinPulldwn
					/* BAE Windows software flag */;

// SQL command definitions
#define V_SELECTA	"select variant from varinfo;"

// Main program
void main()
{
	index C_FIGURE fig		/* Figure list index */;
	index C_NREF nref		/* Named reference index */;
	index C_TEXT text		/* Text index */;
	string t_dis	= ","		/* Text items disable */;
	string gt_dis	= ","		/* Group text items plan disable */;
	string s_dis	= ","		/* Symbol items plan disable */;
	int i				/* Loop control variable */;
	// Test the plan class
	if (ddbclass==DDBCLUNDEF)
		error_class();
	// Check if call inside function
	check_fctactive();
	// Check if element type scan
	if (bae_iniintval(PAR_METYPSCAN,1)==1 && !bae_peekiact()) {
		forall (text) {
			t_dis="";
			forall (fig where fig.GROUP && fig.TYP==C_FIGTEXT) {
				gt_dis="";
				break;
				}
			break;
			}
		}
	else {
		// Enable all menu items
		t_dis=gt_dis="";
		}
	// Ask for text function type
	bae_defmenusel(-1);
	bae_promptdialog(UPRFCT);
	switch (bae_askmenu(17,t_dis+UPRFCT1,t_dis+UPRFCT2,t_dis+UPRFCT3,
	 t_dis+UPRFCT4,UPRFCT5,t_dis+UPRFCT6,t_dis+UPRFCT7,t_dis+UPRFCT8,
	 t_dis+UPRFCT9,t_dis+UPRFCT10,UPRFCT11,UPRFCT12,t_dis+UPRFCT13,
	 t_dis+UPRFCT14,t_dis+UPRFCT15,(WINDOWS ? t_dis : ",")+UPRFCT16,
	 UPRABORT)) {
		// Set text size
		case 0 :
		settextsize();
		break;
		// Set text documentary mode
		case 1 :
		settextmode();
		break;
		// Text to area conversion
		case 2 :
		texttoarea();
		break;
		// Text to line conversion
		case 3 :
		texttoline();
		break;
		// Arc text
		case 4 :
		arctext();
		break;
		// Text upper case
		case 5 :
		textuppercase();
		break;
		// Text lower case
		case 6 :
		textlowercase();
		break;
		// Delete texts
		case 7 :
		deletetext();
		break;
		// Change texts
		case 8 :
		changetext();
		break;
		// Replace texts
		case 9 :
		replacetext();
		break;
		// Text class
		case 10 :
		// Select text class function
		if (ddbclass==DDBCLSCM) {
			// Check if element type scan
			if (bae_iniintval(PAR_METYPSCAN,1)==1 &&
			 !bae_peekiact()) {
				forall (nref) {
					s_dis="";
					break;
					}
				}
			else {
				// Enable all menu items
				s_dis="";
				}
			}
		bae_defmenusel(-1);
		switch (bae_askmenu(5,t_dis+UPRTCLASS,gt_dis+UPRTCLASSGRP,
		 s_dis+UPRTCLASSPDIS,UPRTCLASSDIS,UPRABORT)) {
			// Text class assignment
			case 0 :
			textclass();
			break;
			// Group text class assignment
			case 1 :
			grouptextclass();
			break;
			// Part text class mask assignment
			case 2 :
			symtextclass();
			break;
			// Plan text class
			case 3 :
			plantextclass();
			break;
			default :
			error_abort();
			}
		break;
		// Multi line text functions
		case 11 :
		bae_defmenusel(-1);
		bae_promptdialog(UPRMTEXTFCT);
		switch (bae_askmenu(12,UPRMFCT1,t_dis+UPRMFCT2,t_dis+UPRMFCT3,
		 t_dis+UPRMFCT4,t_dis+UPRMFCT5,t_dis+UPRMFCT6,t_dis+UPRMFCT7,
		 t_dis+UPRMFCT8,gt_dis+UPRMFCT9,t_dis+UPRMFCT10,UPRMFCT11,
		 UPRABORT)) {
			// Add text
			case 0 :
			mtextadd(1);
			break;
			// Move text
			case 1 :
			mtextmove();
			break;
			// Copy text
			case 2 :
			mtextcopy();
			break;
			// Edit text
			case 3 :
			mtextedit();
			break;
			// Delete text
			case 4 :
			mtextdelete();
			break;
			// Set text size
			case 5 :
			mtextsize();
			break;
			// Set text mode
			case 6 :
			mtextmode();
			break;
			// Select text
			case 7 :
			mtextselect(1);
			break;
			// Deselect text
			case 8 :
			mtextselect(0);
			break;
			// Toggle text
			case 9 :
			mtextselect(2);
			break;
			// Import table text
			case 10 :
			mtexttable();
			break;
			default :
			error_abort();
			}
		break;
		// Set text plot width
		case 12 :
		bae_defmenusel(-1);
		bae_promptdialog(UPRDPMODE);
		switch (bae_askmenu(4,t_dis+UPRDMODE1,t_dis+UPRDMODE2,
		 gt_dis+UPRDMODE3,UPRABORT)) {
			// Change mouse selectable texts
			case 0 : settextpwidth(0); break;
			// Set mouse selectable texts
			case 1 : settextpwidth(1); break;
			// Set group texts
			case 2 : settextpwidth(2); break;
			default :
			error_abort();
			}
		break;
		// Load text sheet plan
		case 13 :
		loadtextsheet();
		break;
		// Link to external file
		case 14 :
		linkfile();
		break;
		// Place clipboard text
		case 15 :
		if (bae_getstrpar(10,textstr)!=0 || textstr=="")
			error(ERRCLIPEMPTY);
		// Check if text contains attribute assignments
		if (ddbclass==DDBCLSCM && symattrpaste())
			break;
		// Check if text contains linefeeds
		for (i=strlen(textstr)-1;i>=0;i--)
			if (textstr[i]==0x0a)
				break;
		if (i>=0) {
			mtextadd(0);
			}
		else {
			scm_setintpar(25,1);
			bae_callmenu(MNU_SCMADDTEXT);
			scm_setintpar(25,0);
			}
		break;
		// Abort on default
		default :
		}
}

// Text functions

void settextsize()
/*
// Set size of mouse-selectable texts
*/
{
	index C_FIGURE nfig		/* New figure list index */;
	index C_FIGURE fig		/* Figure list element */;
	STRINGS rl			/* Rule list */;
	double textsize			/* Text size */;
	int cnt	= 0			/* Element count */;
	// Get the text size
	textsize=baepar_dblval(SCMPAR_DEFTEXTSIZE);
	if (askdist(textsize,bae_getcoorddisp()?UPRTSIZEI:UPRTSIZEM,0))
		// Invalid input value
		error(ERRINPVAL);
	// Loop while pick element found
	while (bae_promptdialog(UPRSELTEXT),scm_pickelem(fig,C_FIGTEXT)==0) {
		if (fig.FIXED&2)
			error(ERRTEXTGLUED);
		// Save current state for undo
		if (cnt==0)
			bae_callmenu(MNU_BAESAVESTATE);
		// Store text with new size
		if (scm_storetext(fig.NAME,
		 fig.X,fig.Y,fig.ANGLE,textsize,fig.MIRROR,fig.TEXT.MODE))
			errormsg(ERRTEXT,fig.NAME);
		// Transfer rules
		if (fig.RULEOBJID>=0 && cap_lastfigelem(nfig)==0) {
			// Get rules
			if (rsc_getfigrules(fig,rl)>0)
				// Attach rules
				if (cap_rulefigatt(nfig,rl))
					rsc_error(-1);
			}
		// Delete old text element
		if (scm_delelem(fig))
			error(ERRDELETE);
		// Perform screen redraw
		screenredraw();
		cnt++;
		}
	// No pick
	if (cnt)
		bae_prtdialog(ERRNOPICK);
	else
		perror(ERRNOPICK);
}

void settextmode()
/*
// Change mode of mouse-selectable texts
*/
{
	int newmode			/* New mode code */;
	index C_FIGURE fig		/* Figure list element */;
	index C_FIGURE nfig		/* New figure list index */;
	STRINGS rl			/* Rule list */;
	int cnt	= 0			/* Element count */;
	// Select text mode
	bae_defmenusel(-1);
	bae_promptdialog(UPRTMODE);
	if ((newmode=bae_askmenu(3,UPRNTEXT,UPRDTEXT,UPRABORT))<0 ||
	 newmode>1)
		error_abort();
	// Loop while pick element found
	while (bae_promptdialog(UPRSELTEXT),scm_pickelem(fig,C_FIGTEXT)==0) {
		if (fig.FIXED&2)
			error(ERRTEXTGLUED);
		// Save current state for undo
		if (cnt==0)
			bae_callmenu(MNU_BAESAVESTATE);
		// Store text with new mode
		if (scm_storetext(fig.TEXT.STR,
		 fig.X,fig.Y,fig.ANGLE,fig.SIZE,fig.MIRROR,
		 (fig.TEXT.MODE&~TEXTCOMM)|newmode))
			errormsg(ERRTEXT,fig.TEXT.STR);
		// Transfer rules
		if (fig.RULEOBJID>=0 && cap_lastfigelem(nfig)==0) {
			// Get rules
			if (rsc_getfigrules(fig,rl)>0)
				// Attach rules
				if (cap_rulefigatt(nfig,rl))
					rsc_error(-1);
			}
		// Delete old text element
		if (scm_delelem(fig))
			error(ERRDELETE);
		// Perform screen redraw
		screenredraw();
		cnt++;
		}
	// No pick
	if (cnt)
		bae_prtdialog(ERRNOPICK);
	else
		perror(ERRNOPICK);
}

void textuppercase()
/*
// Upper case mouse-selectable texts
*/
{
	index C_FIGURE fig		/* Figure list element */;
	index C_FIGURE nfig		/* New figure list index */;
	STRINGS rl			/* Rule list */;
	string newstr			/* New text string */;
	int cnt	= 0			/* Element count */;
	// Loop while pick element found
	while (bae_promptdialog(UPRSELTEXT),scm_pickelem(fig,C_FIGTEXT)==0) {
		if (fig.FIXED&2)
			error(ERRTEXTGLUED);
		// Get new text string
		strupper(newstr=fig.NAME);
		// Continue if no text string change request
		if (newstr==fig.NAME)
			continue;
		// Save current state for undo
		if (cnt==0)
			bae_callmenu(MNU_BAESAVESTATE);
		// Store text with new string
		if (scm_storetext(newstr,
		 fig.X,fig.Y,fig.ANGLE,fig.SIZE,fig.MIRROR,fig.TEXT.MODE))
			errormsg(ERRTEXT,newstr);
		// Transfer rules
		if (fig.RULEOBJID>=0 && cap_lastfigelem(nfig)==0) {
			// Get rules
			if (rsc_getfigrules(fig,rl)>0)
				// Attach rules
				if (cap_rulefigatt(nfig,rl))
					rsc_error(-1);
			}
		// Delete old text element
		if (scm_delelem(fig))
			error(ERRDELETE);
		// Perform screen redraw
		screenredraw();
		cnt++;
		}
	// No pick
	if (cnt)
		bae_prtdialog(ERRNOPICK);
	else
		perror(ERRNOPICK);
}

void textlowercase()
/*
// Lower case mouse-selectable texts
*/
{
	index C_FIGURE fig		/* Figure list element */;
	index C_FIGURE nfig		/* New figure list index */;
	STRINGS rl			/* Rule list */;
	string newstr			/* New text string */;
	int cnt	= 0			/* Element count */;
	// Loop while pick element found
	while (bae_promptdialog(UPRSELTEXT),scm_pickelem(fig,C_FIGTEXT)==0) {
		if (fig.FIXED&2)
			error(ERRTEXTGLUED);
		// Get lower case text string
		strlower(newstr=fig.NAME);
		// Continue if no text string change request
		if (newstr==fig.NAME)
			continue;
		// Save current state for undo
		if (cnt==0)
			bae_callmenu(MNU_BAESAVESTATE);
		// Store text with new string
		if (scm_storetext(newstr,
		 fig.X,fig.Y,fig.ANGLE,fig.SIZE,fig.MIRROR,fig.TEXT.MODE))
			errormsg(ERRTEXT,newstr);
		// Transfer rules
		if (fig.RULEOBJID>=0 && cap_lastfigelem(nfig)==0) {
			// Get rules
			if (rsc_getfigrules(fig,rl)>0)
				// Attach rules
				if (cap_rulefigatt(nfig,rl))
					rsc_error(-1);
			}
		// Delete old text element
		if (scm_delelem(fig))
			error(ERRDELETE);
		// Perform screen redraw
		screenredraw();
		cnt++;
		}
	// No pick
	if (cnt)
		bae_prtdialog(ERRNOPICK);
	else
		perror(ERRNOPICK);
}

void deletetext()
/*
// Delete mouse-selectable texts
*/
{
	index C_FIGURE fig		/* Figure list element */;
	int cnt	= 0			/* Element count */;
	// Loop while pick element found
	bae_prtdialog(UPRSELTEXT);
	while (scm_pickelem(fig,C_FIGTEXT)==0) {
		if (fig.FIXED&2)
			error(ERRTEXTGLUED);
		// Save current state for undo
		if (cnt==0)
			bae_callmenu(MNU_BAESAVESTATE);
		// Delete element
		if (scm_delelem(fig))
			error(ERRDELETE);
		// Perform screen redraw
		screenredraw();
		cnt++;
		}
	// No pick
	if (cnt)
		bae_prtdialog(ERRNOPICK);
	else
		perror(ERRNOPICK);
}

void changetext()
/*
// Change mouse-selectable texts to a new string
*/
{
	index C_FIGURE fig		/* Figure list element */;
	index C_FIGURE nfig		/* New figure list index */;
	STRINGS rl			/* Rule list */;
	string newstr			/* New text string */;
	int cnt	= 0			/* Element count */;
	if (scm_getstrpar(4,textstr))
		textstr="";
	// Get text string
	bae_setmousetext("");
	if ((newstr=bae_readedittext(UPRNEWTEXT,textstr,MAXTEXTLEN))=="" ||
	 newstr==UINPOPABORT)
		error_abort();
	scm_setstrpar(4,textstr);
	// Loop while pick element found
	while (bae_promptdialog(UPRSELTEXT),scm_pickelem(fig,C_FIGTEXT)==0) {
		// Continue if no text string change request
		if (newstr==fig.NAME)
			continue;
		if (fig.FIXED&2)
			error(ERRTEXTGLUED);
		// Save current state for undo
		if (cnt==0)
			bae_callmenu(MNU_BAESAVESTATE);
		// Store text with new string
		if (scm_storetext(newstr,
		 fig.X,fig.Y,fig.ANGLE,fig.SIZE,fig.MIRROR,fig.TEXT.MODE))
			errormsg(ERRTEXT,newstr);
		// Transfer rules
		if (fig.RULEOBJID>=0 && cap_lastfigelem(nfig)==0) {
			// Get rules
			if (rsc_getfigrules(fig,rl)>0)
				// Attach rules
				if (cap_rulefigatt(nfig,rl))
					rsc_error(-1);
			}
		// Delete old text element
		if (scm_delelem(fig))
			error(ERRDELETE);
		// Perform screen redraw
		screenredraw();
		cnt++;
		}
	// No pick
	if (cnt)
		bae_prtdialog(ERRNOPICK);
	else
		perror(ERRNOPICK);
}

void replacetext()
/*
// Replace texts with a new string
*/
{
	index C_FIGURE fig		/* Figure list element */;
	index C_FIGURE dfig		/* Delete figure list element */;
	index C_FIGURE nfig		/* New figure list index */;
	STRINGS rl			/* Rule list */;
	string oldstr			/* Old text string */;
	string newstr			/* New text string */;
	int cflag = 0			/* Change flag */;
	// Get old text sample
	bae_promptdialog(UPRSELTEXT);
	if (scm_pickelem(fig,C_FIGTEXT))
		error(ERRNOPICK);
	// Get the old text string
	oldstr=fig.NAME;
	// Get new text string
	bae_setmousetext("");
	if ((newstr=bae_readedittext(UPRNEWTEXT,oldstr,MAXTEXTLEN))=="" ||
	 newstr==UINPOPABORT)
		error_abort();
	// Check if string change
	if (newstr==oldstr)
		return;
	// Loop while pick element found
	forall (fig where fig.TYP==C_FIGTEXT && fig.NAME==oldstr) {
		if (fig.FIXED&2)
			error(ERRTEXTGLUED);
		// Save current state for undo
		if (cflag==0) {
			bae_callmenu(MNU_BAESAVESTATE);
			cflag=1;
			}
		// Store text with new string
		if (scm_storetext(newstr,
		 fig.X,fig.Y,fig.ANGLE,fig.SIZE,fig.MIRROR,fig.TEXT.MODE))
			errormsg(ERRTEXT,newstr);
		// Transfer rules
		if (fig.RULEOBJID>=0 && cap_lastfigelem(nfig)==0) {
			// Get rules
			if (rsc_getfigrules(fig,rl)>0)
				// Attach rules
				if (cap_rulefigatt(nfig,rl))
					rsc_error(-1);
			}
		// Delete old text element
		dfig=fig;
		if (scm_delelem(dfig))
			error(ERRDELETE);
		}
	// Perform screen redraw
	screenredraw();
}

void loadtextsheet()
/*
// Load project sheet element specified in text string
*/
{
	double ZOOMEXP = bae_inidblval(PAR_ZOOMEXP,0.0001)
					/* Symbol zoom window expansion */;
	index C_FIGURE fig		/* Figure list element */;
	index C_NREF nref		/* Named reference element */;
	STRINGS wordl			/* Text word list */;
	int wordn	= 0		/* Text word count */;
	STRINGS sheetl			/* Project sheet list */;
	int sheetn	= 0		/* Project sheet count */;
	string sheetname = ""		/* Sheet element name */;
	string fname	= bae_planfname() /* Database file name */;
	string ename			/* Element name */;
	string symname	= ""		/* Symbol name */;
	string partname			/* Part name */;
	string s			/* Scan string */;
	int sl				/* String length */;
	int dst				/* Destination string index */;
	int i, j			/* Loop control variables */;
	// Abort if invalid plan class
	if (ddbclass!=DDBCLSCM)
		error_class();
	// Get text sample
	bae_promptdialog(UPRSELTEXT);
	if (scm_pickelem(fig,C_FIGTEXT))
		error(ERRNOPICK);
	// Scan the text words
	s=fig.NAME;
	strlower(s);
	sl=strlen(s);
	// Skip leading blanks
	for (i=0;i<sl;i++)
		if (s[i]!=' ' && s[i]!='\t')
			break;
	// Scan text words
	while (i<sl) {
		dst=0;
		for (;i<sl;i++) {
			if (s[i]==' ' || s[i]=='\t'  || s[i]==':')
				break;
			else
				wordl[wordn][dst]=s[i];
			dst++;
			}
		wordl[wordn][dst]='\0';
		wordn++;
		// Skip word seperators
		for (;i<sl;i++)
			if (s[i]!=' ' && s[i]!='\t'  && s[i]!=':')
				break;
		}
	// Scan the project sheets
	ename="";
	while (scanddbenames(fname,DDBCLSCM,ename)==1) {
		// Store the sheet name
		sheetl[sheetn++]=ename;
		// Check if direct element match word exists
		for (i=0;i<wordn;i++)
			if (wordl[i]==ename)
				sheetname=ename;
		}
	if (sheetname=="")
		// Check plan comments
		for (i=0;i<sheetn;i++)
			if (ddbgetelemcomment(
			 fname,DDBCLSCM,sheetl[i],ename)==0) {
				strlower(ename);
				// Check if direct element comment match
				for (j=0;j<wordn;j++)
					if (wordl[j]==ename) {
						sheetname=sheetl[i];
						break;
						}
				if (j<wordn)
					break;
				}
	if (sheetname=="")
		// Check plan name patterns
		for (i=0;i<sheetn;i++) {
			for (j=0;j<wordn;j++)
				// Check if sheet name pattern match
				if (strmatch(sheetl[i],wordl[j]+"*")) {
					sheetname=sheetl[i];
					break;
					}
			if (j<wordn)
				break;
			}
	// Check if sheet name found
	if (sheetname!="") {
		// Save current element with verification on request
		verifysave();
		// Try to load the sheet
		loadddbelem(fname,sheetname,DDBCLSCM);
		}
	// Now try to locate some part/symbol
	forall (nref where nref.MACRO.CLASS!=DDBCLSLAB) {
		if (cap_getpartattrib(nref.NAME,"$",partname)==0) {
			for (i=0;i<wordn;i++)
				if (wordl[i]==partname)
					break;
			if (i<wordn) {
				symname=nref.NAME;
				break;
				}
			}
		for (i=0;i<wordn;i++)
			if (wordl[i]==nref.NAME)
				break;
		if (i<wordn)
			symname=nref.NAME;
		}
	if (symname!="" && cap_nrefsearch(symname,fig)==0) {
		// Symbol found; perform zoom window to the Symbol
		bae_clriactqueue();
		bae_storemouseiact(1,fig.RLX-ZOOMEXP,fig.RLY-ZOOMEXP,0,LMB);
		bae_storemouseiact(1,fig.RUX+ZOOMEXP,fig.RUY+ZOOMEXP,0,LMB);
		call(MNU_BAEZOOMWND);
		}
}

void linkfile()
/*
// Set context function to external file call
*/
{
	index C_FIGURE fig		/* Figure list element */;
	string extfile	= ""		/* External file */;
	string fext			/* External file extension */;
	string predname			/* Predicate name */;
	string menu			/* Menu text */;
	string seq			/* Command sequence */;
	string msg			/* Message string */;
	char c				/* Character buffer */;
	int i				/* Loop control variable */;
	// Get text
	bae_promptdialog(UPRSELTEXT);
	if (scm_pickelem(fig,C_FIGTEXT))
		error(ERRNOPICK);
	// Query the multiline text status
	if (fig.RULEOBJID>=0 &&
	 cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,RS_MTEXTID,"?s","")>0)
		error(ERRNOMTEXT);
	// Query current function
	sprintf(predname,RS_FCTSEQ,0);
	if (cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,predname,"?s",seq)<1)
		seq=="";
	// Check if context function defined
	if (seq!="") {
		// Check if not external file reference
		if (strmatch(seq,"#9049:\"$extappl:.*: *\"")==0) {
			// Query the menu text
			sprintf(predname,RS_FCTNAME,0);
			if (cap_rulequery(
			 RS_OCFIG,fig,RS_SCMSUBJ,predname,"?s",menu)<1)
				menu="";
			// Verify command replacement
			sprintf(msg,UPRFCTRPLC,bae_plainmenutext(menu));
			if (bae_msgboxverify(msg,"")!=1)
				error_abort();
			}
		else {
			// Extract file name from command sequence
			for (i=0;(c=seq[i])!='\0';i++)
				if (c==' ') {
					if (seq[i+1]=='\\')
						extfile=strextract(
						 seq,i+3,strlen(seq)-4);
					else
						extfile=strextract(
						 seq,i+1,strlen(seq)-2);
					break;
					}
			}
		}
	// Query the file name
	if (bae_askfilename(extfile,"",UPREXTFILE))
		error_abort();
	// Get the file name extension
	fext=strextract(extfile,strlen(convstring(extfile,0)),strlen(extfile));
	// Assign the external file call context function
	sprintf(seq,"#9049:\"$extappl:%s: \\\"%s\\\"\"",fext,extfile);
	sprintf(predname,RS_FCTSEQ,0);
	rsc_assfigstrpred(fig,predname,seq,"","");
	sprintf(predname,RS_FCTNAME,0);
	rsc_assfigstrpred(fig,predname,UPRFCT15,"","");
}

void textclass()
/*
// Set class bits of mouse-selectable texts
*/
{
	index C_FIGURE fig		/* Figure list element */;
	string prompt			/* Prompt message */;
	int textclass			/* Text class */;
	int cnt	= 0			/* Element count */;
	int autoflag = bae_peekiact()	/* Automatic interaction flag */;
	// Loop while pick element found
	while (bae_promptdialog(UPRSELTEXT),scm_pickelem(fig,C_FIGTEXT)==0) {
		if (fig.FIXED&2)
			error(ERRTEXTGLUED);
		// Query the text class mask
		if (cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,
		 RS_TXTCLASS,"?d",textclass)<1)
			// Set default mask
			textclass=0;
		// Get the new text class mask
		sprintf(prompt,UPRTXTCLASS,fig.TEXT.STR);
		textclass=edittextclassmask(prompt,textclass);
		// Save current state for undo
		if (cnt==0)
			bae_callmenu(MNU_BAESAVESTATE);
		// Assign the text class predicate rule
		rsc_assfigintpred(fig,RS_TXTCLASS,textclass,0,"");
		// Perform screen redraw
		screenredraw();
		cnt++;
		}
	// No pick
	if (!autoflag) {
		if (cnt)
			bae_prtdialog(ERRNOPICK);
		else
			perror(ERRNOPICK);
		}
}

void grouptextclass()
/*
// Set class bits of mouse-selectable texts
*/
{
	index C_FIGURE fig		/* Figure list element */;
	int textclass = 0		/* Text class */;
	int grpmode			/* Group mode */;
	int cflag = 0			/* Change flag */;
	// Select text class function
	if (ddbclass==DDBCLSCM) {
		if ((grpmode=bae_askmenu(
		 3,UPRTCLASS,UPRTCLASSPDIS,UPRABORT))<0 || grpmode>1)
			error_abort();
		}
	else {
		// Text assignment
		grpmode=0;
		}
	// Check if symbol mask assignment
	if (grpmode) {
		// Get the group symbol class mask
		textclass=edittextclassmask(UPRGSYMCLASS,textclass);
		// Loop while pick element found
		forall (fig where fig.GROUP && fig.TYP==C_FIGNREF &&
		 !(fig.FIXED&2)) {
			// Save current state for undo
			if (cflag==0) {
				bae_callmenu(MNU_BAESAVESTATE);
				cflag=1;
				}
			// Assign the text class predicate rule
			rsc_assfigintpred(fig,RS_TXTCDIS,textclass,0,"");
			}
		}
	else {
		// Get the group text class mask
		textclass=edittextclassmask(UPRGTXTCLASS,textclass);
		// Loop while pick element found
		forall (fig where fig.GROUP && fig.TYP==C_FIGTEXT &&
		 !(fig.FIXED&2)) {
			// Save current state for undo
			if (cflag==0) {
				bae_callmenu(MNU_BAESAVESTATE);
				cflag=1;
				}
			// Assign the text class predicate rule
			rsc_assfigintpred(fig,RS_TXTCLASS,textclass,0,"");
			}
		}
	// Perform screen redraw
	screenredraw();
}

void symtextclass()
/*
// Set text class mask bits of mouse-selectable symbols
*/
{
	index C_FIGURE fig		/* Figure list element */;
	string prompt			/* Prompt message */;
	int classmask			/* Text class disable mask */;
	int cnt	= 0			/* Element count */;
	// Abort if invalid plan class
	if (ddbclass!=DDBCLSCM)
		error_class();
	// Loop while pick element found
	while (bae_promptdialog(UPRSELSYM),scm_pickelem(fig,C_FIGSREF)==0) {
		if (fig.FIXED&2)
			error(ERRTEXTGLUED);
		// Query the text class mask
		if (cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,
		 RS_TXTCDIS,"?d",classmask)<1)
			// Set default mask
			classmask=0;
		// Get the new text class mask
		sprintf(prompt,UPRSTCLASS,fig.NAME);
		classmask=edittextclassmask(prompt,classmask);
		// Save current state for undo
		if (cnt==0)
			bae_callmenu(MNU_BAESAVESTATE);
		// Assign the text class mask predicate rule
		rsc_assfigintpred(fig,RS_TXTCDIS,classmask,0,"");
		// Perform screen redraw
		screenredraw();
		cnt++;
		}
	// No pick
	if (cnt)
		bae_prtdialog(ERRNOPICK);
	else
		perror(ERRNOPICK);
}

void plantextclass()
/*
// Set text class mask bits for current project
*/
{
	int classmask			/* Text class disable mask */;
	int obj				/* Rule object */;
	int dbflag			/* Rule database flag */;
	// Check element level
	if (ddbclass!=DDBCLSCM) {
		obj=RS_OCPLAN;
		dbflag=0;
		}
	else {
		obj=RS_OCSCMDB;
		dbflag=1;
		}
	// Query the text class disable mask
	if (cap_rulequery(obj,0,RS_SCMSUBJ,RS_TXTCDIS,"?d",classmask)<1)
		// Set default mask
		classmask=0;
	// Get the new text class mask
	classmask=edittextclassmask(UPRPTCLASS,classmask);
	// Save current state for undo
	bae_callmenu(MNU_BAESAVESTATE);
	// Assign the text class mask predicate rule
	rsc_assplanintpred(dbflag,RS_TXTCDIS,classmask,0,"");
	// Perform screen redraw
	screenredraw();
}

int edittextclassmask(string prompt,int classmask)
/*
// Edit text class mask
// Return value :
//	zero if done or (-1) on error
// Parameters :
//	string prompt		: Prompt message
//	int classmask		: Text class mask
*/
{
	string varname			/* Variable name */;
	string classnl[]		/* Class name list */;
	double cy	= 0.0		/* Current y value */;
	int nbutidx			/* Next button index */;
	int pbutidx			/* Previous button index */;
	int dfl[]			/* Disable flag list */;
	int clsbl[]			/* Class bit button index list */;
	int clssl[]			/* Class bit 2nd button index list */;
	int clsll[]			/* Class label index list */;
	int mlsidx	= 0		/* Menu attr. list start idx. */;
	int menuidx			/* Menu item index */;
	int repflag	= 1		/* Repeat flag */;
	int i				/* Loop control variable */;
	// Check for dialog support
	if (bae_dialclr()) {
		// Ask for direct mask input
		if (askint(classmask,prompt+" ? ",10))
			error_abort();
		// Return class mask
		return(classmask);
		}
	// Build the class disable flag list
	for (i=0;i<TCLASSMAX;i++)
		if (classmask&(1<<i)) {
			dfl[i]=1;
			if (i>=TCLASSCNT)
				TCLASSCNT=i+1;
			}
		else {
			dfl[i]=0;
			}
	// Build the class name list
	for (i=0;i<TCLASSCNT;i++) {
		// Get class name
		sprintf(varname,PAR_TCLASSNAME,i+1);
		if (varget(varname,classnl[i])!=0 || classnl[i]=="")
			sprintf(classnl[i],REPCLASS,i+1);
		}
	// Create the dialog box controls
	cy=DIAL_TOPMARG;
	// Build the class table menu
	for (menuidx=0;
	 menuidx<MAXMENUCLASS && menuidx<TCLASSCNT;menuidx++) {
		// Store class controls
		clsll[menuidx]=dial_label(0.0,cy,classnl[menuidx]);
		clsbl[menuidx]=
		 bae_dialaddcontrol(PA_RBF,1,0,dfl[menuidx],0.0,0.0,0.0,
		 "",0,DIAL_LEFTMARG+25.0,cy,0.0,UPRRBYES);
		clssl[menuidx]=bae_dialaddcontrol(PA_RBN,0,0,0,0.0,0.0,0.0,"",
		 0,DIAL_LEFTMARG+30.0,cy,0.0,UPRRBNO);
		cy+=1.0;
		}
	// Store the OK and abort button with seperator
	cy+=0.4;
	bae_dialaddcontrol(
	 PA_OK,0,0,0,0.0,0.0,0.0,"",0,DIAL_LEFTMARG,cy,0.0,"");
	bae_dialaddcontrol(
	 PA_ABORT,0,0,0,0.0,0.0,0.0,"",0,DIAL_LEFTMARG+5.0,cy,0.0,"");
	pbutidx=bae_dialaddcontrol(
	 PA_ACT,0,1,0,0.0,0.0,0.0,"",0,DIAL_LEFTMARG+20.0,cy,0.0,UPRPREVDIAL);
	nbutidx=bae_dialaddcontrol(
	 PA_ACT,0,2,0,0.0,0.0,0.0,"",0,DIAL_LEFTMARG+30.0,cy,0.0,UPRNEXTDIAL);
	bae_dialaddcontrol(PA_HSEP|PA_HBRDREL,0,0,0,0.0,0.0,0.0,"",0,
	 DIAL_LEFTMARG,cy-0.4,DIAL_RIGHTSMARG,"");
	do {
		// Check for previous and next page menu items
		bae_dialsetdata(pbutidx,mlsidx>0 ? PA_ACT : PA_NIL,0,0.0,"");
		bae_dialsetdata(nbutidx,(mlsidx+MAXMENUCLASS)<TCLASSCNT
		 ? PA_ACT : PA_NIL,0,0.0,"");
		// Build the attribute table menu
		for (menuidx=0;menuidx<MAXMENUCLASS &&
		(menuidx+mlsidx)<TCLASSCNT;menuidx++) {
			bae_dialsetdata(clsbl[menuidx],PA_RBF,
			 dfl[menuidx+mlsidx],0.0,"");
			bae_dialsetdata(clssl[menuidx],PA_RBN,0,0.0,"");
			bae_dialsetdata(clsll[menuidx],PA_LAB,
			 0,0.0,classnl[menuidx+mlsidx]);
			}
		// Disable unused attribute controls
		for (;menuidx<MAXMENUCLASS && menuidx<TCLASSCNT;menuidx++) {
			bae_dialsetdata(clsbl[menuidx],PA_NIL,0,0.0,"");
			bae_dialsetdata(clssl[menuidx],PA_NIL,0,0.0,"");
			bae_dialsetdata(clsll[menuidx],PA_NIL,0,0.0,"");
			}
		// Call the dialog function
		bae_setintpar(16,3031);
		switch (bae_dialaskparams(
		 prompt,0,DIAL_LEFTMARG+38.3+DIAL_RIGHTSMARG,cy+1.6)) {
			// Done
			case 0 :
			repflag=0;
			break;
			// Previous attribute list
			case 1 :
			// Fetch current attribute value fields
			for (menuidx=0;menuidx<MAXMENUCLASS &&
			 (menuidx+mlsidx)<TCLASSCNT;menuidx++)
				bae_dialgetdata(
				 clsbl[menuidx],dfl[menuidx+mlsidx],0.0,"");
			mlsidx-=MAXMENUCLASS;
			break;
			// Next attribute list
			case 2 :
			// Fetch current attribute value fields
			for (menuidx=0;menuidx<MAXMENUCLASS &&
			 (menuidx+mlsidx)<TCLASSCNT;menuidx++)
				bae_dialgetdata(
				 clsbl[menuidx],dfl[menuidx+mlsidx],0.0,"");
			mlsidx+=MAXMENUCLASS;
			break;
			// Fail/abort
			case (-1) :
			error_abort();
			}
		}
	 // Stop if no further repeat requests
	 while (repflag);
	// Fetch current attribute value fields
	for (menuidx=0;
	 menuidx<MAXMENUCLASS && (menuidx+mlsidx)<TCLASSCNT;menuidx++)
		bae_dialgetdata(clsbl[menuidx],dfl[menuidx+mlsidx],0.0,"");
	classmask=0;
	for (i=0;i<TCLASSCNT;i++)
		if (dfl[i])
			classmask|=1<<i;
	return(classmask);
}

// Arc text routines

void arctext()
/*
// Arc text generation function
*/
{
	string textstr			/* Text string */;
	double xc,yc			/* Arc center coordinates */;
	double xs,ys			/* Text start coordinates */;
	double xv,xvn,yv		/* Text center vector */;
	double xt,xtn,yt		/* Text base vector */;
	double rad			/* Text arc radius */;
	double rotang			/* Text vector rot. step angle */;
	double angsin,angcos		/* Text vector rotation steps */;
	int rotflag			/* Text rotation orientation */;
	int mode			/* Text mode */;
	double tsize			/* Text size */;
	int i				/* Loop control variable */;
	// Select text mode
	bae_promptdialog(UPRTMODE);
	if ((mode=bae_askmenu(3,UPRNTEXT,UPRDTEXT,UPRABORT))<0 || mode>1)
		error_abort();
	// Get the text size
	tsize=baepar_dblval(SCMPAR_DEFTEXTSIZE);
	if (askdist(tsize,bae_getcoorddisp()?UPRTSIZEI:UPRTSIZEM,0)
	 || tsize<=0.0)
		error_abort();
	if (scm_getstrpar(4,textstr))
		textstr="";
	// Get text string
	bae_setmousetext("");
	if ((textstr=bae_readedittext(UPRTEXT,textstr,MAXTEXTLEN))=="" ||
	 textstr==UINPOPABORT)
		error_abort();
	scm_setstrpar(4,textstr);
	// Select arc center
	bae_promptdialog(UPRTCENTER);
	if (bae_inpoint(bae_planwsnx(),bae_planwsny(),xc,yc,0))
		error_abort();
	// Select text start coordinate
	bae_promptdialog(UPRTSTART);
	if (bae_inpoint(xc,yc,xs,ys,2))
		error_abort();
	if (xc==xs && yc==ys)
		error(ERRINPVAL);
	// Select rotation orientation
	if ((rotflag=bae_askmenu(3,UPRACLOCK,UPRCLOCK,UPRABORT))<0 ||
	 rotflag>1)
		error_abort();
	// Save current state for undo
	bae_callmenu(MNU_BAESAVESTATE);
	// Get center vector
	xv=xs-xc;
	yv=ys-yc;
	// Get arc radius
	rad=sqrt(xv*xv+yv*yv);
	// Get rotation step angle
	rotang=tsize/(1.5*rad);
	if (rotflag)
		rotang*=(-1.0);
	// Get rotation angle data
	angsin=sin(rotang);
	angcos=cos(rotang);
	// Check if text base shift required
	if (!rotflag) {
		// Shift text center vector
		xv*=(rad+tsize)/rad;
		yv*=(rad+tsize)/rad;
		rad+=tsize;
		}
	// Rotate center vector by half angle
	xvn=cos(rotang/2.0)*xv-sin(rotang/2.0)*yv;
	yv=sin(rotang/2.0)*xv+cos(rotang/2.0)*yv;
	xv=xvn;
	// Get text base vector
	xt=(-tsize*yv/(3.0*rad));
	yt=tsize*xv/(3.0*rad);
	// Check if text base rotation required
	if (!rotflag) {
		// Rotate text base by 180 degrees
		xt*=(-1.0);
		yt*=(-1.0);
		}
	// Create text strings
	for (i=0;i<strlen(textstr);i++) {
		// Create the rotated text character
		if (textstr[i]!=' ' &&
		 scm_storetext(textstr[i],xc+xv+xt,yc+yv+yt,
		  rotflag?atan2(-xv,yv):atan2(xv,-yv),tsize,0,mode))
			errormsg(ERRTEXT,textstr[i]);
		// Rotate text vectors
		xvn=angcos*xv-angsin*yv;
		yv=angsin*xv+angcos*yv;
		xv=xvn;
		xtn=angcos*xt-angsin*yt;
		yt=angsin*xt+angcos*yt;
		xt=xtn;
		}
	// Perform screen redraw
	screenredraw();
	// Done
	bae_prtdialog("");
}

// Text conversion routines

void texttoarea()
/*
// Convert text to graphic areas
*/
{
	index C_FIGURE fig		/* Figure list index */;
	int cnt	= 0			/* Element count */;
	int i,j				/* Loop control variables */;
	// Query last used plot width
	if (varget(VAR_PLOTW,width))
		scm_gethpglparam("",0.0,0.0,width,0,0);
	// Get the text line width
	if (askdist(width,bae_getcoorddisp()?UPRTEXTWI:UPRTEXTWM,0)
	 || width==0.0)
		// Invalid input value
		error(ERRINPVAL);
	// Loop while text pick element found
	bae_prtdialog(UPRSELTEXT);
	while (scm_pickelem(fig,C_FIGTEXT)==0) {
		if (fig.FIXED&2)
			error(ERRTEXTGLUED);
		// Clear text polygon list
		tpolycnt=0;
		// Scan the text characteristics
		if (cap_scanfelem(fig,0.0,0.0,0.0,1,
		 NULL,NULL,NULL,textfunc)!=0)
			error_scan();
		// Save current state for undo
		if (cnt==0)
			bae_callmenu(MNU_BAESAVESTATE);
		// Clear last polygon coordinates
		lastx=(-1);
		lasty=(-1);
		// Vectorize the text characters
		if (cap_vecttext(x,y,angle,mirr,size,mode,textstr,textline))
			error_scan();
		// Loop for all text polygons
		for (i=0;i<tpolycnt;i++)
			// Loop for all polygon segments
			for (j=0;j<tpointcnt[i]-1;j++) {
				// Create segment polygon
				bae_clearpoints();
				if (cline(textdata[i][j].x,
				 textdata[i][j].y,textdata[i][j+1].x,
				 textdata[i][j+1].y,width))
					error(ERRPOLY);
				// Store the path
				if (scm_storepoly(C_POLYDOCAREA))
					error(ERRPOLY);
				}
		// Delete old text element
		if (scm_delelem(fig))
			error(ERRDELETE);
		// Perform screen redraw
		screenredraw();
		cnt++;
		}
	// Preserve plot width for next call
	varset(VAR_PLOTW,width);
	// No more pick
	if (cnt)
		bae_prtdialog(ERRNOPICK);
	else
		perror(ERRNOPICK);
}

void texttoline()
/*
// Convert text to graphic lines
*/
{
	index C_FIGURE fig		/* Figure list index */;
	int cnt	= 0			/* Element count */;
	int i,j				/* Loop control variables */;
	// Loop while text pick element found
	bae_prtdialog(UPRSELTEXT);
	while (scm_pickelem(fig,C_FIGTEXT)==0) {
		if (fig.FIXED&2)
			error(ERRTEXTGLUED);
		// Clear text polygon list
		tpolycnt=0;
		// Scan the text characteristics
		if (cap_scanfelem(fig,0.0,0.0,0.0,1,
		 NULL,NULL,NULL,textfunc)!=0)
			error_scan();
		// Save current state for undo
		if (cnt==0)
			bae_callmenu(MNU_BAESAVESTATE);
		// Clear last polygon coordinates
		lastx=(-1);
		lasty=(-1);
		// Vectorize the text characters
		if (cap_vecttext(x,y,angle,mirr,size,mode,textstr,textline))
			error_scan();
		// Loop for all text polygons
		for (i=0;i<tpolycnt;i++) {
			// Create documentary line
			bae_clearpoints();
			// Copy line points to interal point list
			for (j=0;j<tpointcnt[i];j++) {
				if (bae_storepoint(
				 textdata[i][j].x,textdata[i][j].y,0))
					error(ERRPOLY);
				}
			// Store the polygon
			if (scm_storepoly(C_POLYDOCLINE))
				error(ERRPOLY);
			}
		// Delete old text element
		if (scm_delelem(fig))
			error(ERRDELETE);
		// Perform screen redraw
		screenredraw();
		cnt++;
		}
	// No more pick
	if (cnt)
		bae_prtdialog(ERRNOPICK);
	else
		perror(ERRNOPICK);
}

int textfunc(index C_TEXT textp,double tx,double ty,double tangle,
 int mirrflag,double tsize,string tstr,int textinws,int macclass,int varattr)
/*
// Get the text characteristics
// Return value :
//	zero if done or (-1) on error
// Parameters :
//	index C_TEXT textp	: Text index
//	double tx		: Text X coordinate
//	double ty		: Text Y coordinate
//	double tangle		: Text angle
//	int mirrflag		: Text mirror flag
//	double tsize		: Text size
//	string tstr		: Text string
//	int textinws		: Text in workspace flag
//	int macclass		: Text macro class
//	int varattr		: Text variant attribute flag
*/
{
	// Store the text characteristics
	textstr=tstr;
	angle=tangle;
	size=tsize;
	mirr=mirrflag;
	x=tx;
	y=ty;
	mode=textp.MODE;
	// Return without errors
	return(0);
}

int textline(double x1,double y1,double x2,double y2)
/*
// Handle one text character line
// Parameters :
//	double x1		: First line point X coordinate
//	double y1		: First line point Y coordinate
//	double x2		: Second line point X coordinate
//	double y2		: Second line point Y coordinate
*/
{
	int tpolyidx			/* Text polygon index */;
	// Check if new polygon start
	if (x1!=lastx || y1!=lasty) {
		// Begin new polygon
		tpolyidx=tpolycnt;
		tpolycnt++;
		tpointcnt[tpolyidx]=1;
		// Store first point
		textdata[tpolyidx][0].x=x1;
		textdata[tpolyidx][0].y=y1;
		}
	else
		tpolyidx=tpolycnt-1;
	// Store first point
	textdata[tpolyidx][tpointcnt[tpolyidx]].x=x2;
	textdata[tpolyidx][tpointcnt[tpolyidx]++].y=y2;
	// Store last polygon coordinates
	lastx=x2;
	lasty=y2;
	// Return without errors
	return(0);
}

int cline(double x1,double y1,double x2,double y2,double width)
/*
// Create outline polygon for line segment of given width
// Return value :
//	zero if done or (-1) on error
// Parameters :
//	double x1		: Start point X coordinate
//	double y1		: Start point Y coordinate
//	double x2		: End point X coordinate
//	double y2		: End point Y coordinate
//	double width		: Line width
*/
{
	double dfac			/* Factor for circle points calc. */;
	double d			/* Line length */;
	double dx,dy			/* Line vector */;
	// Start and end points not identical ?
	if ((x1!=x2)||(y1!=y2)) {
		// Get line vector
		dx=x2-x1;
		dy=y2-y1;
		// Get line length and angle
		d=sqrt(dx*dx+dy*dy);
		// Store polygon points
		dfac=0.5*width/d;
		if (bae_storepoint(x2-dy*dfac,y2+dx*dfac,0)
		 || bae_storepoint(x2,y2,2)
		 || bae_storepoint(x2+dy*dfac,y2-dx*dfac,0)
		 || bae_storepoint(x1+dy*dfac,y1-dx*dfac,0)
		 || bae_storepoint(x1,y1,2)
		 || bae_storepoint(x1-dy*dfac,y1+dx*dfac,0))
			return(-1);
		}
	else {
		// Store circle
		if (bae_storepoint(x1+width/2,y1,0)
		 || bae_storepoint(x1,y1,1)
		 || bae_storepoint(x1-width/2,y1,0)
		 || bae_storepoint(x1,y1,1))
			return(-1);
		}
	// Return without errors
	return(0);
}

// Multi Line Text functions

void mtextadd(int textinp)
/*
// Add new multi line text
// Parameter :
//	int textinp		: Text input flag
*/
{
	index C_FIGURE fig		/* Figure list element */;
	index C_FIGURE lfig		/* Last figure list element */;
	string text			/* Text string */;
	string textid			/* Text id */;
	double size			/* Text size */;
	double bx, by			/* Text base line coordinates */;
	STRINGS rulel			/* Text rules */;
	STRINGS lines			/* Text lines */;
	int linen			/* Line count */;
	int maxline			/* Max. text line */;
	int col				/* Text column */;
	int anglock			/* Old angle lock value */;
	int grpdisp			/* Old group display mode */;
	// Abort if invalid plan class
	if (ddbclass==DDBCLUNDEF)
		error_class();
	// Get the text size
	size=baepar_dblval(SCMPAR_DEFTEXTSIZE);
	if (askdist(size,bae_getcoorddisp()?UPRTSIZEI:UPRTSIZEM,0) ||
	 size==0.0)
		// Invalid input value
		error(ERRINPVAL);
	// Get the new text
	if (textinp) {
		if ((text=bae_readedittext(UPREDIT,"",MAXEDIT))=="" ||
		 text==UINPOPABORT)
			error_abort();
		}
	else {
		// Use clipboard queried text
		text=textstr;
		}
	// Save current state for undo
	bae_callmenu(MNU_BAESAVESTATE);
	// Get new text id
	textid=creatextid();
	// Reset the group
	bae_callmenu(MNU_SCMGRPRESE);
	// Split text into lines
	maxline=linen=splitstring(text,lines);
	// Place the text lines
	bx=bae_planwsnx(); by=bae_planwsny();
	for (linen--;linen>=0;linen--) {
		col=0;
		text=strextract(lines[linen],0,MAXKEYLEN-1);
		while (strlen(text)>0) {
			// Store text with new string
			if (scm_storetext(text,
			 bx+size*col*MAXKEYLEN*2.0/3.0,by,0.0,size,0,0))
				errormsg(ERRTEXT,lines[linen]);
			// Attach rules
			if (cap_lastfigelem(fig)==0) {
				sprintf(rulel[0],
				 ":%s:%s='%s';",RS_SCMSUBJ,RS_MTEXTID,textid);
				sprintf(rulel[1],":%s:%s=%d;",
				 RS_SCMSUBJ,RS_MTEXTCOL,col);
				sprintf(rulel[2],":%s:%s=%d;",
				 RS_SCMSUBJ,RS_MTEXTROW,linen);
				sprintf(rulel[3],":%s:%s=%.2f;",
				 RS_SCMSUBJ,RS_MTEXTLS,LINESPC);
				if (cap_rulefigatt(fig,rulel))
					rsc_error(-1);
				}
			// Select to group
			if (cap_lastfigelem(fig)==0)
				scm_elemgrpchg(fig,1);
			// Advance to next line
			col++;
			text=strextract(
			 lines[linen],col*MAXKEYLEN,(col+1)*MAXKEYLEN-1);
			}
		// Advance to next line
		by+=size*LINESPC;
		}
	cap_lastfigelem(lfig);
	// Shift base point for upper left alignment
	by=bae_planwsny()+(MTEXTORIG ? (maxline*size*LINESPC) : 0.0);
	// Move the group
	anglock=bae_getanglelock();
	bae_setanglelock(0);
	scm_getintpar(24,grpdisp);
	scm_setintpar(24,2);
	bae_clriactqueue();
	bae_storemouseiact(1,bx,by,0,LMB);
	bae_callmenu(MNU_SCMMOVEGRP);
	if (bae_getanglelock()==0)
		bae_setanglelock(anglock);
	scm_setintpar(24,grpdisp);
	cap_lastfigelem(fig);
	// Reset the group
	bae_callmenu(fig==lfig ? MNU_SCMDELGRP : MNU_SCMGRPRESE);
}

void mtextmove()
/*
// Move a mouse-selectable multi line text
*/
{
	index C_FIGURE fig		/* Figure list element */;
	string movtextid		/* Move text ID */;
	string textid			/* Text ID */;
	double bx, by			/* Text base line coordinates */;
	int anglock			/* Old angle lock value */;
	int grpdisp			/* Old group display mode */;
	int maxline	= (-1)		/* Max. text line */;
	int col				/* Text column */;
	int row				/* Text row */;
	double linespc			/* Text line spacing */;
	double lsx, lsy			/* Text line spacing vector */;
	// Abort if invalid plan class
	if (ddbclass==DDBCLUNDEF)
		error_class();
	// Pick text
	bae_promptdialog(UPRSELTEXT);
	if (scm_pickelem(fig,C_FIGTEXT))
		error(ERRNOPICK);
	if (fig.FIXED&2)
		error(ERRTEXTGLUED);
	// Query the text ID
	if (fig.RULEOBJID<0 ||
	 cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,RS_MTEXTID,"?s",movtextid)<1 ||
	 movtextid=="")
		errormsg(ERRMTEXT,fig.NAME);
	// Set first guess for text base point
	bx=fig.X; by=fig.Y;
	// Get text line spacing
	if (cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,RS_MTEXTLS,"?f",linespc)<1)
		linespc=LINESPC;
	lsx=-sin(fig.ANGLE)*fig.SIZE*linespc;
	lsy=cos(fig.ANGLE)*fig.SIZE*linespc;
	// Reset the group
	bae_callmenu(MNU_SCMGRPRESE);
	// Scan all related multiline texts for movement
	forall (fig where fig.RULEOBJID>=0 &&
	 fig.TYP==C_FIGTEXT && !(fig.FIXED&2) &&
	 cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,RS_MTEXTID,"?s",textid)>0 &&
	 textid==movtextid) {
		// Check if new best base point found
		if (cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,
		  RS_MTEXTCOL,"?d",col)>0 && col==0 &&
		 cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,
		  RS_MTEXTROW,"?d",row)>0 && row>maxline) {
			// Set text base point
			bx=fig.X; by=fig.Y;
			maxline=row;
			}
		// Select to group
		scm_elemgrpchg(fig,1);
		}
	if (MTEXTORIG) {
		// Shift base point for upper left alignment
		maxline++;
		bx+=maxline*lsx;
		by+=maxline*lsy;
		}
	// Move the group
	anglock=bae_getanglelock();
	bae_setanglelock(0);
	scm_getintpar(24,grpdisp);
	scm_setintpar(24,2);
	bae_clriactqueue();
	bae_storemouseiact(1,bx,by,0,LMB);
	bae_callmenu(MNU_SCMMOVEGRP);
	if (bae_getanglelock()==0)
		bae_setanglelock(anglock);
	scm_setintpar(24,grpdisp);
	// Reset the group
	bae_callmenu(MNU_SCMGRPRESE);
}

void mtextcopy()
/*
// Copy a mouse-selectable multi line text
*/
{
	index C_FIGURE fig		/* Figure list element */;
	index C_FIGURE l1fig, l2fig	/* Last figure list elements */;
	string cpytextid		/* Copy text ID */;
	string newtextid		/* New text ID */;
	string textid			/* Text ID */;
	int anglock			/* Old angle lock value */;
	int grpdisp			/* Old group display mode */;
	int maxline	= (-1)		/* Max. text line */;
	int col				/* Text column */;
	int row				/* Text row */;
	double linespc			/* Text line spacing */;
	double lsx, lsy			/* Text line spacing vector */;
	double bx, by			/* Text base line coordinates */;
	// Abort if invalid plan class
	if (ddbclass==DDBCLUNDEF)
		error_class();
	// Pick text
	bae_promptdialog(UPRSELTEXT);
	if (scm_pickelem(fig,C_FIGTEXT))
		error(ERRNOPICK);
	// Query the text ID
	if (fig.RULEOBJID<0 ||
	 cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,RS_MTEXTID,"?s",cpytextid)<1 ||
	 cpytextid=="")
		errormsg(ERRMTEXT,fig.NAME);
	// Set first guess for text base point
	bx=fig.X; by=fig.Y;
	// Get text line spacing
	if (cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,RS_MTEXTLS,"?f",linespc)<1)
		linespc=LINESPC;
	lsx=-sin(fig.ANGLE)*fig.SIZE*linespc;
	lsy=cos(fig.ANGLE)*fig.SIZE*linespc;
	// Reset the group
	bae_callmenu(MNU_SCMGRPRESE);
	// Scan all related multiline texts for copy
	forall (fig where fig.RULEOBJID>=0 &&
	 fig.TYP==C_FIGTEXT &&
	 cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,RS_MTEXTID,"?s",textid)>0 &&
	 textid==cpytextid) {
		// Check if new best base point found
		if (cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,
		  RS_MTEXTCOL,"?d",col)>0 && col==0 &&
		 cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,
		  RS_MTEXTROW,"?d",row)>0 && row>maxline) {
			// Set text base point
			bx=fig.X; by=fig.Y;
			maxline=row;
			}
		// Select to group
		scm_elemgrpchg(fig,1);
		}
	if (MTEXTORIG) {
		// Shift base point for upper left alignment
		maxline++;
		bx+=maxline*lsx;
		by+=maxline*lsy;
		}
	cap_lastfigelem(l1fig);
	// Copy the group
	anglock=bae_getanglelock();
	bae_setanglelock(0);
	scm_getintpar(24,grpdisp);
	scm_setintpar(24,2);
	bae_clriactqueue();
	bae_storemouseiact(1,bx,by,0,LMB);
	bae_callmenu(MNU_SCMCOPYGRP);
	if (bae_getanglelock()==0)
		bae_setanglelock(anglock);
	scm_setintpar(24,grpdisp);
	// Check if copy aborted
	if (cap_lastfigelem(l2fig)!=0 || l1fig==l2fig) {
		bae_callmenu(MNU_SCMGRPRESE);
		return;
		}
	newtextid=creatextid();
	// Scan all new multiline texts for ID reassignment
	forall (fig where fig.RULEOBJID>=0 &&
	 fig.TYP==C_FIGTEXT && fig.GROUP &&
	 cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,RS_MTEXTID,"?s",textid)>0 &&
	 textid==cpytextid)
		rsc_assfigstrpred(fig,RS_MTEXTID,newtextid,"","");
	// Reset the group
	bae_callmenu(MNU_SCMGRPRESE);
}

void mtextedit()
/*
// Edit a mouse-selectable multi line text
*/
{
	index C_FIGURE fig		/* Figure list element */;
	index C_FIGURE dfig		/* Delete figure list element */;
	STRINGS stext[]			/* Scan text */;
	string text			/* Text string */;
	string edttextid		/* Edit text ID */;
	string textid			/* Text ID */;
	STRINGS lines			/* Text lines */;
	int linen			/* Line count */;
	string rulename			/* Rule name */;
	STRINGS mrulel			/* Multiline text rule list */;
	int mrulen			/* Multiline text rule count */;
	STRINGS rulel			/* Text rules */;
	int rulen			/* Text rule count */;
	double size			/* Text size */;
	double angle			/* Text angle */;
	int mode			/* Text mode */;
	int mirr			/* Text mirror mode */;
	double bx, by			/* Text base line coordinates */;
	double lsx, lsy			/* Text line spacing vector */;
	double lcx, lcy			/* Text line column vector */;
	double linespc			/* Text line spacing */;
	int maxline	= (-1)		/* Max. text line */;
	int maxcol	= (-1)		/* Max. text column */;
	int col				/* Text column */;
	int row				/* Text row */;
	int i				/* Loop control variable */;
	// Abort if invalid plan class
	if (ddbclass==DDBCLUNDEF)
		error_class();
	// Pick text
	bae_promptdialog(UPRSELTEXT);
	if (scm_pickelem(fig,C_FIGTEXT))
		error(ERRNOPICK);
	if (fig.FIXED&2)
		error(ERRTEXTGLUED);
	// Query the text ID
	if (fig.RULEOBJID<0 ||
	 cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,RS_MTEXTID,"?s",edttextid)<1 ||
	 edttextid=="")
		errormsg(ERRMTEXT,fig.NAME);
	// Set first guess for text base point
	bx=fig.X; by=fig.Y;
	size=fig.SIZE;
	mode=fig.TEXT.MODE;
	mirr=fig.MIRROR;
	angle=fig.ANGLE;
	// Get the old rule count
	rulen=rsc_getfigrules(fig,rulel);
	// Get text line spacing
	if (cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,RS_MTEXTLS,"?f",linespc)<1)
		linespc=LINESPC;
	// Scan all related multiline texts for text retrival
	forall (fig where fig.RULEOBJID>=0 &&
	 fig.TYP==C_FIGTEXT && !(fig.FIXED&2) &&
	 cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,RS_MTEXTID,"?s",textid)>0 &&
	 textid==edttextid) {
		// Get text position
		if (cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,
		 RS_MTEXTCOL,"?d",col)<1)
			continue;
		if (cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,
		 RS_MTEXTROW,"?d",row)<1)
			continue;
		// Check if new best base point found
		if (col==0 && row>maxline) {
			// Set text base point
			bx=fig.X; by=fig.Y;
			maxline=row;
			}
		if (col>maxcol)
			maxcol=col;
		stext[col][row]=fig.NAME;
		}
	// Build the text edit string
	text="";
	for (row=0;row<=maxline;row++) {
		for (col=0;col<=maxcol;col++)
			text+=stext[col][row];
		text+="\n";
		}
	// Edit the text
	if ((text=bae_readedittext(UPREDIT,text,MAXEDIT))=="" ||
	 text==UINPOPABORT)
		error_abort();
	lsx=-sin(angle)*size*linespc;
	lsy=cos(angle)*size*linespc;
	lcx=cos(angle)*size*MAXKEYLEN*2.0/3.0;
	lcy=sin(angle)*size*MAXKEYLEN*2.0/3.0;
	// Save current state for undo
	bae_callmenu(MNU_BAESAVESTATE);
	// Scan all related multiline texts for deletion
	forall (fig where fig.RULEOBJID>=0 && fig.TYP==C_FIGTEXT &&
	 cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,RS_MTEXTID,"?s",textid)>0 &&
	 textid==edttextid && !(fig.FIXED&2)) {
		dfig=fig;
		scm_delelem(dfig);
		}
	// Split text into lines
	linen=splitstring(text,lines);
	if (MTEXTORIG) {
		// Shift base point for upper left alignment
		bx+=(maxline-linen+1)*lsx;
		by+=(maxline-linen+1)*lsy;
		}
	textid=creatextid();
	// Get the base rules
	mrulen=4;
	sprintf(mrulel[0],":%s:%s='%s';",RS_SCMSUBJ,RS_MTEXTID,textid);
	sprintf(mrulel[3],":%s:%s=%.2f;",RS_SCMSUBJ,RS_MTEXTLS,linespc);
	for (i=0;i<rulen;i++) {
		rulename=rulel[i];
		if (strmatch(rulename,":scm_rules:mtextid=*;") ||
		 strmatch(rulename,":scm_rules:mtextrow=*;") ||
		 strmatch(rulename,":scm_rules:mtextcol=*;") ||
		 strmatch(rulename,":scm_rules:mtextls=*;"))
			continue;
		mrulel[mrulen]=rulename;
		mrulen++;
		}
	// Place the text lines
	for (linen--;linen>=0;linen--) {
		col=0;
		text=strextract(lines[linen],0,MAXKEYLEN-1);
		while (strlen(text)>0) {
			// Store text with new string
			if (scm_storetext(text,
			 bx+col*lcx,by+col*lcy,angle,size,mirr,mode))
				errormsg(ERRTEXT,text);
			// Attach rules
			if (cap_lastfigelem(fig)==0) {
				sprintf(mrulel[1],":%s:%s=%d;",
				 RS_SCMSUBJ,RS_MTEXTCOL,col);
				sprintf(mrulel[2],":%s:%s=%d;",
				 RS_SCMSUBJ,RS_MTEXTROW,linen);
				if (cap_rulefigatt(fig,mrulel))
					rsc_error(-1);
				}
			// Advance to next column
			col++;
			text=strextract(
			 lines[linen],col*MAXKEYLEN,(col+1)*MAXKEYLEN-1);
			}
		// Advance to next line
		bx+=lsx;
		by+=lsy;
		}
}

void mtextdelete()
/*
// Delete a mouse-selectable multi line text
*/
{
	index C_FIGURE fig		/* Figure list element */;
	index C_FIGURE dfig		/* Delete figure list element */;
	string deltextid		/* Delete text ID */;
	string textid			/* Text ID */;
	// Abort if invalid plan class
	if (ddbclass==DDBCLUNDEF)
		error_class();
	// Pick text
	bae_promptdialog(UPRSELTEXT);
	if (scm_pickelem(fig,C_FIGTEXT))
		error(ERRNOPICK);
	if (fig.FIXED&2)
		error(ERRTEXTGLUED);
	// Query the text ID
	if (fig.RULEOBJID<0 ||
	 cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,RS_MTEXTID,"?s",deltextid)<1 ||
	 deltextid=="")
		errormsg(ERRMTEXT,fig.NAME);
	// Save current state for undo
	bae_callmenu(MNU_BAESAVESTATE);
	// Scan all related multiline texts for deletion
	forall (fig where fig.RULEOBJID>=0 && fig.TYP==C_FIGTEXT &&
	 cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,RS_MTEXTID,"?s",textid)>0 &&
	 textid==deltextid && !(fig.FIXED&2)) {
		dfig=fig;
		scm_delelem(dfig);
		}
}

void mtextsize()
/*
// Set size of a mouse-selectable multi line text
*/
{
	index C_FIGURE fig		/* Figure list element */;
	index C_FIGURE dfig		/* Delete figure list element */;
	STRINGS stext[]			/* Scan text */;
	string seltextid		/* Select text ID */;
	string textid			/* Text ID */;
	STRINGS rulel			/* Text rules */;
	double size			/* Text size */;
	double oldsize			/* Old text size */;
	double angle			/* Text angle */;
	int mode			/* Text mode */;
	int mirr			/* Text mirror mode */;
	double bx, by			/* Text base line coordinates */;
	double lsx, lsy			/* Text line spacing vector */;
	double lcx, lcy			/* Text line column vector */;
	int maxline	= (-1)		/* Max. text line */;
	int maxcol	= (-1)		/* Max. text column */;
	int col				/* Text column */;
	int row				/* Text row */;
	// Abort if invalid plan class
	if (ddbclass==DDBCLUNDEF)
		error_class();
	// Pick text
	bae_promptdialog(UPRSELTEXT);
	if (scm_pickelem(fig,C_FIGTEXT))
		error(ERRNOPICK);
	if (fig.FIXED&2)
		error(ERRTEXTGLUED);
	// Query the text ID
	if (fig.RULEOBJID<0 ||
	 cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,RS_MTEXTID,"?s",seltextid)<1 ||
	 seltextid=="")
		errormsg(ERRMTEXT,fig.NAME);
	// Get the text size
	oldsize=size=fig.SIZE;
	if (askdist(size,bae_getcoorddisp()?UPRTSIZEI:UPRTSIZEM,0) ||
	 size==0.0)
		// Invalid input value
		error(ERRINPVAL);
	// Save current state for undo
	bae_callmenu(MNU_BAESAVESTATE);
	// Set first guess for text base point
	bx=fig.X; by=fig.Y;
	mode=fig.TEXT.MODE;
	mirr=fig.MIRROR;
	angle=fig.ANGLE;
	lsx=-sin(angle)*size*LINESPC;
	lsy=cos(angle)*size*LINESPC;
	lcx=cos(angle)*size*MAXKEYLEN*2.0/3.0;
	lcy=sin(angle)*size*MAXKEYLEN*2.0/3.0;
	// Scan all related multiline texts for text retrival
	forall (fig where fig.RULEOBJID>=0 &&
	 fig.TYP==C_FIGTEXT && !(fig.FIXED&2) &&
	 cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,RS_MTEXTID,"?s",textid)>0 &&
	 textid==seltextid) {
		// Get text position
		if (cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,
		 RS_MTEXTCOL,"?d",col)<1)
			continue;
		if (cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,
		 RS_MTEXTROW,"?d",row)<1)
			continue;
		// Check if new best base point found
		if (col==0 && row>maxline) {
			// Set text base point
			bx=fig.X; by=fig.Y;
			maxline=row;
			}
		if (col>maxcol)
			maxcol=col;
		stext[col][row]=fig.NAME;
		dfig=fig;
		scm_delelem(dfig);
		}
	if (MTEXTORIG) {
		// Shift base point for upper left alignment
		bx-=(maxline+1)*(size-oldsize)*lsx/size;
		by-=(maxline+1)*(size-oldsize)*lsy/size;
		}
	// Place the text lines
	textid=creatextid();
	for (row=maxline;row>=0;row--) {
		for (col=0;col<=maxcol;col++) {
			if (strlen(stext[col][row])==0)
				continue;
			// Store text string
			if (scm_storetext(stext[col][row],
			 bx+col*lcx,by+col*lcy,angle,size,mirr,mode))
				errormsg(ERRTEXT,stext[col][row]);
			// Attach rules
			if (cap_lastfigelem(fig)==0) {
				sprintf(rulel[0],
				 ":%s:%s='%s';",RS_SCMSUBJ,RS_MTEXTID,textid);
				sprintf(rulel[1],
				 ":%s:%s=%d;",RS_SCMSUBJ,RS_MTEXTCOL,col);
				sprintf(rulel[2],
				 ":%s:%s=%d;",RS_SCMSUBJ,RS_MTEXTROW,row);
				if (cap_rulefigatt(fig,rulel))
					rsc_error(-1);
				}
			}
		// Advance to next line
		bx+=lsx;
		by+=lsy;
		}
}

void mtextmode()
/*
// Set mode of a mouse-selectable multi line text
*/
{
	index C_FIGURE fig		/* Figure list element */;
	index C_FIGURE dfig		/* Delete figure list element */;
	index C_FIGURE nfig		/* New figure list index */;
	STRINGS rl			/* Rule list */;
	string seltextid		/* Select text ID */;
	string textid			/* Text ID */;
	int newmode			/* New mode code */;
	int cflag = 0			/* Change flag */;
	// Abort if invalid plan class
	if (ddbclass==DDBCLUNDEF)
		error_class();
	// Pick text
	bae_promptdialog(UPRSELTEXT);
	if (scm_pickelem(fig,C_FIGTEXT))
		error(ERRNOPICK);
	if (fig.FIXED&2)
		error(ERRTEXTGLUED);
	// Query the text ID
	if (fig.RULEOBJID<0 ||
	 cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,RS_MTEXTID,"?s",seltextid)<1 ||
	 seltextid=="")
		errormsg(ERRMTEXT,fig.NAME);
	// Select text mode
	bae_promptdialog(UPRTMODE);
	bae_defmenusel(fig.TEXT.MODE&0x01 ? 1 : 0);
	if ((newmode=bae_askmenu(3,UPRNTEXT,UPRDTEXT,UPRABORT))<0 ||
	 newmode>1)
		error_abort();
	// Reset the group
	bae_callmenu(MNU_SCMGRPRESE);
	// Scan all related multiline texts for selection
	forall (fig where fig.RULEOBJID>=0 && fig.TYP==C_FIGTEXT &&
	 cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,RS_MTEXTID,"?s",textid)>0 &&
	 textid==seltextid)
		scm_elemgrpchg(fig,1);
	// Scan all group elements for mode change
	forall (fig where fig.GROUP && !(fig.FIXED&2)) {
		// Save current state for undo
		if (cflag==0) {
			bae_callmenu(MNU_BAESAVESTATE);
			cflag=1;
			}
		// Store text with new mode
		if (scm_storetext(fig.TEXT.STR,
		 fig.X,fig.Y,fig.ANGLE,fig.SIZE,fig.MIRROR,
		 (fig.TEXT.MODE&~TEXTCOMM)|newmode))
			errormsg(ERRTEXT,fig.TEXT.STR);
		// Transfer rules
		if (fig.RULEOBJID>=0 && cap_lastfigelem(nfig)==0) {
			// Get rules
			if (rsc_getfigrules(fig,rl)>0)
				// Attach rules
				if (cap_rulefigatt(nfig,rl))
					rsc_error(-1);
			}
		// Delete old text element
		dfig=fig;
		if (scm_delelem(dfig))
			error(ERRDELETE);
		if (cap_lastfigelem(nfig)==0)
			scm_drawelem(nfig,DM_SET);
		}
}

void mtextselect(int grpmode)
/*
// Group select a mouse-selectable multi line text
// Parameters :
//	int grpmode		: Group selection mode
*/
{
	index C_FIGURE fig		/* Figure list element */;
	string seltextid		/* Select text ID */;
	string textid			/* Text ID */;
	// Abort if invalid plan class
	if (ddbclass==DDBCLUNDEF)
		error_class();
	// Pick text
	bae_promptdialog(UPRSELTEXT);
	if (scm_pickelem(fig,C_FIGTEXT))
		error(ERRNOPICK);
	// Query the text ID
	if (fig.RULEOBJID<0 ||
	 cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,RS_MTEXTID,"?s",seltextid)<1 ||
	 seltextid=="")
		errormsg(ERRMTEXT,fig.NAME);
	// Scan all related multiline texts for selection
	forall (fig where fig.RULEOBJID>=0 && fig.GROUP!=grpmode &&
	 fig.TYP==C_FIGTEXT &&
	 cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,RS_MTEXTID,"?s",textid)>0 &&
	 textid==seltextid)
		scm_elemgrpchg(fig,grpmode);
}

void mtexttable()
/*
// Import a multi line text table
*/
{
	index C_FIGURE fig		/* Figure list element */;
	struct tabdes {			// Table entry descriptor
		int typ			/* Table entry type */;
		int slen		/* Table entry source length */;
		int dlen		/* Table entry destination length */;
		int col			/* Table entry destination column */;
		string sep		/* Table entry seperator */;
		string patl[]		/* Table entry pattern list */;
		string datl[]		/* Table entry data list */;
		int datn		/* Table entry data count */;
		} tdl[]			/* Table entry list */;
	int tdn			= 0	/* Table entry count */;
	int tidx			/* Table index */;
	string table[][]		/* Text table */;
	int tsl[]			/* Table entry size list */;
	int skiplinen			/* Header skip line count */;
	int linen		= 0	/* Line count */;
	int col				/* Text column */;
	int tcol		= 0	/* Table column count */;
	int maxcol			/* Maximum table column length */;
	STRINGS headl			/* Header list */;
	int headn		= 0	/* Header count */;
	STRINGS entryl			/* Entry list */;
	int entryn		= 0	/* Entry count */;
	string text			/* Text string */;
	string entry			/* Text table entry */;
	string varname			/* Variable name */;
	string textid			/* Text id */;
	string textcid			/* Text column id */;
	double size			/* Text size */;
	double bx, by			/* Text base line coordinates */;
	STRINGS rulel			/* Text rules */;
	int anglock			/* Old angle lock value */;
	int grpdisp			/* Old group display mode */;
	STRINGS extlist = {bae_swversion(3)}
					/* File name extension list */;
	string seltabname		/* Selection table name */;
	string readbuf			/* Read buffer */;
	string ifname			/* Input file name */;
	int ifh				/* Input file handle */;
	int popcols			/* Requested popup columns */;
	int i, j			/* Loop control variables */;
	// Abort if invalid plan class
	if (ddbclass==DDBCLUNDEF)
		error_class();
	// Get the text size
	size=baepar_dblval(SCMPAR_DEFTEXTSIZE);
	if (askdist(size,bae_getcoorddisp()?UPRTSIZEI:UPRTSIZEM,0) ||
	 size==0.0)
		// Invalid input value
		error(ERRINPVAL);
	// Select file to convert
	if ((ifname=askfile(UPRTABFILE,extlist,0))=="")
		error_abort();
	for (entryn=0;entryn<1000;entryn++) {
		if ((entryl[entryn]=bae_inistrval(
		 bae_inifieldvarname(PAR_TEXTTABL,entryn,0),""))=="")
			break;
		}
	// Check if table definitions found
	if (entryn==0) {
		// Create default table description
		skiplinen=0;
		for (tdn=0;tdn<20;tdn++) {
			tdl[tdn].typ=5;
			tdl[tdn].col=tdn;
			tdl[tdn].slen=0;
			tdl[tdn].dlen=0;
			tdl[tdn].sep=";";
			tdl[tdn].datn=0;
			}
		tcol=tdn;
		}
	else {
		// Build the table definition menu
		headl[0]=REPTABLIST;
		headn=2;
		popcols=strlen(headl[0])+1;
		// Select group name
		bae_setintpar(16,3074);
		if ((seltabname=popupmenu(1,UPRSELTNAME,
		 headl,headn,entryl,entryn,UINPOPABORT,0,1,1,headn+entryn+2,
		 popcols,0,""))=="" || seltabname==UINPOPABORT)
			// Aborted
			error_abort();
		for (tidx=0;tidx<entryn;tidx++)
			if (entryl[tidx]==seltabname)
				break;
		if (tidx>=entryn)
			errormsg(ERRNOTABDEF,seltabname);
		// Get the table definition
		skiplinen=
		 bae_iniintval(bae_inifieldvarname(PAR_TEXTTABL,tidx,1),0);
		tidx++;
		for (tdn=0;tdn<1000;tdn++) {
			// Get table type
			sprintf(varname,"%s_%d_3_%d_1",
			 PAR_TEXTTABL,tidx,tdn+1);
			if ((tdl[tdn].typ=bae_iniintval(varname,-1))==(-1))
				// End of table definitions reached
				break;
			// Get table entry source length or seperator
			sprintf(varname,"%s_%d_3_%d_2",
			 PAR_TEXTTABL,tidx,tdn+1);
			if ((tdl[tdn].typ&3)==1) {
				tdl[tdn].slen=0;
				tdl[tdn].sep=bae_inistrval(varname,";");
				}
			else {
				tdl[tdn].slen=bae_iniintval(varname,1);
				tdl[tdn].sep="";
				}
			// Get table entry destination length
			sprintf(varname,"%s_%d_3_%d_3",
			 PAR_TEXTTABL,tidx,tdn+1);
			tdl[tdn].dlen=bae_iniintval(varname,0);
			// Get table entry destination column
			sprintf(varname,"%s_%d_3_%d_4",
			 PAR_TEXTTABL,tidx,tdn+1);
			// Update max. column
			if ((tdl[tdn].col=bae_iniintval(varname,-1))>(tcol-1))
				tcol=tdl[tdn].col+1;
			if (tdl[tdn].col>=0)
				tsl[tdl[tdn].col]=tdl[tdn].dlen;
			for (tdl[tdn].datn=0;tdl[tdn].datn<999;tdl[tdn].datn++)
			    if ((tdl[tdn].typ&3)==2) {
				// Get table entry fix value list
				sprintf(varname,"%s_%d_3_%d_5_1_%d",
				 PAR_TEXTTABL,tidx,tdn+1,tdl[tdn].datn+1);
				if ((tdl[tdn].datl[tdl[tdn].datn]=
				 bae_inistrval(varname,UINPOPABORT))==
				 UINPOPABORT)
					break;
				}
			    else {
				// Get table entry value rep. pattern list
				sprintf(varname,"%s_%d_3_%d_5_%d_1",
				 PAR_TEXTTABL,tidx,tdn+1,tdl[tdn].datn+1);
				if ((tdl[tdn].patl[tdl[tdn].datn]=
				 bae_inistrval(varname,UINPOPABORT))==
				 UINPOPABORT)
					break;
				sprintf(varname,"%s_%d_3_%d_5_%d_2",
				 PAR_TEXTTABL,tidx,tdn+1,tdl[tdn].datn+1);
				tdl[tdn].datl[tdl[tdn].datn]=
				 bae_inistrval(varname,"");
				}
			}
		}
	// Open the input file
	ifh=bae_fopen(ifname,0);
	// Skip file header
	for (i=0;i<skiplinen;i++)
		fgets(readbuf,8192,ifh);
	fseterrmode(0);
	// Read table entries
	while (fgets(readbuf,8192,ifh)==0) {
		// Process table columns
		col=0;
		for (i=0;i<tdn;i++) {
		    switch (tdl[i].typ&3) {
			// Fix length column
			case 0 :
			entry=strextract(readbuf,col,col+tdl[i].slen-1);
			col+=tdl[i].slen;
			break;
			// Seperator delimited column
			case 1 :
			for (j=col;readbuf[j]!='\0';j++)
				if (readbuf[j]==tdl[i].sep[0])
					break;
			if (readbuf[j]==tdl[i].sep[0]) {
				entry=
				 j==col ? "" : strextract(readbuf,col,j-1);
				col=j+1;
				}
			else {
				entry=strextract(readbuf,col,j);
				col=j;
				}
			break;
			// Fix value column
			case 2 :
			entry= tdl[i].datn<=linen ?
			 tdl[i].datl[tdl[i].datn-1] : tdl[i].datl[linen];
			break;
			default :
			entry="";
			}
		    if ((tdl[i].typ&8) && isspace(readbuf[0]))
			entry="";
		    // Trim entry
		    entry=(tdl[i].typ&4) ? strtrim(entry) : strrtrim(entry);
		    // Check for replacement strings
		    if ((tdl[i].typ&3)!=2 &&
		     ((tdl[i].typ&16)==0 || !isspace(readbuf[0])))
			for (j=0;j<tdl[i].datn;j++)
				if (strmatch(entry,tdl[i].patl[j])) {
					entry=tdl[i].datl[j];
					break;
					}
		    // Store table entry
		    if (tdl[i].col>=0)
			table[tdl[i].col][linen]=entry;
		    }
		linen++;
		}
	fclose(ifh);
	textid=creatextid();
	// Reset the group
	bae_callmenu(MNU_SCMGRPRESE);
	// Save current state for undo
	bae_callmenu(MNU_BAESAVESTATE);
	// Place the text lines
	bx=bae_planwsnx();
	for (i=0;i<tcol;i++) {
	    by=bae_planwsny();
	    maxcol=tsl[i];
	    textcid=textid+"_"+itoa(i);
	    for (j=linen-1;j>=0;j--) {
		col=0;
		entry=table[i][j];
		text=strextract(entry,0,MAXKEYLEN-1);
		if (strlen(text)>maxcol)
			maxcol=strlen(text);
		while (strlen(text)>0) {
			// Store text with new string
			if (scm_storetext(text,
			 bx+size*col*MAXKEYLEN*2.0/3.0,by,0.0,size,0,0))
				errormsg(ERRTEXT,text);
			// Attach rules
			if (cap_lastfigelem(fig)==0) {
				sprintf(rulel[0],
				 ":%s:%s='%s';",RS_SCMSUBJ,RS_MTEXTID,textcid);
				sprintf(rulel[1],":%s:%s=%d;",
				 RS_SCMSUBJ,RS_MTEXTCOL,col);
				sprintf(rulel[2],":%s:%s=%d;",
				 RS_SCMSUBJ,RS_MTEXTROW,j);
				sprintf(rulel[3],":%s:%s=%.2f;",
				 RS_SCMSUBJ,RS_MTEXTLS,LINESPC);
				if (cap_rulefigatt(fig,rulel))
					rsc_error(-1);
				}
			// Select to group
			if (cap_lastfigelem(fig)==0)
				scm_elemgrpchg(fig,1);
			// Advance to next column
			col++;
			text=strextract(
			 entry,col*MAXKEYLEN,(col+1)*MAXKEYLEN-1);
			}
		// Advance to next line
		by+=size*LINESPC;
		}
	    bx+=size*(maxcol+1)*2.0/3.0;
	    }
	// Shift base point for upper left alignment
	bx=bae_planwsnx();
	by=bae_planwsny()+(MTEXTORIG ? (linen*size*LINESPC) : 0.0);
	// Move the group
	anglock=bae_getanglelock();
	bae_setanglelock(0);
	scm_getintpar(24,grpdisp);
	scm_setintpar(24,2);
	bae_clriactqueue();
	bae_storemouseiact(1,bx,by,0,LMB);
	bae_callmenu(MNU_SCMMOVEGRP);
	if (bae_getanglelock()==0)
		bae_setanglelock(anglock);
	scm_setintpar(24,grpdisp);
	// Reset the group
	bae_callmenu(MNU_SCMGRPRESE);
}

int splitstring(string s,STRINGS ssl)
/*
// Split string into lines
// Return value :
//	number of substrings
// Parameters :
//	string s		: Input string
//	STRINGS ssl		: Substring list
*/
{
	int ssn		= 0		/* Substring count */;
	int sl		= strlen(s)	/* String length */;
	int pos1	= 1		/* String position buffer 1 */;
	int pos2			/* String position buffer 2 */;
	int i				/* Loop controo variable */;
	// Repetively scan string
	while ((pos2=strscannext(s,"\n",pos1,1))<sl) {
		// Extract next substring
		ssl[ssn++]= pos2>pos1 ? strextract(s,pos1-1,pos2-2) : "";
		// Update the scan start position
		pos1=pos2+1;
		}
	// Extract last substring if last char not delimiter
	if (pos1<pos2)
		ssl[ssn++]=strextract(s,pos1-1,pos2-1);
	// Remove any trailing CR/LF characters
	for (i=0;i<ssn;i++) {
		if (ssl[i][0]=='\0')
			continue;
		if (ssl[i][(sl=strlen(ssl[i])-1)]=='\012')
			ssl[i][sl]='\0';
		if (ssl[i][(sl=strlen(ssl[i])-1)]=='\015')
			ssl[i][sl]='\0';
		}
	// Return the substring count
	return(ssn);
}

string creatextid()
/*
// Generate new text ID
// Return value :
//	Text ID
*/
{
	string textid			/* Text id */;
	int year,month,day		/* Date */;
	int hour,min,sec		/* Time */;
	// Get date and time
	get_date(day,month,year);
	get_time(hour,min,sec);
	// Build the text ID
	sprintf(textid,"%04d%02d%02d%02d%02d%02d",
	 year+1900,month+1,day,hour,min,sec);
	// Return the text ID
	return(textid);
}

string strltrim(string s)
/*
// Left trim string (skip leading white spaces)
// Return value :
//	string without leading white spaces
// Parameters :
//	string s		: Input string
*/
{
	// Extract and return substring
	return(strextract(s,strscannext(s," \t\n",1,0)-1,strlen(s)));
}

string strrtrim(string s)
/*
// Right trim string (skip trailing white spaces)
// Return value :
//	string without trailing white spaces
// Parameters :
//	string s		: Input string
*/
{
	int i		= strlen(s)	/* Loop control variable */;
	// Scan string backward for non-space
	while ((--i)>=0 && isspace(s[i]))
		;
	// Extract and return substring
	return(i<0 ? "" : strextract(s,0,i));
}

string strtrim(string s)
/*
// Trim string (skip leading and trailing white spaces)
// Return value :
//	string without leading and trailing white spaces
// Parameters :
//	string s		: Input string
*/
{
	// Extract and return substring
	return(strrtrim(strltrim(s)));
}

void settextpwidth(int opmode)
/*
// Set text plot width of mouse-selectable texts
// Parameter :
//	int opmode		: Operating mode
*/
{
	index C_FIGURE fig		/* Figure list element */;
	double pwidth			/* Plot width */;
	string msg			/* Message string */;
	string rulel[]			/* Rule list */;
	int rulen			/* Rule count */;
	string mrulel[]			/* Multiline text rule list */;
	int mrulen			/* Multiline text rule count */;
	string mtextid = ""		/* Multiline text ID */;
	string textid			/* Current text ID */;
	double linespc			/* Multiline text line spacing */;
	int col				/* Multiline text column */;
	int row				/* Multiline text row */;
	int i				/* Loop control variable */;
	switch (opmode) {
		// Change texts
		case 0 :
		// Loop while pick element found
		while (
		 bae_promptdialog(UPRSELTEXT),scm_pickelem(fig,C_FIGTEXT)==0) {
			if (fig.FIXED&2)
				error(ERRTEXTGLUED);
			// Query the text line width
			if (fig.RULEOBJID<0 ||
			 cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,
			  RS_PLOTWIDTH,"?f",pwidth)<1)
				// Query last used plot width
				if (varget(VAR_PLOTW,pwidth))
					pwidth=0.0;
			// Get plot width
			if (askdist(pwidth,bae_getcoorddisp()?
			 UPRTPWIDI:UPRTPWIDM,1))
				error_abort();
			// Assign the plot width predicate rule
			rsc_assfigdblpred(fig,RS_PLOTWIDTH,pwidth,0.0,"");
			// Query the multiline text status
			if (fig.RULEOBJID>=0 && cap_rulequery(
			 RS_OCFIG,fig,RS_SCMSUBJ,RS_MTEXTID,"?s",mtextid)>0 &&
			 mtextid!="") {
				// Get the rule count
				rulen=rsc_getfigrules(fig,rulel);
				// Get the base rules
				mrulen=4;
				sprintf(mrulel[0],":%s:%s='%s';",
				 RS_SCMSUBJ,RS_MTEXTID,mtextid);
				for (i=0;i<rulen;i++) {
					msg=rulel[i];
					if (strmatch(msg,
					  ":scm_rules:mtextid=*;") ||
					 strmatch(msg,
					  ":scm_rules:mtextrow=*;") ||
					 strmatch(msg,
					  ":scm_rules:mtextcol=*;") ||
					 strmatch(msg,
					  ":scm_rules:mtextls=*;"))
						continue;
					mrulel[mrulen]=msg;
					mrulen++;
					}
				forall (fig where fig.TYP==C_FIGTEXT &&
				 fig.RULEOBJID>=0 &&
				 cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,
				  RS_MTEXTID,"?s",textid)>0 &&
				 textid==mtextid) {
					// Get multiline text data
					if (cap_rulequery(RS_OCFIG,fig,
					 RS_SCMSUBJ,RS_MTEXTCOL,"?d",col)<1 ||
					 cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,
					  RS_MTEXTROW,"?d",row)<1 ||
					 cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,
					  RS_MTEXTLS,"?f",linespc)<1)
						continue;
					sprintf(mrulel[1],":%s:%s=%d;",
					 RS_SCMSUBJ,RS_MTEXTCOL,col);
					sprintf(mrulel[2],":%s:%s=%d;",
					 RS_SCMSUBJ,RS_MTEXTROW,row);
					sprintf(mrulel[3],":%s:%s=%.2f;",
					 RS_SCMSUBJ,RS_MTEXTLS,linespc);
					if (cap_rulefigatt(fig,mrulel))
						rsc_error(-1);
					}
				}
			// Redraw the screen
			bae_callmenu(MNU_BAEREDISPL);
			}
		break;
		// Set texts
		case 1 :
		// Query last used plot width
		if (varget(VAR_PLOTW,pwidth))
			// Use default path width
			pwidth=0.0;
		// Get plot width
		if (askdist(pwidth,bae_getcoorddisp()? UPRTPWIDI:UPRTPWIDM,1))
			error_abort();
		// Loop while pick element found
		while (
		 bae_promptdialog(UPRSELTEXT),scm_pickelem(fig,C_FIGTEXT)==0) {
			if (fig.FIXED&2)
				error(ERRTEXTGLUED);
			// Assign the plot width predicate rule
			rsc_assfigdblpred(fig,RS_PLOTWIDTH,pwidth,0.0,"");
			// Query the multiline text status
			if (fig.RULEOBJID>=0 && cap_rulequery(
			 RS_OCFIG,fig,RS_SCMSUBJ,RS_MTEXTID,"?s",mtextid)>0 &&
			 mtextid!="") {
				// Get the rule count
				rulen=rsc_getfigrules(fig,rulel);
				// Get the base rules
				mrulen=4;
				sprintf(mrulel[0],":%s:%s='%s';",
				 RS_SCMSUBJ,RS_MTEXTID,mtextid);
				for (i=0;i<rulen;i++) {
					msg=rulel[i];
					if (strmatch(msg,
					  ":scm_rules:mtextid=*;") ||
					 strmatch(msg,
					  ":scm_rules:mtextrow=*;") ||
					 strmatch(msg,
					  ":scm_rules:mtextcol=*;") ||
					 strmatch(msg,
					  ":scm_rules:mtextls=*;"))
						continue;
					mrulel[mrulen]=msg;
					mrulen++;
					}
				forall (fig where fig.TYP==C_FIGTEXT &&
				 fig.RULEOBJID>=0 &&
				 cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,
				  RS_MTEXTID,"?s",textid)>0 &&
				 textid==mtextid) {
					// Get multiline text data
					if (cap_rulequery(RS_OCFIG,fig,
					 RS_SCMSUBJ,RS_MTEXTCOL,"?d",col)<1 ||
					 cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,
					  RS_MTEXTROW,"?d",row)<1 ||
					 cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,
					  RS_MTEXTLS,"?f",linespc)<1)
						continue;
					sprintf(mrulel[1],":%s:%s=%d;",
					 RS_SCMSUBJ,RS_MTEXTCOL,col);
					sprintf(mrulel[2],":%s:%s=%d;",
					 RS_SCMSUBJ,RS_MTEXTROW,row);
					sprintf(mrulel[3],":%s:%s=%.2f;",
					 RS_SCMSUBJ,RS_MTEXTLS,linespc);
					if (cap_rulefigatt(fig,mrulel))
						rsc_error(-1);
					}
				}
			// Redraw the screen
			bae_callmenu(MNU_BAEREDISPL);
			}
		break;
		// Set group texts
		case 2 :
		// Query last used plot width
		if (varget(VAR_PLOTW,pwidth))
			// Use default path width
			pwidth=0.0;
		// Get plot width
		if (askdist(pwidth,bae_getcoorddisp()? UPRTPWIDI:UPRTPWIDM,1))
			error_abort();
		// Loop for all group elements of interest
		forall (fig where fig.GROUP && fig.TYP==C_FIGTEXT &&
		  !(fig.FIXED&2))
			// Assign the plot width predicate rule
			rsc_assfigdblpred(fig,RS_PLOTWIDTH,pwidth,0.0,"");
		// Redraw the screen
		bae_callmenu(MNU_BAEREDISPL);
		break;
		}
	// Preserve width data for next call
	varset(VAR_PLOTW,pwidth);
	// Done
	bae_prtdialog("");
}

int symattrpaste()
/*
// Paste attributes defined in clipboard text string
// Return value :
//	one if attributes pasted, else zero
*/
{
	index C_FIGURE fig		/* Figure index */;
	string attrulp			/* Attribute change ULC program name */;
	string symname			/* Symbol name */;
	string oldval			/* Old value */;
	struct attrdef {		// Attribute definition
		string name		/* Attribute name */;
		string val		/* Attribute value */;
		} attrl[]		/* Attribute list */;
	int attrn	= 0		/* Attribute count */;
	int sidx	= 0		/* String scan index */;
	int didx			/* String destination index */;
	char c				/* Character buffer */;
	int cnt	= 0			/* Element count */;
	int i				/* Loop control variable */;
	// Scan all text lines
	while ((c=textstr[sidx])!='\0') {
		// Check if attribute definition start
		if (c!='$')
			return(0);
		// Get the attribute name
		attrl[attrn].name[0]='$';
		didx=1;
		sidx++;
		while ((c=textstr[sidx])!='=') {
			if (c=='\0' || (c!='_' && !isalnum(c)))
				return(0);
			attrl[attrn].name[didx]=c;
			didx++;
			if (didx>MAXKEYLEN)
				return(0);
			sidx++;
			}
		attrl[attrn].name[didx]='\0';
		sidx++;
		// Get the attribute value
		didx=0;
		while ((c=textstr[sidx])!='\0' && c!=0x0a && c!=0x0d) {
			if (didx<MAXTEXTLEN) {
				attrl[attrn].val[didx]=c;
				didx++;
				}
			sidx++;
			}
		attrl[attrn].val[didx]='\0';
		attrn++;
		while ((c=textstr[sidx])==0x0a || c==0x0d)
			sidx++;
		}
	if (attrn==0)
		return(0);
	// Query the current active variant
	if (cap_rulequery(RS_OCSCMDB,0,RS_SCMSUBJ,RS_VARIANT,"?d",act_var)<1)
		// Set default variant
		act_var=0;
	// Select all variant table entries
	varn=0;
	act_flag=0;
	sqlcmd(bae_planfname(),V_SELECTA,datafunc);
	// Check if active variant defined
	if (!act_flag) {
		for (i=varn;i>0;i--)
			if (varl[i-1]<act_var)
				break;
			else
				varl[i]=varl[i-1];
		// Insert variant data
		varl[i]=act_var;
		varn++;
		}
	// Check if base variant defined
	if (varl[0]!=0) {
		for (i=varn;i>0;i--)
			varl[i]=varl[i-1];
		// Insert variant data
		varl[0]=0;
		varn++;
		}
	// Check if extra program call needed
	attrulp=bae_inistrval(PAR_ATTRSETP,"");
	// Repetitively pick named references
	bae_prtdialog(UPRSELSYMA);
	while (scm_pickelem(fig,C_FIGNREF)==0) {
		// Save current state for undo
		if (cnt==0)
			bae_callmenu(MNU_BAESAVESTATE);
		symname=fig.NAME;
		for (sidx=0;sidx<attrn;sidx++) {
		    if (attrulp!="")
			if (cap_getpartattrib(
			 symname,attrl[sidx].name,oldval)!=0)
				oldval=PA_NILVAL;
		    if (scm_setpartattrib(
		     symname,attrl[sidx].name,attrl[sidx].val,
		     (sidx==0 ? 1 : 0)|(sidx==(attrn-1) ? 2 : 0))) {
			errormsg(ERRSETATT,attrl[sidx].name);
			}
		    else {
			// Check if extra program call
			if (attrulp!="") {
				varset(GV_SATTRSYM,symname);
				varset(GV_SOATTRN,1);
				varset(GV_SOATTRNL+"0",attrl[sidx].name);
				varset(GV_SOATTRVL+"0",oldval);
				runulprog(attrulp);
				vardelete(GV_SATTRSYM);
				vardelete(GV_SOATTRNL+"0");
				vardelete(GV_SOATTRVL+"0");
				vardelete(GV_SOATTRN);
				}
			if (attrl[sidx].name=="$noplc" && (NOPLCPVIS&2)==2) {
			    if (act_var==0) {
				for (i=0;i<varn;i++)
				    if (varl[i]==act_var) {
					setpvis(
					 symname,attrl[sidx].val,act_var);
					}
				    else {
					if (getvarvalue(symname,"$noplc",
					 varl[i])==PA_NILVAL)
						setpvis(symname,attrl[sidx].val,
						 varl[i]);
					}
				}
			    else {
				setpvis(symname,attrl[sidx].val,act_var);
				}
			    }
			}
		    }
		cnt++;
		}
	// No pick
	if (cnt)
		bae_prtdialog(ERRNOPICK);
	else
		perror(ERRNOPICK);
	return(1);
}

string getvarvalue(string symname,string attrname,int varnum)
/*
// Get variant attribute value
// Return value :
//	Attribute value
// Parameters :
//	string symname		: Symbol name
//	string attrname		: Attribute name
//	int varnum		: Variant number
*/
{
	index C_FIGURE fig		/* Figure list element */;
	index C_NREF nref		/* Named reference */;
	index C_ATTRIBUTE attr		/* Attribute index */;
	string vattrname		/* Variant attribute name */;
	if (cap_nrefsearch(symname,fig))
		return(PA_NILVAL);
	vattrname=varattrname(attrname,varnum);
	nref=fig.NREF;
	// Scan attribute values
	forall (attr of nref where attr.NAME==vattrname)
		return(attr.VALUE);
	return(PA_NILVAL);
}

void setpvis(string symname,string attrval,int varnum)
/*
// Set symbol plot visibility
// Parameters :
//	string symname		: Symbol name
//	string attrval		: $noplc attribute value
//	int varnum		: Variant number
*/
{
	index C_FIGURE fig		/* Figure list element */;
	string rulel[]			/* Rule list */;
	int rulen			/* Rule count */;
	string rulename			/* Rule name */;
	int plotdis			/* Plot disable flag */;
	int i, j			/* Loop control variables */;
	if (cap_nrefsearch(symname,fig))
		return;
	// Get the plot visibility state
	plotdis= (attrval==PA_NILVAL || attrval=="") ? 0 : 1 ;
	// Build the plot disable rule name
	sprintf(rulename,":%s:%s%d=1;",RS_SCMSUBJ,RS_VARPLOTDIS,varnum);
	// Get the rule count
	rulen=rsc_getfigrules(fig,rulel);
	// Clear any previous rule definition
	for (i=rulen-1;i>=0;i--)
		if (rulel[i]==rulename) {
			// Delete the old rule
			for (j=i;j<rulen-1;j++)
				rulel[j]=rulel[j+1];
			rulen--;
			rulel[rulen]="";
			}
	// Add the new rule
	if (plotdis)
		rulel[rulen++]=rulename;
	// Attach/detach the rule list
	if (rulen) {
		if (cap_rulefigatt(fig,rulel))
			rsc_error(-1);
		}
	else if (cap_getrulecnt(RS_OCFIG,fig)>0) {
		if (cap_rulefigdet(fig))
			rsc_error(-1);
		}
}

int datafunc(string dstr,int dint,double ddbl,
 int dval,int dtype,string dtable,string dfield,int didx)
/*
// Data query callback function
// Return value :
//	zero if done or (-1) on data error
// Parameters :
//	string dstr		: String/Date data
//	int dint		: Integer/Boolean data
//	double ddbl		: Float data
//	int dval		: Data valid flag
//	int dtype		: Data type
//	string dtable		: Data table name
//	string dfield		: Data field name
//	int didx		: Data output field index
*/
{
	int i				/* Loop control variable */;
	// Search the insert position
	for (i=varn;i>0;i--)
		if (varl[i-1]<dint)
			break;
		else
			varl[i]=varl[i-1];
	// Insert variant data
	varl[i]=dint;
	varn++;
	if (dint==act_var)
		act_flag=1;
	// Return without errors
	return(0);
}

// User Language program end