/* SCMRULE (SCM) -- Schematic Rule Definition Utility */
/* SCMRULE (SCM) -- Schematic Regelzuweisungsutility */
/*
// Copyright (c) 1999-2012 Oliver Bartels F+E, Muenchen
// Author: Roman Ludwig
// Changes History:
//	rl (120427) RELEASED FOR BAE V7.8.
//	rl (101019) RELEASED FOR BAE V7.6.
//	rl (091029) RELEASED FOR BAE V7.4.
//	rl (091012) ENHANCEMENT:
//		Added pin marker mode group set function.
//	rl (081014) RELEASED FOR BAE V7.2.
//	rl (080828) ENHANCEMENT:
//		Added text pick element control to symbol expand/combine.
//	rl (080306) ENHANCEMENT:
//		Added predicate set functions.
//	rl (071029) RELEASED FOR BAE V7.0.
//	rl (070226) ENHANCEMENT:
//		Added connectivity update mode.
//	rl (061107) ENHANCEMENT:
//		Added pattern button to rule name selection box.
//	rl (060829) RELEASED FOR BAE V6.8.
//	rl (060120) BUGFIX:
//		Fixed problem with nongrid element boundaries symbol expansion.
//	rl (060110) ENHANCEMENT:
//		Added element info to rule edit box.
//	rl (050906) RELEASED FOR BAE V6.6.
//	rl (041012) ENHANCEMENT:
//		Fixed problem with 90/270 degree rotated mirrored symbols.
//	rl (040824) RELEASED FOR BAE V6.4.
//	rl (040526) ENHANCEMENT:
//		Added symbol text mirror visibility support functions.
//	rl (040513) ENHANCEMENT:
//		Added glueing for rotation visibility texts.
//	rl (040112) ENHANCEMENT:
//		Added connectivity mode.
//	rl (031001) ENHANCEMENT:
//		Added various new spice models.
//	rl (030904) RELEASED FOR BAE V6.2.
//	rl (030707) ENHANCEMENT:
//		Added warning for symbols without $noplc.
//	rl (021209) RELEASED FOR BAE V6.0.
//	rl (020618) RELEASED FOR BAE V5.4.
//	rl (020611) ENHANCEMENT:
//		Introduced enhanced rule selection dialog box.
//	rl (020228) ENHANCEMENT:
//		Added text rotation visibility class attachment in
//		symbol rotation combine function.
//	rl (010625) RELEASED FOR BAE V5.0.
//	rl (010606) ENHANCEMENT:
//		Added general rule support for connections.
//	rl (010314) ENHANCEMENT:
//		Added spice model support functions.
//	rl (000525) RELEASED FOR BAE V4.6.
//	rl (000315) ENHANCEMENT:
//		Added symbol text rotation visibility support functions.
//	rl (991222) ENHANCEMENT:
//		Added rule group functions.
//	rl (990803) RELEASED FOR BAE V4.4.
//	rl (990507) ORIGINAL CODING.
//
// DESCRIPTION
//
// The scmrule User Language program is used to attach/detach rules
// to/from schematic figure list elements. The rules should be defined
// using the RULECOMP Neural Rule System Compiler in order to avoid
// undefined rule system errors.
*/

// Includes
#include "pop.ulh"			// User Language popup utilities
#include "scm.ulh"			// User Language SCM utilities
#include "sql.ulh"			// User Language SQL utilities

// Disable undo state request
#pragma ULCALLERNOUNDO

// Messages
string UPRABORT		= M_UPRABORT();
string UPRDONE		= M("&Fertig","D&one");
string UPRTOGGLE	= M("&Setzen/Loeschen","Set/Rese&t");
string UPRPATTERN	= M("&Muster","&Pattern");
string UPRPREDICATE	= M("Predikate :","Predicates :");
string UPRNPRED		= M("Neuer Wert fuer Predikat '%s' von %s ?",
			    "New Value for Predicate '%s' ?");
string UPRPREDSTR	= M("String","String");
string UPRPREDDBL	= M("Double","Double");
string UPRPREDINT	= M("Integer","Integer");
string UPRPREDFSET	= M("ein","on");
string UPRPREDFUSET	= M("aus","off");
string UPRPREDBITS	= M("Bitmaske ","Bit mask");
string UPRDPREDSTR	= M("Stringpredikat fuer %s selektieren",
			    "Select string predicate for %s");
string UPRDPREDDBL	= M("Doublepredikat fuer %s selektieren",
			    "Select double predicate for '%s'");
string UPRDPREDINT	= M("Integerpredikat fuer %s selektieren",
			    "Select integer predicate for '%s'");
string UPRFCT		= M("Regelfunktion waehlen!","Select rule function!");
string UPRFCT0		= M("&Einzelelemente","Single &Elements");
string UPRFCT1		= M("&Gruppe setzen","Set &Group Rules");
string UPRFCT2		= M("Elemente &selektieren","&Select Elements");
string UPRFCT3		= M("%Rotation &aufloesen","%&Disolve Rotations");
string UPRFCT4		= M("Rotation &zusammenfassen","&Combine Rotations");
string UPRFCT5		= M("%Spice &Pinabfolge","%Spice &Pin Order");
string UPRFCT6		= M("Spice &Modell","Spice &Model");
string UPRFCT7		= M("%&Connectivity","%Co&nnectivity");
string UPRFCT8		= M("%&Netz-/Bauteilbereich","%Net/Part &Area");
string UPRFCT9		= M("%Veran&kerung","%Gl&ue");
string UPRFCT10		= M("%Kontext&funktionen","%Context &Functions");
string UPRFCT11		= M("%&Regelupdate","%&Rule Update");
string UPRSELRULE	= M("Regeltyp selektieren!","Select rule type!");
string UPRSELR0		= M("&Benannte Regel","&Named rule");
string UPRSELR1		= M("&Rotationssichtbarkeit","&Rotation visibility");
string UPRSELR2		= M("&Plotsichtbarkeit","&Plot visibility");
string UPRSELR3		= M("PDF-&Farbe","PDF &Color");
string UPRSELR4		= M("PDF-&Ebene","PDF La&yer");
string UPRSELR5		= M("Symbolp&inmodus","Symbol P&in Mode");
string UPRSELR6		= M("%Alle Regeln &loeschen","%&Delete all rules");
string UPRSELROT	= M("Rotationssichtbarkeit selektieren!",
			    "Select rotation visibility!");
string UPRROTA		= M("&Immer sichtbar","&Always visible");
string UPRROT0		= M("     0 Grad","     0 Degrees");
string UPRROT90		= M("    90 Grad","    90 Degrees");
string UPRROT180	= M("   180 Grad","   180 Degrees");
string UPRROT270	= M("   270 Grad","   270 Degrees");
string UPRROT0_180	= M(" 0/180 Grad"," 0/180 Degrees");
string UPRROT90_270	= M("90/270 Grad","90/270 Degrees");
string UPRSELPVIS	= M("Plotsichtbarkeit selektieren!",
			    "Select plot visibility!");
string UPRPVISON	= M("&Plotten","&Plot");
string UPRPVISOFF	= M("&Nicht Plotten","&Disable Plotting");
string UPRSELCONMODE	= M("Connectivitymodus selektieren!",
			    "Select connectivity mode!");
string UPRCON0		= M("&Standard","&Standard");
string UPRCON1		= M("&Voller Pincheck","&Full Pin Check");
string UPRCON2		= M("%Projekt&update","%Project &Update");
string UPRSELETYP	= M("Elementtyp selektieren!","Select element type!");
string UPRSELE0		= M("Sym&bole/Labels/Pins","Symbols/Labels/&Pins");
string UPRSELE1		= M("&Verbindungen","&Connections");
string UPRSELE2		= M("&Grafik","&Graphic");
string UPRSELE3		= M("&Texte","&Texts");
string UPRSELE4		= M("%Pla&n","%&Sheet/Macro");
string UPRSELE5		= M("A&lle Plaene","&All Sheets");
string UPRSELMODEL	= M("Modelltyp selektieren!","Select model type!");
string UPRSELMOD0	= M("&R (Widerstand)","&R (Resistor)");
string UPRSELMOD1	= M("&C (Kondensator)","&C (Capacitor)");
string UPRSELMOD2	= M("&L (Spule)","&L (Inductor)");
string UPRSELMOD3	= "&S (Voltage controlled Switch)";
string UPRSELMOD4	= "&W (Current controlled Switch)";
string UPRSELMOD5	= "&V (Voltage Source)";
string UPRSELMOD6	= "&I (Current Source)";
string UPRSELMOD7	= "&G (Voltage controlled Current Source)";
string UPRSELMOD8	= "&E (Voltage controlled Voltage Source)";
string UPRSELMOD9	= "&H (Current controlled Current Source)";
string UPRSELMOD10	= "&B (Current controlled Voltage Source)";
string UPRSELMOD11	= "&T (Lossless Transmission Line)";
string UPRSELMOD12	= "&O (Lossy Transmission Line)";
string UPRSELMOD13	= "&U (Uniform distributed RC Lines)";
string UPRSELMOD14	= "&D (Junction Diode)";
string UPRSELMOD15	= "&Q (Bipolar Transistor)";
string UPRSELMOD16	= "&J (JFET)";
string UPRSELMOD17	= "&M (MOSFET)";
string UPRSELMOD18	= "&Z (MESFET)";
string UPRSELMOD19	= "&X (Subcircuit)";
string UPRSELNREF	= M("Symbol/Label/Pin selektieren!",
			    "Select symbol/label/pin!");
string UPRSELCON	= M("Verbindungen selektieren!","Select connections!");
string UPRSELPOLY	= M("Flaeche selektieren!","Select polygon!");
string UPRSELTEXT	= M("Text selektieren!","Select text!");
string UPRSELNAREA	= M("Netz-/Bauteilbereichsflaeche selektieren!",
			    "Select net/part area polygon!");
string UPRSELRULE0	= M("Regel setzen/loeschen (","Rule set/reset (");
#define UPRSELRULE1	") ? "
string UPRDRULEH	= M("Regeln fuer %s setzen/loeschen",
			    "%s rules set/reset");
string UPRDRSTEXT	= M("Standardtext '%s'","Standard text '%s'");
string UPRDRCTEXT	= M("Kommentartext '%s'","Commentary text '%s'");
string UPRDRCON		= M("Verbindung","Connection");
string UPRDRBUS		= M("Busverbindung","Bus connection");
string UPRDRPTYPGL	= M("Grafiklinie","Graphic Line");
string UPRDRPTYPDL	= M("Punktlinie","Dot Line");
string UPRDRPTYPGA	= M("Grafikflaeche","Graphic Area");
string UPRDRPTYPCA	= M("Kontaktbereich","Contact Area");
string UPRDRLAB		= M("Label '%s'/'%s'","Label '%s'/'%s'");
string UPRDRSYM		= M("Symbol '%s'/'%s'","Symbol '%s'/'%s'");
string UPRDRPIN		= M("Pin '%s'/'%s'","Pin '%s'/'%s'");
string UPRRULENAME	= M("Regelname :","Rule Name :");
string UPRRULESET	= M("Gesetzte Regeln :","Rules set :");
string UPRRULEPROJ	= M("Regeln in Projektdatei :",
			    "Rules in Project File :");
string UPRRULEDB	= M("Regeln in Datenbank :","Database Rules :");
string UPRRULE		= M("Regel ? ","Rule ? ");
string UPRRULEPAT	= M("Regelnamen(smuster) ? ","Rule Name (Pattern) ? ");
string UPRSELPIN	= M("Spice-Modell Pin Nummer %d selektieren!",
			    "Select Spice Model Pin Number %d!");
string UPRSELGL		= M("Regeln Gruppenfunktion selektieren!",
			    "Select rule group function!");
string UPRSELGL0	= M("Symbol(e) &verankern","&Glue Symbol(s)");
string UPRSELGL1	= M("Symbol(e) &freigeben","&Unglue Symbol(s)");
string UPRSELGL2	= M("%Gruppenelemente v&erankern","%G&lue Group Elements");
string UPRSELGL3	= M("Gruppenelemente f&reigeben","U&nglue Group Elements");
string UPRSELGL4	= M("%&Selektieren verankert","%&Select Glued");
string UPRSELGL5	= M("&Deselektieren verankert","&Deselect Glued");
string UPRCONWRN1	= M("WARNUNG: Der volle Pincheck birgt die Gefahr unbeabsichtigt ",
			    "WARNUNG: Full pin check connectivity may cause ");
string UPRCONWRN2	= M("Verbindungen zu Pins herzustellen!\nModus dennoch wechseln?",
			    "unintentional pin connections! Perform mode change?");
string UPRCONUPD1	= M("Bei Aenderung des Connectivitymodus muessen alle ",
			    "Changing the connectivity mode requires new processing");
string UPRCONUPD2	= M("Projektblaetter bearbeitet werden.\nAenderung durchfuehren?",
			    "of all project sheets.\nPerform change?");
string UPRNETAREA	= M("Bereichsnamen ? ","Area Name ? ");
string UPRPDFCOLOR	= M("PDF-Farbe ? ","PDF Color ? ");
string UPRPDFLAY	= M("PDF-Ebene ? ","PDF Layer ? ");
string UPRBRWCOLOR	= M("BAE-Auswahl","BAE-Selection");
string UPRDPINMODE	= M("Symbolpinmodus","Symbol Pin Mode");
string UPRPINMOVE	= M("Freigabe Pinbewegung","Permit Pin Movement");
string UPRPINMODE	= M("Markermodus :","Marker Mode :");
string UPRPINNMIRR	= M("Nicht spiegeln","No Mirroring");
string UPRPINNROT	= M("Nicht drehen","No Rotation");
string UPRTXTLEFT	= M("Zum Zusammenfassen hier links klicken",
			    "Left click here to combine");
string UPRTXTRIGHT	= M("Zum Zusammenfassen hier rechts klicken",
			    "Right click here to combine");
string UPRDIALFFUNC	= M("Kontextfunktionen","Context Functions");
string UPRITEMMOVDST    = M("Neue Position fuer Kontextfunktion '%s' selektieren",
			    "Select new position for context function '%s'");

string UPRDIALFEDIT	= M("Kontextfunktion %d","Context Function %d");
string UPRDFCTNAME	= M("Name :","Name :");
string UPRDFCTPROG	= M("Aufrufsequenz :","Calling sequence :");
string UPRULCPROG	= M("Programmname :","Program Name :");
string UPRMACSEL	= M("Makroauswahl","Macro Selection");
string UPRDEDIT		= M("&Aendern","&Edit");
string UPRDADDF		= M("Neue Menu&funktion","Add Menu &Item");
string UPRDADDM		= M("Neues &Makro","Add Ma&cro");
string UPRDADDU		= M("Neue &Anwenderfunktion ","Add &User Script");
string UPRDDEL		= M("&Loeschen","Dele&te");
string UPRDDELA		= M("Alle l&oeschen","Delete All");
string UPRDMOVE		= M("&Verschieben","&Move");
string UPRDDONE		= M("Fer&tig","&Done");
string UPRNEXTDIAL	= M("&Weitere","&Next");
string UPRPREVDIAL	= M("&Vorherige","&Previous");
string UPRPFILE		= M("Projektdateiname ? ","Project File Name ? ");
string UPRBRWFILENAME	= M("Browse","Browse");
string UPRLINKFILE	= M("Dokumentationsdatei/link:",
			    "Documentation file/link:");
string REPRULECOPY	= M("%d Regeln kopiert.","%d rules copied.");
string REPNPWARN	= M("Warnung - Symbolmakros ohne $noplc-Attribut betroffen :",
			    "Warning - Symbol Macros without $noplc-Attribute processed :");
string REPNETSCAN	= M("Scannen Bereichsnamen...",
			    "Scanning area names...");
string REPELEMSEL	= M("%d Element(e) hinzuselektiert. Jetzt %d Elemente in Gruppe.",
			    "%d element(s) selected. Now %d elements in group.");
string REPELEMDSEL	= M("%d Element(e) deselektiert. Jetzt %d Elemente in Gruppe.",
			    "%d element(s) deselected. Now %d elements in group.");
string REPCOLORSET	= M("PDF-Farbe '%s' %d Elementen zugewiesen.",
			    "Assigned PDF color '%s' to %d elements.");
string REPPDFLAYSET	= M("PDF-Ebene '%s' %d Elementen zugewiesen.",
			    "Assigned PDF layer '%s' to %d elements.");
string REPRULESET	= M("Regel '%s' %d Elementen zugewiesen.",
			    "Assigned rule '%s' to %d elements.");
string ERRINVCOLOR	= M("Ungueltige Farbauswahl!",
			    "Invalid color selection!");
string ERRNORULE	= M("Regel '%s' nicht definiert!",
			    "Rule '%s' not defined!");
string ERRNOEXP		= M("Element ist nicht expandiert!",
			    "Element isn't expanded!");
string ERRALREXP	= M("Element ist bereits expandiert!",
			    "Element is already expanded!");
string ERRTEXT		= M("Fehler beim Erzeugen des Textes '%s'!",
			    "Error creating text '%s'!");
string ERRNOMACRO	= M("Keine Makros definiert!","No Macros defined!");
string ERRNOMOVITEM	= M("Keine Kontextfunktion fuer die Verschiebung selektiert!",
			    "No move source context function selected!");

string ERRNOWIN		= M("Nur in Windowsumgebungen verfuegbar!",
			    "Windows Environment needed!");

// INI file parameter name definitions
#define PAR_NOPLCVAL	"NOPLCVAL_SCM"	// $noplc value for unplaced parts
#define PAR_NOPLCPVIS	"NOPLCPVIS_SCM"	// $noplc/plot visibilty relationship
#define PAR_ROTVISTCL	"ROTVISTCL_SCM"	// Rot. visibility text class
#define PAR_LISTDCNT	"MACRODCNT_STD"	// Max. dialog list items count

// Rule definitions
#define ROTVISPREF	"scm_rot_vis_"	// Rotation visibility prefix

// Variable name definitions
#define VAR_EWIDTH	"scm_rv_w"	// Element width
#define VAR_EHEIGHT	"scm_rv_h"	// Element height
#define VAR_EMDIM	"scm_rv_md"	// Element maximum dimension
#define VAR_EXOFF	"scm_rv_xo"	// Element x offset
#define VAR_EYOFF	"scm_rv_yo"	// Element y offset
#define VAR_ELX		"scm_rv_lx"	// Element x lower boundary
#define VAR_ELY		"scm_rv_ly"	// Element y lower boundary
#define VAR_EUX		"scm_rv_ux"	// Element x upper boundary
#define VAR_EUY		"scm_rv_uy"	// Element y upper boundary
#define VAR_ETYP	"scm_rv_et"	// Pick element types
#define GV_PINMODE	"scm_pinmmode"	// Pin marker mode

// SQL command definitions
#define MN_SELECT	"select macname from macrotab where ptyp=%d AND midx=0;"

#define ELEMSPC		0.005		// Element spacing
#define HELPSIZE	0.002		// Help text size

// Dialog box definitions
#define ED_WIDTHF	40.0		// Favorite param. edit field width
#define CCOLOFFFL	87.0		// Fav. list 2nd ctrl. column offset
#define CCOLOFFF	20.0		// Fav. param. 2nd ctrl. column offset
double BUTXSTEP	= bae_swconfig(3)==2 ? 2.0 : 0.0
					/* Menu action button x spacing */;
#define SELBOXWIDTHFS	95.0		// Favorite selection box width
int MAXMENULIST = bae_iniintval(PAR_LISTDCNT,12)
					/* Max. menu list length */;
#define MAXMENUITEM	28		// Max. menu item count

// Globals
#define UL_MACRO	"macro"		// ULP: Macro Management
string NOPLCVAL = bae_inistrval(PAR_NOPLCVAL,"NP")
					/* $noplc value for unplaced parts */;
int NOPLCPVIS = bae_iniintval(PAR_NOPLCPVIS,3)
					/* $noplc/plot vis. relationship */;
int ROTVISTCLASS = bae_iniintval(PAR_ROTVISTCL,0x40000000)
					/* Rot. visibility text class */;
static string BAEMACRODB = strgetconffilename(MACROVNAME,MACROFNAME,1);
static int IPTYP	= uliptype()	/* UL interpreter type */;
static string sqlcommand		/* SQL command string */;
static string macl[]			/* Macro name list */;
static int macn				/* Macro name count */;
string rulel[]				/* Rule list */;
string emptyrulel[]			/* Empty rule list */;
int rulen				/* Rule count */;
string npsyml[]				/* Symbol macros without $noplc */;
int npsymn		= 0		/* $noplc symbol macro count */;
struct cfctdes {			// Context function descriptor
	string menu			/* Menu text */;
	string seq			/* Function call sequence */;
	} cfctl[]			/* Context function list */;
int cfctn				/* Context function count */;
double elemw, elemh			/* Element size */;
double elemxo, elemyo			/* Element offset */;
double elemmdim				/* Element max. dimension */;
double wslx, wsly			/* Workspace lower boundaries */;
double wsux, wsuy			/* Workspace upper boundaries */;
#define TYPINT		0x01		// Integer data type
#define TYPDBL		0x02		// Double data type
#define TYPSTR		0x03		// String data type
#define TYPINTBITS	0x01		// Bitmask data sub type
#define TYPINTSEL	0x02		// Selection data sub type
#define TYPDBLDIM	0x01		// Dimension data sub type
#define TYPSTRNAME	0x01		// Name data sub type
#define TYPSTRFILE	0x02		// File name data sub type
#define TYPSTRLINK	0x03		// Link/file name data sub type
#define SCMBIT		0x01		// Schematic plan class mask bit
#define SYMBIT		0x02		// Schematic symbol class mask bit
#define MRKBIT		0x04		// Schematic marker class mask bit
#define LABBIT		0x08		// Schematic label class mask bit
#define POLYBIT		(1<<C_FIGPOLY)	// Polygon type bit
#define CONBIT		(1<<C_FIGCON)	// Connection type bit
#define NREFBIT		(1<<C_FIGNREF)	// Named reference type bit
#define TEXTBIT		(1<<C_FIGTEXT)	// Text type bit
#define LREFBIT		(1<<29)		// Label reference type bit
#define ANYELEMBIT	(POLYBIT|CONBIT|NREFBIT|TEXTBIT|LREFBIT) // Any el. bit
#define PLANTYP		30		// Plan type code
#define PROJTYP		31		// Project type code
#define PLANBIT		(1<<PLANTYP)	// Current plan type bit
#define PROJBIT		(1<<PROJTYP)	// Current project type bit
#define STXTBIT		0x01		// Standard text type bit
#define CTXTBIT		0x02		// Comment text type bit
#define ATXTBIT		0x04		// Attribute text type bit
#define LINEBIT		0x01		// Graphic line polygon type bit
#define AREABIT		0x02		// Graphics area polygon type bit
#define CAREABIT	0x10		// Connection area polygon type bit
#define DLINEBIT	0x20		// Dotted line polygon type bit
struct preddes {			// Predicate descriptor
	string name			/* Predicate name */;
	string delpat			/* Predicate rule deletion pattern */;
	string comm			/* Predicate comment */;
	string defsval			/* Predicate default string value */;
	double defdval			/* Predicate default double value */;
	int defival			/* Predicate default integer value */;
	int valtyp			/* Value type */;
	int valstyp			/* Value sub type */;
	int classmask			/* Element class mask */;
	int etypmask			/* Element type mask */;
	int estypmask			/* Element sub type */;
	string namel[]			/* Value/bit names list */;
	};
struct preddes predl[] = {		// Predicate list
	{ /* attr_assign_dis */ RS_ATTADIS,"",
	  M("Attributzuweisung sperren","Lock attribute assignment"),
	  "",0.0,0,TYPINTBITS,0,SYMBIT,TEXTBIT,ATXTBIT,{
	  M("Attributzuweisung sperren","Lock attribute assignment")} },
	{ /* attr_base_only */ RS_ATTVAR0,"",
	  M("Attribut nur in Basisvariante setzbar",
	    "Attribute assignment only in base variant"),
	  "",0.0,0,TYPINTBITS,0,SYMBIT,TEXTBIT,ATXTBIT,
	  {M("Attributzuweisung sperren","Lock attribute assignment")} },
	{ /* auto_bus_con */ RS_AUTOBUS,"",M("Pin Busmodus","Pin bus mode"),
	  "",0.0,0,TYPINT,TYPINTSEL,SYMBIT|LABBIT,NREFBIT,0,{
	  M("Standardpin","Standard pin"),M("Buspin","Bus pin")} },
	{ /* bus_fill */ RS_BUSFILL,"scm_bus_fill",
	  M("Busdarstellung","Bus display mode"),
	  "",0.0,0,TYPINT,TYPINTSEL,SCMBIT,PROJBIT,0,{
	  M("Randliniendarstellung","Outline Display"),
	  M("Gefuellte Darstellung","Fill Display")} },
	{ /* bustap_mode */ RS_BUSTAPMODE,"",
	  M("Bustapautomatik","Bustap autochange"),
	  "",0.0,3,TYPINT,TYPINTBITS,SCMBIT,PROJBIT,0,{
	  M("Mit Verbindungen bewegen","Move with Connections"),
	  M("Mit Verbindungen loeschen","Delete with Connections")} },
	{ /* conmode */ RS_CONMODE,"",
	  M("Connectivitymodus (bei Aenderung alle Plaene neu speichern!)",
	  "Connectivity mode (all project sheets MUST be saved after change!)"),
	  "",0.0,0,TYPINT,TYPINTSEL,SCMBIT,PROJBIT,0,{
	  M("Standard","Standard"),M("Voller Pincheck","Full Pin Check")} },
	{ /* envvar */ RS_ENVVAR,"",
	  M("Name einer Umgebungsvariable die bei Ausgaben auf den Textstring gesetzt wird",
	    "Name of an environment variable to be set to the text string for outputs"),
	  "",0.0,0,TYPSTR,0,0,TEXTBIT,0,{""} },
	{ /* fctname0 */ "fctname0","",
	  M("Name der 1. Kontextfunktion fuer dieses Element",
	    "Name of 1st context function of this element"),
	  "",0.0,0,TYPSTR,0,0,ANYELEMBIT,0,{ "" } },
	{ /* fctname0 */ "fctname0","",
	  M("Name der 1. Kontextfunktion fuer dieses Makro",
	    "Name of 1st context function of this macro"),
	  "",0.0,0,TYPSTR,0,0,PLANBIT,0,{ "" } },
	{ /* fctname1 */ "fctname1","",
	  M("Name der 2. Kontextfunktion fuer dieses Element",
	    "Name of 2nd context function of this element"),
	  "",0.0,0,TYPSTR,0,0,ANYELEMBIT,0,{ "" } },
	{ /* fctname1 */ "fctname1","",
	  M("Name der 2. Kontextfunktion fuer dieses Makro",
	    "Name of 2nd context function of this macro"),
	  "",0.0,0,TYPSTR,0,0,PLANBIT,0,{ "" } },
	{ /* fctname2 */ "fctname2","",
	  M("Name der 3. Kontextfunktion fuer dieses Element",
	    "Name of 3rd context function of this element"),
	  "",0.0,0,TYPSTR,0,0,ANYELEMBIT,0,{ "" } },
	{ /* fctname2 */ "fctname2","",
	  M("Name der 3. Kontextfunktion fuer dieses Makro",
	    "Name of 3rd context function of this macro"),
	  "",0.0,0,TYPSTR,0,0,PLANBIT,0,{ "" } },
	{ /* fctname3 */ "fctname3","",
	  M("Name der 4. Kontextfunktion fuer dieses Element",
	    "Name of 4th context function of this element"),
	  "",0.0,0,TYPSTR,0,0,ANYELEMBIT,0,{ "" } },
	{ /* fctname3 */ "fctname3","",
	  M("Name der 4. Kontextfunktion fuer dieses Makro",
	    "Name of 4th context function of this macro"),
	  "",0.0,0,TYPSTR,0,0,PLANBIT,0,{ "" } },
	{ /* fctname4 */ "fctname4","",
	  M("Name der 5. Kontextfunktion fuer dieses Element",
	    "Name of 5th context function of this element"),
	  "",0.0,0,TYPSTR,0,0,ANYELEMBIT,0,{ "" } },
	{ /* fctname4 */ "fctname4","",
	  M("Name der 5. Kontextfunktion fuer dieses Makro",
	    "Name of 5th context function of this macro"),
	  "",0.0,0,TYPSTR,0,0,PLANBIT,0,{ "" } },
	{ /* fctseq0 */ "fctseq0","",
	  M("Aufrufsequenz der 1. Kontextfunktion fuer dieses Element",
	    "Call sequence of 1st context function of this element"),
	  "",0.0,0,TYPSTR,0,0,ANYELEMBIT,0,{ "" } },
	{ /* fctseq0 */ "fctseq0","",
	  M("Aufrufsequenz der 1. Kontextfunktion fuer dieses Makro",
	    "Call sequence of 1st context function of this macro"),
	  "",0.0,0,TYPSTR,0,0,PLANBIT,0,{ "" } },
	{ /* fctseq1 */ "fctseq1","",
	  M("Aufrufsequenz der 2. Kontextfunktion fuer dieses Element",
	    "Call sequence of 2nd context function of this element"),
	  "",0.0,0,TYPSTR,0,0,ANYELEMBIT,0,{ "" } },
	{ /* fctseq1 */ "fctseq1","",
	  M("Aufrufsequenz der 2. Kontextfunktion fuer dieses Makro",
	    "Call sequence of 2nd context function of this macro"),
	  "",0.0,0,TYPSTR,0,0,PLANBIT,0,{ "" } },
	{ /* fctseq2 */ "fctseq2","",
	  M("Aufrufsequenz der 3. Kontextfunktion fuer dieses Element",
	    "Call sequence of 3rd context function of this element"),
	  "",0.0,0,TYPSTR,0,0,ANYELEMBIT,0,{ "" } },
	{ /* fctseq2 */ "fctseq2","",
	  M("Aufrufsequenz der 3. Kontextfunktion fuer dieses Makro",
	    "Call sequence of 3rd context function of this macro"),
	  "",0.0,0,TYPSTR,0,0,PLANBIT,0,{ "" } },
	{ /* fctseq3 */ "fctseq3","",
	  M("Aufrufsequenz der 4. Kontextfunktion fuer dieses Element",
	    "Call sequence of 4th context function of this element"),
	  "",0.0,0,TYPSTR,0,0,ANYELEMBIT,0,{ "" } },
	{ /* fctseq3 */ "fctseq3","",
	  M("Aufrufsequenz der 4. Kontextfunktion fuer dieses Makro",
	    "Call sequence of 4th context function of this macro"),
	  "",0.0,0,TYPSTR,0,0,PLANBIT,0,{ "" } },
	{ /* fctseq4 */ "fctseq4","",
	  M("Aufrufsequenz der 5. Kontextfunktion fuer dieses Element",
	    "Call sequence of 5th context function of this element"),
	  "",0.0,0,TYPSTR,0,0,ANYELEMBIT,0,{ "" } },
	{ /* fctseq4 */ "fctseq4","",
	  M("Aufrufsequenz der 5. Kontextfunktion fuer dieses Makro",
	    "Call sequence of 5th context function of this macro"),
	  "",0.0,0,TYPSTR,0,0,PLANBIT,0,{ "" } },
	{ /* glued */ RS_GLUED,"", M("Elementverankerung","Element Glue"),
	  "",0.0,0,TYPINT,TYPINTBITS,0,ANYELEMBIT,0,
	  { M("Verankerung","Glue") }},
	{ /* grpname */ RS_GROUPNAME,"", M("Gruppenname","Group name"),
	  "",0.0,0,TYPSTR,0,0,ANYELEMBIT,0,{""} },
	{ /* inival */ RS_INIVAL,"",
	  M("Attribut Defaultwert","Attribute default value"),
	  "",0.0,0,TYPSTR,0,SYMBIT,TEXTBIT,ATXTBIT,{""} },
	{ /* measureid */ RS_MEASUREID,"",
	  M("ID Distanzbemassungstext. NICHT aendern!",
	    "ID of distance measure text. DON'T change!"),
	  "",0.0,0,TYPSTR,0,0,TEXTBIT,0,{""} },
	{ /* measureid */ RS_MEASUREID,"",
	  M("ID Distanzbemassungsgrafik. NICHT aendern!",
	    "ID of distance measure graphic. DON'T change!"),
	  "",0.0,0,TYPSTR,0,0,POLYBIT,LINEBIT|AREABIT,{""} },
	{ /* mtextcol */ RS_MTEXTCOL,"",
	  M("Mehrzeilentext Teiltext Spaltenangabe. NICHT aendern!",
	    "Multiline text, column of subtext. DON'T change!"),
	  "",0.0,0,TYPINT,0,0,TEXTBIT,0,{""} },
	{ /* mtextid */ RS_MTEXTID,"", M("ID Mehrzeilentext. NICHT aendern!",
	  "ID multiline text. DON'T change!"),
	  "",0.0,0,TYPSTR,0,0,TEXTBIT,0,{""} },
	{ /* mtextls */ RS_MTEXTLS,"",
	  M("Mehrzeilentext relativer Zeilenabstand. NICHT aendern!",
	    "Multiline text, relativ row spacing. DON'T change!"),
	  "",1.0,0,TYPDBL,0,0,TEXTBIT,0,{""} },
	{ /* mtextrow */ RS_MTEXTROW,"",
	  M("Mehrzeilentext Teiltext Zeilenangabe. NICHT aendern!",
	    "Multiline text, row of subtext. DON'T change!"),
	  "",0.0,0,TYPINT,0,0,TEXTBIT,0,{""} },
	{ /* name_label */ RS_NAMELABEL,"scm_name_label",
	  M("Netz vom Einzellabelreport ausnehmen",
	    "Suppress net name output in single label report"),
	  "",0.0,0,TYPINT,TYPINTBITS,SCMBIT,LREFBIT,0,{
	  M("Netz vom Einzellabelreport ausnehmen",
	    "Suppress net name output in single label report")} },
	{ /* name_label */ RS_NAMELABEL,"scm_name_label",
	  M("Netze mit diesem Labelmakro vom Einzellabelreport ausnehmen",
	    "Suppress net name output in single label report for nets using this label"),
	  "",0.0,0,TYPINT,TYPINTBITS,LABBIT,PLANBIT,0,{
	  M("Netze mit diesem Labelmakro vom Einzellabelreport ausnehmen",
	    "Suppress net name output in single label report for nets using this label")} },
	{ /* netarea_namesize */ RS_NETAREANSIZ,"scm_netarea_namesize",
	  M("Netz-/Bauteilbereichsnamen Textgroesse","Net/part area name text size"),
	  "",0.004,0,TYPDBL,TYPDBLDIM,SCMBIT,PROJBIT,0,{""} },
	{ /* picksel_dis */ RS_PICKDIS,"scm_picksel_disable",
	  M("Element von der Pickelementauswahl ausnehmen",
	    "Exclude element from pick element selections"),
	  "",0.0,0,TYPINT,TYPINTBITS,0,ANYELEMBIT,0,{
	  M("Element von der Pickelementauswahl ausnehmen",
	    "Exclude element from pick element selections")} },
	{ /* picksel_dis */ RS_PICKDIS,"scm_picksel_disable",
	  M("Platzierungen dieses Makros von der Pickelementauswahl ausnehmen",
	    "Exclude placements of this macro from pick element selections"),
	  "",0.0,0,TYPINT,TYPINTBITS,0,PLANBIT,0,{
	  M("Platzierungen dieses Makros von der Pickelementauswahl ausnehmen",
	    "Exclude placements of this macro from pick element selections")} },
	{ /* pin_con */ RS_PINCON,"scm_pin_autocon",
	  M("Steuerung automatischer Pinanschluss auf Schaltplanebene",
	    "Control pin autoconnect on schematic sheet"),
	  "",0.0,0,TYPINT,TYPINTBITS,SYMBIT,NREFBIT,0,{
	  M("Automatischer Pinanschluss nach Platzierung",
	    "Autoconnect pin after placement")} },
	{ /* pin_con */ RS_PINCON,"scm_pin_autocon",
	  M("Steuerung automatischer Pinanschluss auf Schaltplanebene",
	    "Control pin autoconnect on schematic sheet"),
	  "",0.0,0,TYPINT,TYPINTBITS,MRKBIT,PLANBIT,0,{
	  M("Automatischer Pinanschluss nach Platzierung",
	    "Autoconnect pin after placement")} },
	{ /* pin_drc */ RS_PINDRC,"scm_pin_drc",
	  M("Pin Antennenverbindungshighlight","Pin antenna highlight mode"),
	  "",0.0,0,TYPINT,TYPINTSEL,SCMBIT,PROJBIT,0,{
	  M("Standard","Standard"),M("Auch Einzelsegmente an Pins highlighten",
	    "Also highlight single segment antennas")} },
	{ /* pin_marker_plot */ RS_PMARKPLT,"scm_pin_marker_plot",
	  M("Pinmarkerplotmodus","Pin marker mode"),
	  "",0.0,0,TYPINT,TYPINTSEL,SCMBIT,PROJBIT,0,{
	  M("Pinmarkergrafik nicht plotten","No pin marker graphic plot"),
	  M("Pinmarkergrafik plotten","No pin marker graphic plot")} },
	{ /* pin_move */ RS_PINMOVE,"scm_pin_move",
	  M("Steuerung Pinbewegung/-anzeige auf Schaltplanebene",
	    "Control pin movement/display on schematic sheet"),
	  "",0.0,0,TYPINT,TYPINTBITS,SYMBIT,NREFBIT,0,{
	  M("Pinbewegung auf Schaltplanebene freigeben",
	    "Enable pin movement on schematic sheet"),
	  M("Pinmarker nicht mitspiegeln","No pin marker mirroring"),
	  M("Pinmarker nicht mitdrehen","No pin marker rotation")} },
	{ /* pin_move */ RS_PINMOVE,"scm_pin_move",
	  M("Steuerung Pinbewegung/-anzeige auf Schaltplanebene",
	    "Control pin movement on schematic sheet"),
	  "",0.0,0,TYPINT,TYPINTBITS,MRKBIT,PLANBIT,0,{
	  M("Pinbewegung auf Schaltplanebene freigeben",
	    "Enable pin movement on schematic sheet"),
	  M("Pinmarker nicht mitspiegeln","No pin marker mirroring"),
	  M("Pinmarker nicht mitdrehen","No pin marker rotation")} },
	{ /* pintype */ RS_PINTYPE,"",
	  M("Pintyp aus TXF-Import","Pin type from TXT-Import"),
	  "",0.0,0,TYPSTR,0,SYMBIT,NREFBIT,0,{""} },
	{ /* plotfont */ RS_PLOTFONT,"scm_text_font_*",
	  M("Font fuer EPS/PDF-Ausgabe","Font for EPS/PDF output"),
	  "",0.0,-1,TYPINT,TYPINTSEL,0,ANYELEMBIT,0,{
	  M("Defaultfont","Default font"),M("BAE Vektorfont","BAE vector font"),
	  M("1. Postscript-/PDF-Font","1st Postscript/PDF font"),
	  M("2. Postscript-/PDF-Font","2nd Postscript/PDF font") } },
	{ /* plotrgb */ RS_PLOTRGB,"",
	  M("RGB-Werte fuer EPS/PDF/WRL-Ausgabe (schwarz: 0.0 0.0 0.0, weiss: 1.0 1.0 1.0)",
	  "RGB color values for EPS/PDF/WRL output (black: 0.0 0.0 0.0, white: 1.0 1.0 1.0)"),
	  "",0.0,0,TYPSTR,0,0,ANYELEMBIT,0,{""} },
	{ /* plottsfac */ RS_PLOTTSFAC,"",
	  M("Korrekturfaktor fuer die Textgroesse in der EPS/PDF-Ausgabe",
	    "Text height correction factor for EPS/PDF output"),
	  "",1.0,0,TYPDBL,0,SCMBIT,NREFBIT,0,{""} },
	{ /* plottsfac */ RS_PLOTTSFAC,"",
	  M("Korrekturfaktor fuer die Textgroesse in der EPS/PDF-Ausgabe",
	    "Text height correction factor for EPS/PDF output"),
	  "",1.0,0,TYPDBL,0,0,TEXTBIT,0,{""} },
	{ /* plotwidth */ RS_PLOTWIDTH,"",
	  M("Plotstrichstaerke (0.0 Standardlinienbreite)",
	    "Plot width (0.0 Default linbe width)"),
	  "",0.0,0,TYPDBL,TYPDBLDIM,0,TEXTBIT,0,{""} },
	{ /* plotwidth */ RS_PLOTWIDTH,"",
	  M("Plotstrichstaerke (0.0 Standardlinienbreite)",
	    "Plot width (0.0 Default)"),
	  "",0.0,0,TYPDBL,TYPDBLDIM,0,POLYBIT,LINEBIT,{""} },
	{ /* poly_dash */ RS_POLYDASH,"", M("Grafiklinie Strichelungsmodus",
	  "Graphic line dash mode"),
	  "",0.0,0,TYPINT,TYPINTSEL,0,POLYBIT,LINEBIT,{
	  M("Durchgezogene Linie","Straight line"),
	  M("gleichmaessig gestrichelte Linie","balanced dashed line"),
	  M("punktierte Linie","dotted line"),
	  M("lang kurz gestrichelte Linie","long short dashed line"),
	  M("lang lang gestrichelte Linie","long long dashed line"),
	  M("kurz kurz gestrichelte Linie","short short dashed line"),
	  M("doppelkurz kurz gestrichelte Linie",
	    "double short short dashed line")} },
	{ /* poly_dashlen */ RS_POLYDASHLEN,"",
	  M("Grafiklinie Strichelungsbasislaenge",
	    "Graphic line dash base length"),
	  "",0.002,0,TYPDBL,TYPDBLDIM,0,POLYBIT,LINEBIT,{""} },
	{ /* poly_dashspc */ RS_POLYDASHSPC,"",
	  M("Grafiklinie Strichelungsfaktor [0.0,0.499]",
	    "Graphic line dash faktor [0.0,0.499]"),
	  "",0.002,0,TYPDBL,0,0,POLYBIT,LINEBIT,{""} },
	{ /* rot_vis */ RS_ROTVIS,"scm_rot_vis_*",
	  M("Steuerung symbolrotationsabhaengiger Textsichtbarkeit (100 immer sichtbar)",
	    "Control of symbol rotation dependant text visibility (100 always visible)"),
	  "",0.0,100,TYPINT,0,SYMBIT,TEXTBIT,0,{""} },
	{ /* spicepinidx */ RS_SPICEPINIDX,"",
	  M("Pinindex im Spicemodell des Symbols (-1 keine Vorgabe)",
	    "Pin index in symbol's Spice model (-1 not set)"),
	  "",0.0,-1,TYPINT,0,SYMBIT,NREFBIT,0,{""} },
	{ /* spicemodel */ RS_SPICEMODEL,"",
	  M("Spicemodell fuer dieses Symbolmakro",
	    "Spice model of this symbol macro"),
	  "",0.0,0,TYPSTR,0,SYMBIT,PLANBIT,0,{""} },
	{ /* sym_docu */ RS_SYMDOCU,"",
	  M("Referenz auf externe Symboldokumentation",
	    "Reference to external symbol documention"),
	  "",0.0,0,TYPSTR,TYPSTRLINK,SYMBIT,PLANBIT,0,{""} },
	{ /* sym_start */ RS_SYMSTART,"",
	  M("Symbolnummerierungsstartnummer (-1 naechsthoehere Nummer)",
	    "Symbol numbering start number (-1 next number)"),
	  "",0.0,-1,TYPINT,0,SCMBIT,PLANBIT,0,{""} },
	{ /* tag_netarea */ RS_TNETAREA,"",
	  M("Netz-/Bauteilbereichsname (Leerstring = normal gefuellte Grafikflaeche)",
	    "Net/part area name (empty string = filled graphic area)"),
	  "",0.0,0,TYPSTR,0,SCMBIT,POLYBIT,AREABIT,{""} },
	{ /* text_class */ RS_TXTCLASS,"", M("Textklassenzugehoerigkeiten",
	  "Text class assignments"),
	  "",0.0,0,TYPINT,TYPINTBITS,0,TEXTBIT,0,{"Class 1","Class 2",
	  "Class 3","Class 4","Class 5","Class 6","Class 7","Class 8",
	  "Class 9","Class 10","Class 11","Class 12","Class 13","Class 14",
	  "Class 15","Class 16","Class 17","Class 18","Class 19","Class 20",
	  "Class 21","Class 22","Class 23","Class 24","Class 25","Class 26",
	  "Class 27","Class 28","Class 29","Class 30","Class 31"} },
	{ /* text_class_dis */ RS_TXTCDIS,"", M("Textklassenmaske",
	  "Text class mask"),
	  "",0.0,0,TYPINT,TYPINTBITS,SCMBIT,NREFBIT,0,{"Class 1","Class 2",
	  "Class 3","Class 4","Class 5","Class 6","Class 7","Class 8",
	  "Class 9","Class 10","Class 11","Class 12","Class 13","Class 14",
	  "Class 15","Class 16","Class 17","Class 18","Class 19","Class 20",
	  "Class 21","Class 22","Class 23","Class 24","Class 25","Class 26",
	  "Class 27","Class 28","Class 29","Class 30","Class 31"} },
	{ /* variant */ RS_VARIANT,"scm_variant_*",
	  M("Nummer der aktiven Variante. Hier NICHT aendern!",
	    "Number of active variant. DON'T change here!"),
	  "",0.0,0,TYPINT,0,SCMBIT,PROJBIT,0,{""} },
	{ /* variant_name */ RS_VARNAME,"",
	  M("Name der aktiven Variante. Hier NICHT aendern!",
	    "Name of active variant. DON'T change here!"),
	  "",0.0,0,TYPSTR,0,SCMBIT,PROJBIT,0,{""} },
	{ /* varplotdis_0 */ RS_VARPLOTDIS+"0","",
	  M("Plotsichtbarkeit in Basisvariante",
	    "Plot visibility in base variant"),"",
	  0.0,0,TYPINT,TYPINTSEL,0,ANYELEMBIT,0,{
	  M("in Basisvariante geplottet","plotted in base variant"),
	  M("in Basisvariante nicht geplottet",
	    "not plotted in base variant")} },
	{ /* varplotdis_1 */ RS_VARPLOTDIS+"1","",
	  M("Plotsichtbarkeit in Variante 1","Plot visibility in variant 1"),
	  "",0.0,0,TYPINT,TYPINTSEL,0,ANYELEMBIT,0,{
	  M("in Variante 1 geplottet","plotted in variant 1"),
	  M("in Variante 1 nicht geplottet","not plotted in variant 1")} },
	{ /* varplotdis_2 */ RS_VARPLOTDIS+"2","",
	  M("Plotsichtbarkeit in Variante 2","Plot visibility in variant 2"),
	  "",0.0,0,TYPINT,TYPINTSEL,0,ANYELEMBIT,0,{
	  M("in Variante 2 geplottet","plotted in variant 2"),
	  M("in Variante 2 nicht geplottet","not plotted in variant 2")} },
	{ /* varplotdis_3 */ RS_VARPLOTDIS+"3","",
	  M("Plotsichtbarkeit in Variante 3","Plot visibility in variant 3"),
	  "",0.0,0,TYPINT,TYPINTSEL,0,ANYELEMBIT,0,{
	  M("in Variante 3 geplottet","plotted in variant 3"),
	  M("in Variante 3 nicht geplottet","not plotted in variant 3")} },
	{ /* varplotdis_4 */ RS_VARPLOTDIS+"4","",
	  M("Plotsichtbarkeit in Variante 4","Plot visibility in variant 4"),
	  "",0.0,0,TYPINT,TYPINTSEL,0,ANYELEMBIT,0,{
	  M("in Variante 4 geplottet","plotted in variant 4"),
	  M("in Variante 4 nicht geplottet","not plotted in variant 4")} },
	{ /* varplotdis_5 */ RS_VARPLOTDIS+"5","",
	  M("Plotsichtbarkeit in Variante 5","Plot visibility in variant 5"),
	  "",0.0,0,TYPINT,TYPINTSEL,0,ANYELEMBIT,0,{
	  M("in Variante 5 geplottet","plotted in variant 5"),
	  M("in Variante 5 nicht geplottet","not plotted in variant 5")} }
	};
int predidx				/* Predicate list index */;
int predn		= arylength(predl)	/* Predicate count */;
int seltyp				/* Selection element type */;
int subtyp				/* Selection element sub type */;
int valtyp				/* Predicate value type */;
string ruleprompt			/* Rule element prompt string */;
index C_FIGURE rulefig			/* Cur. rule edit figure list index */;
index C_CONSEG ruleconseg		/* Cur. rule edit con. segment index */;
double PI		= cvtangle(180.0,1,2)
					/* PI-value */;
double PI2		= cvtangle(90.0,1,2)
					/* Pi half value */;
int ddbclass		= bae_planddbclass()
					/* Layout plan DDB class */;
int classmask		= 1<<(ddbclass-DDBCLSCM)	/* DDB class mask */;
int labidx		= (-1)		/* Label item idx. */;
int edidx		= (-1)		/* Edit box item idx. */;
string rscdatabase	= rsc_database()/* Rule system database file name */;
string g_dis		= ","		/* Group items disable */;
string p_dis	= ddbclass==DDBCLSCM ? "" : ","
					/* Plan items disable */;
int varl[]				/* Variant list */;
int varn	= 0			/* Variant count */;
int act_var	= 0			/* Active variant */;
int act_flag				/* Active variant defined flag */;

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

// Main program
void main()
{
	index C_FIGURE fig		/* Figure list index */;
	string s_dis	= ddbclass==DDBCLSSYM ? "" : ","
					/* Symbol items disable */;
	int changes	= 0		/* Changes count */;
	// Check the plan class
	if (ddbclass==DDBCLUNDEF)
		error_class();
	// Check if element type scan
	if (bae_iniintval(PAR_METYPSCAN,1)==1 && !bae_peekiact()) {
		forall (fig where fig.GROUP) {
			g_dis="";
			break;
			}
		}
	else {
		// Enable all menu items
		g_dis="";
		}
	// Select the element type
	bae_defmenusel(-1);
	bae_promptdialog(UPRFCT);
	switch (bae_askmenu(12,UPRFCT0,g_dis+UPRFCT1,UPRFCT2,s_dis+UPRFCT3,
	 s_dis+UPRFCT4,s_dis+UPRFCT5,s_dis+UPRFCT6,p_dis+UPRFCT7,p_dis+UPRFCT8,
	 UPRFCT9,UPRFCT10,UPRFCT11,UPRABORT)) {
		// Set/reset single element rules
		case 0 :
		elementrules();
		break;
		// Group set
		case 1 :
		grpsetrules();
		break;
		// Group selection
		case 2 :
		grpselrules();
		break;
		// Symbol rotation expansion
		case 3 :
		symrotexpand();
		break;
		// Symbol rotation combination
		case 4 :
		symrotcombine();
		break;
		// Spice symbol pin order
		case 5 :
		sympinorder();
		break;
		// Spice symbol model
		case 6 :
		symmodel();
		break;
		// Connectivity mode
		case 7 :
		setconmode();
		break;
		// Net area name assignment
		case 8 :
		netareaname();
		break;
		// Glue functions
		case 9 :
		bae_defmenusel(-1);
		bae_promptdialog(UPRSELGL);
		switch (bae_askmenu(7,UPRSELGL0,UPRSELGL1,g_dis+UPRSELGL2,
		 g_dis+UPRSELGL3,UPRSELGL4,g_dis+UPRSELGL5,UPRABORT)) {
			// Glue selectable parts
			case 0 :
			if (ddbclass!=DDBCLSCM &&
			 ddbclass!=DDBCLSLAB && ddbclass!=DDBCLSSYM)
				error_class();
			// Save current state for undo
			bae_callmenu(MNU_BAESAVESTATE);
			setglue(1,0);
			break;
			// Unglue selectable parts
			case 1 :
			if (ddbclass!=DDBCLSCM &&
			 ddbclass!=DDBCLSLAB && ddbclass!=DDBCLSSYM)
				error_class();
			// Save current state for undo
			bae_callmenu(MNU_BAESAVESTATE);
			setglue(0,0);
			break;
			// Glue group elements
			case 2 :
			// Save current state for undo
			bae_callmenu(MNU_BAESAVESTATE);
			setglue(1,1);
			break;
			// Unglue group elements
			case 3 :
			// Save current state for undo
			bae_callmenu(MNU_BAESAVESTATE);
			setglue(0,1);
			break;
			// Select glued elements
			case 4 :
			forall (fig where !fig.GROUP && (fig.FIXED&2)) {
				scm_elemgrpchg(fig,1);
				changes++;
				}
			prtgrpcount(changes,1);
			break;
			// Deselect glued elements
			case 5 :
			forall (fig where fig.GROUP && (fig.FIXED&2)) {
				scm_elemgrpchg(fig,0);
				changes++;
				}
			prtgrpcount(changes,0);
			break;
			// Abort
			case 6 :
			default :
			error_abort();
			}
		exit(0);
		// Edit element context functions
		case 10 :
		elementfunctions();
		break;
		// Rule update
		case 11 :
		updrules();
		break;
		// Abort
		default :
		error_abort();
		}
}

static void elementrules()
// Add/remove element rules
{
	index C_CONSEG conseg		/* Connection segment index */;
	index C_NREF nref		/* Named reference index */;
	index C_POLY poly		/* Polygon index */;
	index C_TEXT text		/* Text index */;
	string selmsg			/* Selection message string */;
	string name1, name2		/* Selection element names */;
	int objclass			/* Selection object class code */;
	string con_dis	= ","		/* Connection items disable */;
	string poly_dis	= ","		/* Polygon items disable */;
	string nref_dis	= ","		/* Named reference items disable */;
	string text_dis	= ","		/* Text items disable */;
	int cflag = 0			/* Change flag */;
	string msg			/* Message string */;
	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 */;
	// Check if element type scan
	if (bae_iniintval(PAR_METYPSCAN,1)==1 && !bae_peekiact()) {
		forall (conseg) {
			con_dis="";
			break;
			}
		forall (poly) {
			poly_dis="";
			break;
			}
		forall (nref) {
			nref_dis="";
			break;
			}
		forall (text) {
			text_dis="";
			break;
			}
		}
	else {
		// Enable all menu items
		con_dis=poly_dis=nref_dis=text_dis="";
		}
	// Select the element type
	bae_promptdialog(UPRSELETYP);
	switch (bae_askmenu(7,nref_dis+UPRSELE0,con_dis+UPRSELE1,
	 poly_dis+UPRSELE2,text_dis+UPRSELE3,UPRSELE4,p_dis+UPRSELE5,
	 UPRABORT)) {
		// Named references
		case 0 :
		if (ddbclass!=DDBCLSCM && ddbclass!=DDBCLSSYM)
			error_class();
		seltyp=C_FIGNREF;
		selmsg=UPRSELNREF;
		objclass=RS_OCFIG;
		break;
		// Connections
		case 1 :
		if (ddbclass!=DDBCLSCM)
			error_class();
		seltyp=C_FIGCON;
		selmsg=UPRSELCON;
		objclass=RS_OCCON;
		break;
		// Areas
		case 2 :
		seltyp=C_FIGPOLY;
		selmsg=UPRSELPOLY;
		objclass=RS_OCFIG;
		break;
		// Texts
		case 3 :
		seltyp=C_FIGTEXT;
		selmsg=UPRSELTEXT;
		objclass=RS_OCFIG;
		break;
		// Plan
		case 4 :
		seltyp=PLANTYP;
		objclass=RS_OCPLAN;
		break;
		// All plans
		case 5 :
		if (ddbclass!=DDBCLSCM)
			error_class();
		seltyp=PROJTYP;
		objclass=RS_OCSCMDB;
		break;
		// Abort
		case 6 :
		default :
		error_abort();
		}
	// Check if plan rule
	if (seltyp>=PLANTYP) {
		// Get the rule count
		rulen=rsc_getplanrules(rulel,objclass==RS_OCSCMDB ? 1 : 0);
		// Edit the rules
		subtyp=0;
		editrules("","");
		// Save current state for undo
		bae_callmenu(MNU_BAESAVESTATE);
		// Attach/detach the rule list
		if (rulen) {
			if (cap_ruleplanatt(rulel,seltyp==PLANTYP ? 0 : 1))
				rsc_error(-1);
			}
		else if (cap_getrulecnt(objclass,0)>0) {
			if (cap_ruleplandet(seltyp==PLANTYP ? 0 : 1))
				rsc_error(-1);
			}
		// Redraw the screen
		bae_callmenu(MNU_BAEREDISPL);
		}
	else if (seltyp==C_FIGCON) {
		// Loop while element picked
		bae_prtdialog(selmsg);
		while (scm_pickconseg(ruleconseg)==0) {
			// Get the rule count
			rulen=rsc_getconrules(ruleconseg,rulel);
			// Edit the rules
			subtyp=ruleconseg.BUSFLAG;
			editrules("","");
			// Save current state for undo
			if (cflag==0) {
				bae_callmenu(MNU_BAESAVESTATE);
				cflag=1;
				}
			// Attach/detach the rule list
			if (rulen) {
				if (cap_ruleconatt(ruleconseg,rulel))
					rsc_error(-1);
				}
			else if (cap_getrulecnt(RS_OCCON,ruleconseg)>0) {
				if (cap_rulecondet(ruleconseg))
					rsc_error(-1);
				}
			// Redraw the screen
			bae_callmenu(MNU_BAEREDISPL);
			// Prompt for next element
			bae_prtdialog(selmsg);
			}
		}
	else {
		// Loop while element picked
		bae_prtdialog(selmsg);
		while (scm_pickelem(rulefig,seltyp)==0) {
			// Get the rule count
			name1=name2="";
			rulen=rsc_getfigrules(rulefig,rulel);
			switch (seltyp) {
				case C_FIGTEXT :
				subtyp=
				 ((rulefig.TEXT.MODE&1)!=0 ? CTXTBIT : STXTBIT)|
				 (rulefig.TEXT.STR[0]=='$' ? ATXTBIT : 0);
				name1=rulefig.NAME;
				// Query the multiline text status
				if (rulefig.RULEOBJID<0 || cap_rulequery(
				 RS_OCFIG,rulefig,RS_SCMSUBJ,RS_MTEXTID,
				 "?s",mtextid)<=0)
					mtextid="";
				break;
				case C_FIGPOLY :
				switch (rulefig.POLY.TYP) {
					case C_POLYDOCLINE :
					subtyp=LINEBIT;
					break;
					case C_POLYDOCAREA :
					subtyp=AREABIT;
					break;
					case C_POLYCONAREA :
					subtyp=CAREABIT;
					break;
					case C_POLYDOTLINE :
					subtyp=DLINEBIT;
					break;
					default :
					subtyp=0;
					}
				break;
				case C_FIGNREF :
				switch (rulefig.NREF.MACRO.CLASS) {
					case DDBCLSCM :
					subtyp=SCMBIT;
					break;
					case DDBCLSSYM :
					subtyp=SYMBIT;
					break;
					case DDBCLSLAB :
					subtyp=LABBIT;
					break;
					case DDBCLSMRK :
					subtyp=MRKBIT;
					break;
					default :
					subtyp=0;
					}
				name1=rulefig.NAME,
				name2=rulefig.NREF.MACRO.NAME;
				break;
				default :
				subtyp=0;
				}
			// Edit the rules
			editrules(name1,name2);
			// Save current state for undo
			if (cflag==0) {
				bae_callmenu(MNU_BAESAVESTATE);
				cflag=1;
				}
			// Attach/detach the rule list
			if (rulen) {
				if (cap_rulefigatt(rulefig,rulel))
					rsc_error(-1);
				}
			else if (cap_getrulecnt(RS_OCFIG,rulefig)>0) {
				if (cap_rulefigdet(rulefig))
					rsc_error(-1);
				}
			// Check if multiline text rule transfer
			if (mtextid!="") {
				// 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 (rulefig where rulefig.TYP==C_FIGTEXT &&
				 rulefig.RULEOBJID>=0 &&
				 cap_rulequery(RS_OCFIG,rulefig,RS_SCMSUBJ,
				  RS_MTEXTID,"?s",textid)>0 &&
				 textid==mtextid) {
					// Get multiline text data
					if (cap_rulequery(RS_OCFIG,rulefig,
					 RS_SCMSUBJ,RS_MTEXTCOL,"?d",col)<1 ||
					 cap_rulequery(RS_OCFIG,rulefig,
					  RS_SCMSUBJ,RS_MTEXTROW,"?d",row)<1 ||
					 cap_rulequery(RS_OCFIG,rulefig,
					  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(rulefig,mrulel))
						rsc_error(-1);
					}
				}
			// Redraw the screen
			bae_callmenu(MNU_BAEREDISPL);
			// Prompt for next element
			bae_prtdialog(selmsg);
			}
		}
}

static void grpsetrules()
// Set group element rules
{
	index C_FIGURE fig		/* Figure list index */;
	index C_CONSEG conseg		/* Connection segment index */;
	string msg			/* Message string */;
	string ecomm			/* Element comment */;
	string rulename	= ""		/* Rule name */;
	string rn	= ""		/* Rule scan name */;
	string symname			/* Current symbol name */;
	string lastname = ""		/* Last name */;
	string macname			/* Symbol macro name */;
	STRINGS headl			/* Menu header string list */;
	int headn			/* Menu header string count */;
	int plotdis			/* Plot disable flag */;
	string rotvis			/* Rotation visibility */;
	string ecolor			/* Element color string */;
	string scolor = ""		/* Selection color string */;
	int oldcol			/* Old color index */;
	int newcol			/* New color index */;
	int oldpinmove			/* Old pin move mode */;
	int newpinmove1			/* New pin move 1st bit */;
	int newpinmove2			/* New pin move 2nd bit */;
	int newpinmove3			/* New pin move 3rd bit */;
	int newpinmove			/* New pin move mode */;
	double pcol = 12.0		/* Parameter column */;
	double cy = DIAL_TOPMARG	/* Current y value */;
	double dialwidth		/* Dialog box width */;
	double dialheight		/* Dialog box height */;
	double baseheight		/* Dialog box base height */;
	int repflag = 1			/* Repeat flag */;
	int mo1idx			/* Pin move 1st parameter index */;
	int mo2idx			/* Pin move 2nd parameter index */;
	int mo3idx			/* Pin move 3rd parameter index */;
	int edtidx			/* Color edit field item index */;
	int cflag = 0			/* Change flag */;
	int cnt = 0			/* Change count */;
	char c				/* Rule name character */;
	int i,j				/* Loop control variables */;
	string colstrings[]     = {     // Color index to red col. transform.
		"0 0 0",
		"0 0 0.6",
		"0 0.6 0",
		"0 0.6 0.6",
		"0.6 0 0",
		"0.6 0 0.6",
		"0.6 0.6 0",
		"0.8 0.8 0.8",
		"0.4 0.4 0.4",
		"0 0 1",
		"0 1 0",
		"0 1 1 ",
		"1 0 0",
		"1 0 1",
		"1 1 0",
		"1 1 1"
		};
	// Select the element type
	bae_promptdialog(UPRSELRULE);
	switch (bae_askmenu(8,UPRSELR0,UPRSELR1,UPRSELR2,UPRSELR3,UPRSELR4,
	 (ddbclass==DDBCLSSYM ? "" : ",")+UPRSELR5,UPRSELR6,UPRABORT)) {
		// Named rule
		case 0 :
		bae_nameclr();
		while (scanddbenames(rscdatabase,DDBCLRULE,rn)==1)
			if (!strmatch(rn,"lay_*") && !strmatch(rn,"cam*") &&
			 !strmatch(rn,"var_doc*") &&
			 !strmatch(rn,"scm_variant*"))
				// Add the rule name
				bae_nameadd(ddbcelemname(rscdatabase,rn,
				 DDBCLRULE,1),"","","",2);
		// Get the rule name
		bae_setintpar(16,3138);
		if (bae_askname(rulename,UPRRULE,MAXKEYLEN))
			// Aborted
			error_abort();
		for (i=0;(c=rulename[i])!='\0';i++)
			if (c==' ')
				break;
		if (c==' ')
			rulename=strextract(rulename,0,i-1);
		// Loop for all group elements
		forall (fig where fig.GROUP && fig.TYP!=C_FIGCON) {
			// 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];
					cnt--;
					rulen--;
					rulel[rulen]="";
					}
			// Add the new rule
			rulel[rulen++]=rulename;
			cnt++;
			// Save current state for undo
			if (cflag==0) {
				bae_callmenu(MNU_BAESAVESTATE);
				cflag=1;
				}
			// Attach the rule list
			if (cap_rulefigatt(fig,rulel))
				rsc_error(-1);
			}
		// Loop for all group elements
		forall (conseg where conseg.GROUP) {
			// Get the rule count
			rulen=rsc_getconrules(conseg,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];
					cnt--;
					rulen--;
					rulel[rulen]="";
					}
			// Add the new rule
			rulel[rulen++]=rulename;
			cnt++;
			// Save current state for undo
			if (cflag==0) {
				bae_callmenu(MNU_BAESAVESTATE);
				cflag=1;
				}
			// Attach the rule list
			if (cap_ruleconatt(conseg,rulel))
				rsc_error(-1);
			}
		sprintf(msg,REPRULESET,rulename,cnt);
		bae_prtdialog(msg);
		break;
		// Text rotation visibility
		case 1 :
		// Get the rotation visibility
		rotvis=getrotvis();
		// Loop for all texts
		forall (fig where fig.GROUP && fig.TYP==C_FIGTEXT) {
			// Get the rule count
			rulen=rsc_getfigrules(fig,rulel);
			// Clear any previous rotation visibility rules
			for (i=rulen-1;i>=0;i--)
				if (strlen(rulel[i])>strlen(ROTVISPREF) &&
				 strextract(rulel[i],0,strlen(ROTVISPREF)-1)
				  ==ROTVISPREF) {
					// Delete the old rule
					for (j=i;j<rulen-1;j++)
						rulel[j]=rulel[j+1];
					rulen--;
					rulel[rulen]="";
					}
			// Add the new rule visibility
			if (rotvis!="")
				rulel[rulen++]=ROTVISPREF+rotvis;
			// Save current state for undo
			if (cflag==0) {
				bae_callmenu(MNU_BAESAVESTATE);
				cflag=1;
				}
			// 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);
				}
			}
		break;
		// Variant dependant plot visibility
		case 2 :
		// Select the plot visibility mode
		bae_promptdialog(UPRSELPVIS);
		if ((plotdis=bae_askmenu(3,UPRPVISON,UPRPVISOFF,UPRABORT))<0
		 || plotdis>1)
			error_abort();
		// Query the current active variant
		if (ddbclass!=DDBCLSCM || cap_rulequery(
		 RS_OCSCMDB,0,RS_SCMSUBJ,RS_VARIANT,"?d",act_var)<1)
			// Set default variant
			act_var=0;
		sprintf(rulename,":%s:%s%d=1;",
		 RS_SCMSUBJ,RS_VARPLOTDIS,act_var);
		if (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++;
				}
			}
		// Loop for all group elements
		forall (fig where fig.GROUP && fig.TYP!=C_FIGCON) {
			symname=fig.NAME;
			// 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;
			// Save current state for undo
			if (cflag==0) {
				bae_callmenu(MNU_BAESAVESTATE);
				cflag=1;
				}
			// 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);
				}
			// Check if symbol attribute set
			if ((NOPLCPVIS&1)==1 && fig.TYP==C_FIGNREF &&
			 fig.NREF.MACRO.CLASS==DDBCLSSYM)
				// Try to set $noplc attribute
				if (lastname!=symname) {
					if (scm_setpartattrib(symname,
					 "$noplc",plotdis ? NOPLCVAL : "",
					 3)==(-4)) {
						// Search macro name
						macname=fig.NREF.MACRO.NAME;
						for (i=0;i<npsymn;i++)
							if (macname==npsyml[i])
								break;
						// Store macro name
						if (i>=npsymn) {
							npsyml[npsymn]=
							 macname;
							npsymn++;
							}
						}
					lastname=fig.NAME;
					}
			if (act_var==0 && (NOPLCPVIS&2)==2)
			    for (i=1;i<varn;i++)
				if (getvarvalue(
				 symname,"$noplc",varl[i])==PA_NILVAL)
					setpvis(symname,plotdis,varl[i]);
			}
		// Loop for all group connection elements
		forall (conseg where conseg.GROUP) {
			// Get the rule count
			rulen=rsc_getconrules(conseg,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;
			// Save current state for undo
			if (cflag==0) {
				bae_callmenu(MNU_BAESAVESTATE);
				cflag=1;
				}
			// Attach/detach the rule list
			if (rulen) {
				if (cap_ruleconatt(conseg,rulel))
					rsc_error(-1);
				}
			else if (cap_getrulecnt(RS_OCCON,conseg)>0) {
				if (cap_rulecondet(conseg))
					rsc_error(-1);
				}
			}
		// Check if symbols without $noplc encountered
		if (npsymn) {
			// Print the report header
			headl[0]=REPNPWARN;
			headn=2;
			// Activate the popup menu
			bae_setintpar(16,3076);
			popupmenu(0,"",headl,headn,npsyml,npsymn,
			 "",0,1,-1,headn+npsymn+2,0,0,"");
			}
		break;
		// Set PDF color
		case 3 :
		bae_nameclr();
		// Loop for all elements
		forall (fig where fig.TYP!=C_FIGCON && fig.RULEOBJID>=0)
		    // Query plot color predicate
		    if (cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,RS_PLOTRGB,
		     "?s",ecolor)>0 && ecolor!="")
			bae_nameadd(ecolor,"","","",2);
		forall (conseg where conseg.RULEOBJID>=0)
		    // Query plot color predicate
		    if (cap_rulequery(RS_OCCON,conseg,RS_SCMSUBJ,RS_PLOTRGB,
		     "?s",ecolor)>0 && ecolor!="")
			bae_nameadd(ecolor,"","","",2);
		if (bae_dialclr()) {
		    // Select color
		    bae_setintpar(16,3110);
		    if (bae_askname(scolor,UPRPDFCOLOR,MAXKEYLEN))
			// Aborted
			error_abort();
		    }
		else {
		    baseheight=DIAL_TOPMARG+DIAL_BUTVSTEP+
		     DIAL_CTRVSTEP+DIAL_SEPVSTEP;
		    do {
			bae_dialclr();
			dial_getboxsizemin(3110,dialwidth,dialheight,
			 DIAL_LEFTMARG+40.0+DIAL_RIGHTSMARG,
			 baseheight+16.0,DIAL_LEFTMARG+25.0+
			  DIAL_RIGHTSMARG,baseheight+1.0);
			cy=DIAL_TOPMARG;
			// Store the OK and abort button
			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,"");
			bae_dialaddcontrol(PA_ACT,0,1,0,0.0,0.0,0.0,"",
			 0,DIAL_LEFTMARG+12.0,cy,0.0,UPRBRWCOLOR);
			cy+=DIAL_BUTVSTEP;
			edtidx=bae_dialaddcontrol(PA_STR|PA_HBRDREL,
			 0,0,0,0.0,0.0,0.0,scolor,MAXKEYLEN,DIAL_LEFTMARG,
			 cy,DIAL_RIGHTEMARG,"");
			cy+=DIAL_CTRVSTEP;
			// Store list box
			bae_dialadvcontrol(PA_LB|PA_OKSEL|PA_HBRDREL|PA_VBRDREL,
			 edtidx,0,(-1),0.0,0.0,0.0,"",0,DIAL_LEFTMARG,
			 cy,DIAL_RIGHTSMARG,DIAL_SEPVSTEP,"");
			cy+=dialheight-baseheight+DIAL_SEPVSTEP;
			// Store list box entries
			cnt=0;
			while (bae_nameget(cnt,scolor,"","","",0)==0) {
				bae_dialaddcontrol(PA_LBE,0,0,cnt,0.0,
				 0.0,0.0,"",0,0.0,0.0,0.0,scolor);
				cnt++;
				}
			bae_setintpar(16,3110);
			switch (bae_dialaskparams("!"+UPRPDFCOLOR,
			 0,dialwidth,cy)) {
				// Done
				case 0 :
				bae_dialgetdata(edtidx,0,0.0,scolor);
				repflag=0;
				break;
				// Palette selection
				case 1 :
				// Process any redraw event
				bae_wsmouse(0.0,0.0,0);
				// Temp. use tag links for color query
				oldcol=bae_getcolor(13);
				bae_setcolor(13,0);
				bae_clriactqueue();
				bae_storemenuiact(1,11,LMB);
				bae_storemouseiact(0,0.0,0.0,0,LMB);
				bae_storemenuiact(1,13,LMB);
				bae_callmenu(107);
				if ((newcol=bae_getcolor(13))>=0 && newcol<=15)
					scolor=colstrings[newcol];
				else
					error(ERRINVCOLOR);
				// Restore tag link color
				bae_setcolor(13,oldcol);
				break;
				// Resize
				case (-2) :
				bae_dialgetdata(edtidx,0,0.0,scolor);
				break;
				default :
				error_abort();
				}
			// Stop if no further repeat requests
			} while (repflag);
		    }
		cnt=0;
		forall (fig where fig.GROUP && fig.TYP!=C_FIGCON) {
			// Save current state for undo
			if (cnt==0)
				bae_callmenu(MNU_BAESAVESTATE);
			// Assign the element color predicate rule
			rsc_assfigstrpred(fig,RS_PLOTRGB,scolor,"","");
			cnt++;
			}
		// Loop for all group elements
		forall (conseg where conseg.GROUP) {
			// Save current state for undo
			if (cnt==0)
				bae_callmenu(MNU_BAESAVESTATE);
			// Assign the element color predicate rule
			rsc_assconstrpred(conseg,RS_PLOTRGB,scolor,"","");
			cnt++;
			}
		sprintf(msg,REPCOLORSET,scolor,cnt);
		bae_prtdialog(msg);
		break;
		// Set PDF layer
		case 4 :
		bae_nameclr();
		// Loop for all elements
		forall (fig where fig.TYP!=C_FIGCON && fig.RULEOBJID>=0)
			// Query PDF layer predicate
			if (cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,
			 RS_PDFLAY,"?s",ecolor)>0 && ecolor!="")
				bae_nameadd(ecolor,"","","",2);
		forall (conseg where conseg.RULEOBJID>=0)
			// Query PDF layer predicate
			if (cap_rulequery(RS_OCCON,conseg,RS_SCMSUBJ,RS_PDFLAY,
			 "?s",ecolor)>0 && ecolor!="")
				bae_nameadd(ecolor,"","","",2);
		// Select layer
		bae_setintpar(16,3139);
		if (bae_askname(scolor,UPRPDFLAY,MAXKEYLEN))
			// Aborted
			error_abort();
		cnt=0;
		forall (fig where fig.GROUP && fig.TYP!=C_FIGCON) {
			// Save current state for undo
			if (cnt==0)
				bae_callmenu(MNU_BAESAVESTATE);
			// Assign the element PDF layer predicate rule
			rsc_assfigstrpred(fig,RS_PDFLAY,scolor,"","");
			cnt++;
			}
		// Loop for all group elements
		forall (conseg where conseg.GROUP) {
			// Save current state for undo
			if (cnt==0)
				bae_callmenu(MNU_BAESAVESTATE);
			// Assign the element color predicate rule
			rsc_assconstrpred(conseg,RS_PDFLAY,scolor,"","");
			cnt++;
			}
		sprintf(msg,REPPDFLAYSET,scolor,cnt);
		bae_prtdialog(msg);
		break;
		// Set pin marker mode
		case 5 :
		// Check the plan class
		if (ddbclass!=DDBCLSSYM)
			error_class();
		// Check if dialog box support
		if (bae_dialclr())
			error(ERRNOWIN);
		if (varget(GV_PINMODE,oldpinmove))
			oldpinmove=0;
		mo1idx=bae_dialaddcontrol(PA_TOGGLE,0,0,
		 (oldpinmove&0x01)!=0 ? 1 : 0,0.0,0.0,0.0,"",0,
		 DIAL_LEFTMARG+pcol,cy,0.0,UPRPINMOVE);
		cy+=DIAL_CTRVSTEP;
		dial_label(0.0,cy,UPRPINMODE);
		mo2idx=bae_dialaddcontrol(PA_TOGGLE,0,0,
		 (oldpinmove&0x02)!=0 ? 1 : 0,0.0,0.0,0.0,"",0,
		 DIAL_LEFTMARG+pcol,cy,0.0,UPRPINNMIRR);
		mo3idx=bae_dialaddcontrol(PA_TOGGLE,0,0,
		 (oldpinmove&0x04)!=0 ? 1 : 0,0.0,0.0,0.0,"",0,
		 DIAL_LEFTMARG+25.0,cy,0.0,UPRPINNROT);
		cy+=DIAL_CTRVSTEP;
		// Store the OK and abort button with seperator
		dial_hsep(cy);
		// Store OK button
		dial_okabort(cy);
		// Call the dialog function
		bae_setintpar(16,3114);
		if (bae_dialaskparams(UPRDPINMODE,0,
		 DIAL_LEFTMARG+pcol+25.0+DIAL_RIGHTSMARG,cy))
			error_abort();
		bae_dialgetdata(mo1idx,newpinmove1,0.0,"");
		bae_dialgetdata(mo2idx,newpinmove2,0.0,"");
		bae_dialgetdata(mo3idx,newpinmove3,0.0,"");
		newpinmove= (newpinmove1 ? 1 : 0)|(newpinmove2 ? 2 : 0)|
		 (newpinmove3 ? 4 : 0);
		varset(GV_PINMODE,newpinmove);
		// Save current state for undo
		bae_callmenu(MNU_BAESAVESTATE);
		// Loop for all group elements
		forall (fig where fig.GROUP && fig.TYP==C_FIGNREF)
			// Assign the pin movement status
			rsc_assfigintpred(
			 fig,RS_PINMOVE,newpinmove,0,"scm_pin_move");
		break;
		// Delete all rules
		case 6 :
		// Save current state for undo
		bae_callmenu(MNU_BAESAVESTATE);
		// Loop for all group elements
		forall (fig where fig.GROUP)
			// Get the rule count
			if ((rulen=rsc_getfigrules(fig,rulel))>0)
				if (cap_rulefigdet(fig))
					rsc_error(-1);
		forall (conseg where conseg.GROUP)
			// Get the rule count
			if ((rulen=rsc_getconrules(conseg,rulel))>0)
				if (cap_rulecondet(conseg))
					rsc_error(-1);
		break;
		default :
		error_abort();
		}
}

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,int plotdis,int varnum)
/*
// Set symbol plot visibility
// Parameters :
//	string symname		: Symbol name
//	string attrval		: $noplc attribute value
//	int plotdis		: Plot disable flag
//	int varnum		: Variant number
*/
{
	index C_FIGURE fig		/* Figure list element */;
	string rulel[]			/* Rule list */;
	int rulen			/* Rule count */;
	string rulename			/* Rule name */;
	int i, j			/* Loop control variables */;
	if (cap_nrefsearch(symname,fig))
		return;
	// 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);
}

static void grpselrules()
// Select group element by rule attachment
{
	index C_FIGURE fig		/* Figure list index */;
	index C_CONSEG conseg		/* Connection segment index */;
	string rulename			/* Rule name string */;
	string ecolor			/* Element color string */;
	string scolor = ""		/* Selection color string */;
	int varnumber = 0		/* Variant number */;
	int plotdis			/* Plot disabled flag */;
	int cnt = 0			/* Selection count */;
	int i				/* Loop control variable */;
	// Select the element type
	bae_promptdialog(UPRSELRULE);
	switch (bae_askmenu(6,
	 UPRSELR0,UPRSELR1,UPRSELR2,UPRSELR3,UPRSELR4,UPRABORT)) {
		// Named rule
		case 0 :
		// Get the rule name
		if (bae_askddbename(rulename,rscdatabase,DDBCLRULE,UPRRULEPAT))
			error_abort();
		// Loop for all elements
		forall (fig where fig.TYP!=C_FIGCON && !fig.GROUP) {
			// Get the rule count
			rulen=rsc_getfigrules(fig,rulel);
			// Search for given rule
			for (i=0;i<rulen;i++)
				if (strmatch(rulel[i],rulename)) {
					scm_elemgrpchg(fig,1);
					cnt++;
					break;
					}
			}
		forall (conseg where !conseg.GROUP) {
			// Get the rule count
			rulen=rsc_getconrules(conseg,rulel);
			// Search for given rule
			for (i=0;i<rulen;i++)
				if (strmatch(rulel[i],rulename)) {
					scm_conseggrpchg(conseg,1);
					cnt++;
					break;
					}
			}
		break;
		// Text rotation visibility
		case 1 :
		// Get the rotation visibility
		rulename=ROTVISPREF+getrotvis();
		// Loop for all texts
		forall (fig where fig.TYP==C_FIGTEXT && !fig.GROUP) {
			// Get the rule count
			rulen=rsc_getfigrules(fig,rulel);
			// Check if always visible selection
			if (rulename==ROTVISPREF) {
				// Search for any rule
				for (i=0;i<rulen;i++)
					if (strlen(rulel[i])>
					  strlen(ROTVISPREF) &&
					 strextract(rulel[i],0,
					  strlen(ROTVISPREF)-1)
					  ==ROTVISPREF)
						break;
				// Check if no visibility rule found
				if (i>=rulen) {
					scm_elemgrpchg(fig,1);
					cnt++;
					}
				}
			else {
				// Search for given rule
				for (i=0;i<rulen;i++)
					if (rulel[i]==rulename) {
						scm_elemgrpchg(fig,1);
						cnt++;
						break;
						}
				}
			}
		break;
		// Variant dependant plot visibility
		case 2 :
		// Select the plot visibility mode
		bae_promptdialog(UPRSELPVIS);
		if ((plotdis=bae_askmenu(3,UPRPVISON,UPRPVISOFF,UPRABORT))<0
		 || plotdis>1)
			error_abort();
		// Query the current active variant
		if (ddbclass!=DDBCLSCM || cap_rulequery(
		 RS_OCSCMDB,0,RS_SCMSUBJ,RS_VARIANT,"?d",varnumber)<1)
			// Set default variant
			varnumber=0;
		sprintf(rulename,":%s:%s%d=1;",
		 RS_SCMSUBJ,RS_VARPLOTDIS,varnumber);
		// Loop for all elements
		forall (fig where fig.TYP!=C_FIGCON && !fig.GROUP) {
			// Get the rule count
			rulen=rsc_getfigrules(fig,rulel);
			// Search for given rule
			for (i=0;i<rulen;i++)
				if (rulel[i]==rulename) {
					if (plotdis==1) {
						scm_elemgrpchg(fig,1);
						cnt++;
						}
					break;
					}
			if (plotdis==0 && rulen>=i) {
				scm_elemgrpchg(fig,1);
				cnt++;
				}
			}
		forall (conseg) {
			// Get the rule count
			rulen=rsc_getconrules(conseg,rulel);
			// Search for given rule
			for (i=0;i<rulen;i++)
				if (rulel[i]==rulename) {
					if (plotdis==1) {
						scm_conseggrpchg(conseg,1);
						cnt++;
						}
					break;
					}
			if (plotdis==0 && rulen>=i) {
				scm_conseggrpchg(conseg,1);
				cnt++;
				}
			}
		break;
		// PDF color
		case 3 :
		bae_nameclr();
		// Loop for all elements
		forall (fig where fig.TYP!=C_FIGCON && fig.RULEOBJID>=0)
			// Query plot color predicate
			if (cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,RS_PLOTRGB,
			 "?s",ecolor)>0 && ecolor!="")
				bae_nameadd(ecolor,"","","",2);
		forall (conseg where conseg.RULEOBJID>=0)
			// Query plot color predicate
			if (cap_rulequery(RS_OCCON,conseg,RS_SCMSUBJ,RS_PLOTRGB,
			 "?s",ecolor)>0 && ecolor!="")
				bae_nameadd(ecolor,"","","",2);
		// Select color
		bae_setintpar(16,3110);
		if (bae_askname(scolor,UPRPDFCOLOR,MAXKEYLEN))
			// Aborted
			error_abort();
		// Loop for all elements
		forall (fig where fig.TYP!=C_FIGCON && !fig.GROUP) {
			// Query plot color predicate
			if (fig.RULEOBJID<0 || cap_rulequery(
			RS_OCFIG,fig,RS_SCMSUBJ,RS_PLOTRGB,"?s",ecolor)<1)
				ecolor="";
			if (ecolor==scolor) {
				scm_elemgrpchg(fig,1);
				cnt++;
				}
			}
		forall (conseg where !conseg.GROUP) {
			// Query plot color predicate
			if (conseg.RULEOBJID<0 || cap_rulequery(
			 RS_OCCON,conseg,RS_SCMSUBJ,RS_PLOTRGB,"?s",ecolor)<1)
				ecolor="";
			if (ecolor==scolor) {
				scm_conseggrpchg(conseg,1);
				cnt++;
				}
			}
		break;
		// Select PDF layer
		case 4 :
		bae_nameclr();
		// Loop for all elements
		forall (fig where fig.TYP!=C_FIGCON && fig.RULEOBJID>=0)
			// Query plot color predicate
			if (cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,
			 RS_PDFLAY,"?s",ecolor)>0 && ecolor!="")
				bae_nameadd(ecolor,"","","",2);
		forall (conseg where conseg.RULEOBJID>=0)
			// Query plot color predicate
			if (cap_rulequery(RS_OCCON,conseg,RS_SCMSUBJ,RS_PDFLAY,
			 "?s",ecolor)>0 && ecolor!="")
				bae_nameadd(ecolor,"","","",2);
		// Select layer
		bae_setintpar(16,3139);
		if (bae_askname(scolor,UPRPDFLAY,MAXKEYLEN))
			// Aborted
			error_abort();
		// Loop for all elements
		forall (fig where fig.TYP!=C_FIGCON && !fig.GROUP) {
			// Query plot color predicate
			if (fig.RULEOBJID<0 || cap_rulequery(
			 RS_OCFIG,fig,RS_SCMSUBJ,RS_PDFLAY,"?s",ecolor)<1)
				ecolor="";
			if (ecolor==scolor) {
				scm_elemgrpchg(fig,1);
				cnt++;
				}
			}
		forall (conseg where !conseg.GROUP) {
			// Query plot color predicate
			if (conseg.RULEOBJID<0 || cap_rulequery(
			 RS_OCCON,conseg,RS_SCMSUBJ,RS_PDFLAY,"?s",ecolor)<1)
				ecolor="";
			if (ecolor==scolor) {
				scm_conseggrpchg(conseg,1);
				cnt++;
				}
			}
		// Report changes
		prtgrpcount(cnt,1);
		break;
		default :
		error_abort();
		}
	// Report changes
	prtgrpcount(cnt,1);
}

static void editrules(string name1,string name2)
/*
// Add/delete rule to/from the current rule list
// Parameters :
//	string name1		: Element major name
//	string name2		: Element secondary name
*/
{
	string msg			/* Message string */;
	string ecomm			/* Element comment */;
	string predname			/* Predicate name */;
	string pattern	= ""		/* Pattern string */;
	char c				/* Pattern character */;
	string nrn			/* New rule name buffer */;
	string rn			/* Rule name buffer */;
	string fn			/* File name buffer */;
	double pcol			/* Parameter column */;
	double butx			/* Current button position */;
	double cy			/* Dialog box current y coordinate */;
	double dialwidth		/* Dialog box width */;
	double dialheight		/* Dialog box height */;
	double baseheight		/* Dialog box base height */;
	string strval			/* String value */;
	double dblval			/* Double value */;
	int intval			/* Integer value */;
	int i				/* Loop control variable */;
	switch (seltyp) {
		case C_FIGCON :
		ruleprompt= subtyp ? UPRDRBUS : UPRDRCON ;
		break;
		case C_FIGTEXT :
		sprintf(ruleprompt,subtyp ? UPRDRCTEXT : UPRDRSTEXT,name1);
		break;
		case C_FIGPOLY :
		switch (subtyp) {
			case LINEBIT :
			ruleprompt=UPRDRPTYPGL;
			break;
			case DLINEBIT :
			ruleprompt=UPRDRPTYPDL;
			break;
			case CAREABIT :
			ruleprompt=UPRDRPTYPCA;
			break;
			case AREABIT :
			default :
			ruleprompt=UPRDRPTYPGA;
			}
		break;
		case C_FIGNREF :
		switch (subtyp) {
			case MRKBIT :
			sprintf(ruleprompt,UPRDRPIN,name1,name2);
			break;
			case LABBIT :
			sprintf(ruleprompt,UPRDRLAB,name1,name2);
			break;
			case SYMBIT :
			default :
			sprintf(ruleprompt,UPRDRSYM,name1,name2);
			}
		break;
		case PLANTYP :
		ruleprompt=bae_plainmenutext(UPRSELE4);
		break;
		case PROJTYP :
		ruleprompt=bae_plainmenutext(UPRSELE5);
		break;
		default :
		ruleprompt="";
		}
	// Do the rule input loop
	bae_prtdialog("");
	while (1) {
	    // Check if dialog box support
	    if (bae_dialclr()) {
		// Build the query message string
		msg=UPRSELRULE0;
		for (i=0;i<rulen;i++) {
			// Add the rule name seperator
			if (i!=0)
				msg+=",";
			// Add the rule name
			msg+=rulel[i];
			}
		// Terminate the query message string
		msg+=UPRSELRULE1;
		// Get the rule name
		nrn="";
		fn=rscdatabase;
		if (bae_askddbename(nrn,fn,DDBCLRULE,msg))
			break;
		}
	    else {
		baseheight=DIAL_TOPMARG+DIAL_BUTVSTEP+2.0*DIAL_SEPVSTEP+
		3.0*DIAL_CTRVSTEP;
		dial_getboxsizemin(3028,dialwidth,dialheight,
		 DIAL_LEFTMARG+97.0+DIAL_RIGHTSMARG,baseheight+10.0,
		 DIAL_LEFTMARG+65.0+DIAL_RIGHTSMARG,baseheight+2.0);
		pcol=dialwidth/4.0;
		butx=DIAL_LEFTMARG;
		cy=DIAL_TOPMARG;
		dial_label(0.0,cy,UPRRULENAME);
		// Store edit control
		edidx=bae_dialaddcontrol(PA_STR,0,0,0,0.0,0.0,0.0,
		 pattern,200,DIAL_LEFTMARG+pcol,cy,pcol-3.0,"");
		bae_dialaddcontrol(PA_ACT,0,1,0,0.0,0.0,0.0,"",0,
		 DIAL_LEFTMARG+2.0*pcol,cy,0.0,UPRPATTERN);
		cy+=DIAL_CTRVSTEP;
		labidx=bae_dialaddcontrol(PA_LAB|PA_HBRDREL,0,0,0,0.0,
		 0.0,0.0,"",0,DIAL_LEFTMARG,cy,DIAL_RIGHTSMARG,"");
		cy+=DIAL_CTRVSTEP;
		dial_label(0.0,cy,UPRRULESET);
		bae_dialadvcontrol(PA_VSEP|PA_VBRDREL,0,0,0,0.0,
		 0.0,0.0,"",0,DIAL_LEFTMARG+pcol-1.5,cy,0.0,DIAL_BOTSMARG,"");
		dial_label(pcol,cy,UPRRULEPROJ);
		bae_dialadvcontrol(PA_VSEP|PA_VBRDREL,0,0,0,0.0,0.0,0.0,"",0,
		 DIAL_LEFTMARG+2.0*pcol-1.5,cy,0.0,DIAL_BOTSMARG,"");
		dial_label(2.0*pcol,cy,UPRRULEDB);
		cy+=DIAL_CTRVSTEP;
		// Store rule set list box
		bae_dialadvcontrol(PA_LB|PA_OKSEL|PA_HSCROLL|PA_MCALLBACK,edidx,
		 0,(-1),0.0,0.0,0.0,"",0,DIAL_LEFTMARG,cy,pcol-3.0,
		 dialheight-baseheight,"");
		// Store list box entries
		for (i=0;i<rulen;i++)
			// Add the rule name
			bae_dialaddcontrol(PA_LBE,0,0,0,0.0,0.0,0.0,"",0,
			 0.0,0.0,0.0,rulel[i]);
		// Store project rule database list box
		bae_dialadvcontrol(PA_LB|PA_OKSEL|PA_HSCROLL|PA_MCALLBACK,edidx,
		 0,(-1),0.0,0.0,0.0,"",0,DIAL_LEFTMARG+pcol,cy,pcol-3.0,
		 dialheight-baseheight,"");
		// Store list box entries
		rn="";
		fn=bae_planfname();
		while (scanddbenames(fn,DDBCLRULE,rn)==1)
			if (!strmatch(rn,"lay_*") && !strmatch(rn,"cam*") &&
			 !strmatch(rn,"var_doc*") && !strmatch(rn,"poly_*") &&
			 !strmatch(rn,"scm_variant*") &&
			 !strmatch(rn,"mirro*") &&
			 !strmatch(rn,"trc_shieldcover*") &&
			 !strmatch(rn,"nettype_*") && rn!="isteardrop" &&
			 (pattern[0]=='\0' || strmatch(rn,pattern) ||
			 (ddbgetelemcomment(fn,DDBCLRULE,rn,ecomm)==0 &&
			  strmatch(ecomm,pattern))))
				// Add the rule name
				bae_dialaddcontrol(PA_LBE,0,0,0,0.0,0.0,0.0,
				 "",0,0.0,0.0,0.0,rn);
		// Store rule database list box
		bae_dialadvcontrol(
		 PA_LB|PA_OKSEL|PA_HSCROLL|PA_HBRDREL|PA_MCALLBACK,
		 edidx,0,(-1),0.0,0.0,0.0,"",0,DIAL_LEFTMARG+2.0*pcol,cy,
		 DIAL_RIGHTSMARG,dialheight-baseheight,"");
		cy+=dialheight-baseheight+DIAL_SEPVSTEP;
		// Store list box entries
		rn="";
		fn=rscdatabase;
		while (scanddbenames(fn,DDBCLRULE,rn)==1)
			if (!strmatch(rn,"lay_*") && !strmatch(rn,"cam*") &&
			 !strmatch(rn,"var_doc*") &&
			 !strmatch(rn,"scm_variant*") &&
			 (pattern[0]=='\0' || strmatch(rn,pattern) ||
			 (ddbgetelemcomment(fn,DDBCLRULE,rn,ecomm)==0 &&
			  strmatch(ecomm,pattern))))
				dial_lbddbentry(0,0,fn,rn,DDBCLRULE,1);
		bae_dialaddcontrol(PA_HSEP|PA_HBRDREL,0,0,0,0.0,
		 0.0,0.0,"",0,DIAL_LEFTMARG,cy-0.4,DIAL_RIGHTSMARG,"");
		// Store OK button
		bae_dialaddcontrol(PA_ACT,
		 0,0,0,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRTOGGLE);
		butx+=bae_dialgettextlen(0,UPRTOGGLE)+BUTXSTEP;
		// Store done button
		bae_dialaddcontrol(PA_ACT,
		 0,5,0,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRDONE);
		butx+=bae_dialgettextlen(0,UPRDONE)+BUTXSTEP;
		// Store abort button
		bae_dialaddcontrol(PA_ABORT,
		 0,(-1),0,0.0,0.0,0.0,"",0,butx,cy,0.0,"");
		// Store predicate controls button
		butx+=12.0;
		bae_dialaddcontrol(PA_LAB,
		 0,0,0,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRPREDICATE);
		butx+=bae_dialgettextlen(0,UPRPREDICATE)+BUTXSTEP;
		bae_dialaddcontrol(PA_ACT,
		 0,2,0,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRPREDSTR);
		butx+=bae_dialgettextlen(0,UPRPREDSTR)+BUTXSTEP;
		bae_dialaddcontrol(PA_ACT,
		 0,3,0,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRPREDDBL);
		butx+=bae_dialgettextlen(0,UPRPREDDBL)+BUTXSTEP;
		bae_dialaddcontrol(PA_ACT,
		 0,4,0,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRPREDINT);
		cy+=DIAL_BUTVSTEP+DIAL_SEPVSTEP;
		// Display dialog box
		sprintf(msg,UPRDRULEH,ruleprompt);
		bae_setintpar(16,3028);
		switch (bae_dialaskcall("!"+msg,0,dialwidth,cy,ruleactcb)) {
			// Done
			case 0 :
			bae_dialgetdata(edidx,0,0.0,nrn);
			for (i=0;(c=nrn[i])!='\0';i++)
				if (c=='\'' || c=='"' || c=='*' || c=='?')
					break;
			if (c=='*' || c=='?') {
				pattern=nrn;
				continue;
				}
			for (i=0;(c=nrn[i])!='\0';i++)
				if (c=='\'' || c==' ')
					break;
			if (c==' ')
				nrn=strextract(nrn,0,i-1);
			if (nrn=="")
				return;
			break;
			// Pattern
			case 1 :
			bae_dialgetdata(edidx,0,0.0,pattern);
			continue;
			// String predicate
			case 2 :
			valtyp=TYPSTR;
			if ((predname=getpredname())=="")
				continue;
			strval=getpredsval(predname);
			if (editpredsval(predname,strval))
				continue;
			// Delete old value rule
			delpred(predname,
			 predidx>=0 ? predl[predidx].delpat : "");
			// Check if default value
			if (predidx>=0 && predl[predidx].defsval==strval)
				continue;
			// Insert new predicate rule
			sprintf(nrn,":%s:%s='%s';",RS_SCMSUBJ,predname,strval);
			insrule(nrn);
			continue;
			// Double predicate
			case 3 :
			valtyp=TYPDBL;
			if ((predname=getpredname())=="")
				continue;
			dblval=getpreddval(predname);
			if (editpreddval(predname,dblval))
				continue;
			// Delete old value rule
			delpred(predname,
			 predidx>=0 ? predl[predidx].delpat : "");
			// Check if default value
			if (predidx>=0 && predl[predidx].defdval==dblval)
				continue;
			// Insert new predicate rule
			if (floor(dblval)==ceil(dblval))
				sprintf(nrn,":%s:%s=%.1f;",RS_SCMSUBJ,
				 predname,dblval);
			else
				sprintf(nrn,":%s:%s=%.9g;",RS_SCMSUBJ,
				 predname,dblval);
			insrule(nrn);
			continue;
			// Integer predicate
			case 4 :
			valtyp=TYPINT;
			if ((predname=getpredname())=="")
				continue;
			intval=getpredival(predname);
			if (editpredival(predname,intval))
				continue;
			// Delete old value rule
			delpred(predname,
			 predidx>=0 ? predl[predidx].delpat : "");
			// Check if default value
			if (predidx>=0 && predl[predidx].defival==intval)
				continue;
			// Insert new predicate rule
			sprintf(nrn,":%s:%s=%d;",RS_SCMSUBJ,predname,intval);
			insrule(nrn);
			continue;
			// Resize
			case (-2) :
			continue;
			// Abort
			case (-1) :
			error_abort();
			// Done
			case 5 :
			default :
			return;
			}
		}
	    // Scan the rule list
	    for (i=0;i<rulen;i++)
		if (rulel[i]==nrn)
			break;
	    // Test if rule found
	    if (i>=rulen) {
		// Check if rule exists
		if (!rsc_isrule(nrn)) {
			// Issue rule not defined message
			sprintf(msg,ERRNORULE,nrn);
			bae_msgbox(2,msg,"");
			continue;
			}
		insrule(nrn);
		}
	    else {
		// Delete the old rule
		for (;i<rulen-1;i++)
			rulel[i]=rulel[i+1];
		rulen--;
		rulel[rulen]="";
		}
	    }
}

static int ruleactcb(
 int reason,int boxidx,int itemidx,int itemid,string itemstr)
/*
// Predicate list activation callback
// Return value :
//	zero if done or (-1) on data error
// Parameters :
//	int reason		: Callback reason
//	int boxidx		: Dialog box index
//	int itemidx		: Dialog box item index
//	int itemid		: Dialog list box item id
//	string itemstr		: Dialog list box item string
*/
{
	string rulename	= ""		/* Rule name */;
	string predname	= ""		/* Predicate name */;
	string predval			/* Predicate value */;
	char c				/* Pattern character */;
	int typmask = (1<<seltyp)	/* Element type mask */;
	int i				/* Loop control variable */;
	if (itemid<0)
		return(0);
	// Check if label reference
	if (seltyp==C_FIGNREF && rulefig.NREF.MACRO.CLASS==DDBCLSLAB)
		typmask=LREFBIT;
	// Get the rule name
	bae_dialgetdata(edidx,0,0.0,rulename);
	// Check if normal rule name
	if (rulename[i]!=':') {
		for (i=0;(c=rulename[i])!='\0';i++)
			if (c=='\'' || c==' ')
				break;
		if (c==' ')
			rulename=strextract(rulename,0,i-1);
		bae_dialsetdata(labidx,PA_LAB|PA_HBRDREL,0,0.0,
		 ddbcelemname(rscdatabase,rulename,DDBCLRULE,1));
		// Return without errors
		return(0);
		}
	// Extract predicate name
	for (i=2+strlen(RS_SCMSUBJ);(c=rulename[i])!='\0';i++)
		if (c=='=') {
			predname=strextract(rulename,2+strlen(RS_SCMSUBJ),i-1);
			break;
			}
	// Assume unknown predicate
	predidx=(-1);
	// Check if known predicate
	for (i=0;i<predn;i++)
		// Apply class/type filter
		if (predl[i].name==predname &&
		 (predl[i].classmask==0 || (predl[i].classmask&classmask)!=0) &&
		 (predl[i].etypmask==0 || (predl[i].etypmask&typmask)!=0) &&
		 (predl[i].estypmask==0 || (predl[i].estypmask&subtyp)!=0)) {
			predidx=i;
			valtyp=predl[i].valtyp;
			break;
			}
	// Check if known type
	if (predidx<0) {
		// Assume integer type
		valtyp=TYPINT;
		for (i++;(c=rulename[i])!='\0';i++)
			if (c=='\'' || c=='"') {
				valtyp=TYPSTR;
				break;
				}
			else if (c=='.') {
				valtyp=TYPDBL;
				break;
				}
		}
	// Query predicate value for current element
	predval=getpredval(predname);
	if (predidx>=0)
		predval=predl[predidx].comm+" : "+predval;
	bae_dialsetdata(labidx,PA_LAB|PA_HBRDREL,0,0.0,predval);
	// Return without errors
	return(0);
}

void insrule(string rulename)
/*
// Insert rule name sorted into rule name list
// Parameter :
//	string name		: New rule name
*/
{
	int i				/* Loop control variable */;
	// Insert new rule sorted into list
	for (i=rulen;i>0;i--)
		if (rulel[i-1]>rulename)
			rulel[i]=rulel[i-1];
		else
			break;
	rulel[i]=rulename;
	rulen++;
}

void delpred(string name,string delpat)
/*
// Delete predicate definition from rule name list
// Parameter :
//	string name		: Predicate name
//	string delpat		: Old rule deletion name pattern
*/
{
	string pdefprefix		/* Predicate def. prefix */;
	int pdefend			/* Predicate def. end */;
	int i				/* Loop control variable */;
	// Get predicate rule definition prefix
	sprintf(pdefprefix,":%s:%s=",RS_SCMSUBJ,name);
	pdefend=strlen(pdefprefix)-1;
	for (i=0;i<rulen;i++)
		if (strextract(rulel[i],0,pdefend)==pdefprefix ||
		 strmatch(rulel[i],delpat)) {
			rulen--;
			for (;i<rulen;i++)
				rulel[i]=rulel[i+1];
			rulel[rulen]="";
			break;
			}
}

static string getpredname()
/*
// Get predicate name
*/
{
	string title			/* Title message string */;
	string msg			/* Message buffer */;
	string predname	= ""		/* Predicate name */;
	double pcol = 23.0		/* Parameter column */;
	double cy			/* Dialog box current y coordinate */;
	double dialwidth		/* Dialog box width */;
	double dialheight		/* Dialog box height */;
	double baseheight		/* Dialog box base height */;
	int repflag	= 1		/* Repeat flag */;
	char c				/* Pattern character */;
	int typmask = (1<<seltyp)	/* Element type mask */;
	int i				/* Loop control variable */;
	baseheight=
	 DIAL_TOPMARG+DIAL_BUTVSTEP+2.0*DIAL_CTRVSTEP+DIAL_SEPVSTEP+0.2;
	do {
		bae_dialclr();
		dial_getboxsizemin(3102,dialwidth,dialheight,
		 DIAL_LEFTMARG+41.0+DIAL_RIGHTSMARG,baseheight+10.0,
		 DIAL_LEFTMARG+25.0+DIAL_RIGHTSMARG,baseheight+1.0);
		// Build the dialog box
		cy=DIAL_TOPMARG;
		// Store layout part macro edit controls
		edidx=dial_namestring(predname,MAXKEYLEN,0.0,cy);
		labidx=bae_dialaddcontrol(PA_LAB|PA_HBRDREL,0,0,0,0.0,
		 0.0,0.0,"",0,DIAL_LEFTMARG,cy,DIAL_RIGHTSMARG,"");
		cy+=DIAL_CTRVSTEP;
		// Store predicate list box
		bae_dialadvcontrol(
		 PA_LB|PA_OKSEL|PA_HBRDREL|PA_HSCROLL|PA_MCALLBACK,edidx,
		 0,(-1),0.0,0.0,0.0,"",0,DIAL_LEFTMARG,cy,DIAL_RIGHTSMARG,
		 dialheight-baseheight,"");
		// Store list box entries
		for (i=0;i<predn;i++) {
			// Apply class/type filter
			if (predl[i].valtyp!=valtyp ||
			 (predl[i].classmask!=0 &&
			  (predl[i].classmask&classmask)==0) ||
			 (predl[i].etypmask!=0 &&
			  (predl[i].etypmask&typmask)==0) ||
			 (predl[i].estypmask!=0 &&
			  (predl[i].estypmask&subtyp)==0))
				continue;
			if (predl[i].comm!="") {
				sprintf(msg,"%s : %s",
				 predl[i].name,predl[i].comm);
				bae_dialaddcontrol(PA_LBE,0,0,0,0.0,
				 0.0,0.0,"",0,0.0,0.0,0.0,msg);
				}
			else {
				bae_dialaddcontrol(PA_LBE,0,0,i,0.0,0.0,0.0,
				 "",0,0.0,0.0,0.0,predl[i].name);
				}
			}
		cy+=dialheight-baseheight+0.2;
		// Store OK button
		dial_okabort(cy);
		// Display dialog box
		bae_setintpar(16,3102);
		switch (valtyp) {
			case TYPSTR :
			sprintf(title,UPRDPREDSTR,ruleprompt);
			break;
			case TYPDBL :
			sprintf(title,UPRDPREDDBL,ruleprompt);
			break;
			case TYPINT :
			default :
			sprintf(title,UPRDPREDINT,ruleprompt);
			}
		switch (bae_dialaskcall("!"+title,0,dialwidth,cy,predactcb)) {
			// Done
			case 0 :
			bae_dialgetdata(edidx,0,0.0,predname);
			for (i=0;(c=predname[i])!='\0';i++)
				if (c=='\'' || c==' ')
					break;
			if (c==' ')
				predname=strextract(predname,0,i-1);
			repflag=0;
			break;
			// Resize
			case (-2) :
			bae_dialgetdata(edidx,0,0.0,predname);
			break;
			default :
			return("");
			}
		// Stop if no further repeat requests
		} while (repflag);
	// Assume unknown predicate
	predidx=(-1);
	// Check if known predicate
	for (i=0;i<predn;i++)
		// Apply class/type filter
		if (predl[i].name==predname &&
		 predl[i].valtyp==valtyp &&
		 (predl[i].classmask==0 || (predl[i].classmask&classmask)!=0) &&
		 (predl[i].etypmask==0 || (predl[i].etypmask&typmask)!=0) &&
		 (predl[i].estypmask==0 || (predl[i].estypmask&subtyp)!=0)) {
			predidx=i;
			break;
			}
	// Return predicate name
	return(predname);
}

static int predactcb(
 int reason,int boxidx,int itemidx,int itemid,string itemstr)
/*
// Predicate list activation callback
// Return value :
//	zero if done or (-1) on data error
// Parameters :
//	int reason		: Callback reason
//	int boxidx		: Dialog box index
//	int itemidx		: Dialog box item index
//	int itemid		: Dialog list box item id
//	string itemstr		: Dialog list box item string
*/
{
	string predname	= ""		/* Predicate name */;
	string predval			/* Predicate value */;
	char c				/* Pattern character */;
	int typmask = (1<<seltyp)	/* Element type mask */;
	int i				/* Loop control variable */;
	if (itemid<0)
		return(0);
	// Get the predicate name
	bae_dialgetdata(edidx,0,0.0,predname);
	for (i=0;(c=predname[i])!='\0';i++)
		if (c=='\'' || c==' ')
			break;
	if (c==' ')
		predname=strextract(predname,0,i-1);
	// Assume unknown predicate
	predidx=(-1);
	// Check if known predicate
	for (i=0;i<predn;i++)
		// Apply class/type filter
		if (predl[i].name==predname &&
		 predl[i].valtyp==valtyp &&
		 (predl[i].classmask==0 || (predl[i].classmask&classmask)!=0) &&
		 (predl[i].etypmask==0 || (predl[i].etypmask&typmask)!=0) &&
		 (predl[i].estypmask==0 || (predl[i].estypmask&subtyp)!=0)) {
			predidx=i;
			break;
			}
	// Query predicate value for current element
	predval=getpredval(predname);
	if (predidx>=0)
		predval+=" : "+predl[predidx].comm;
	bae_dialsetdata(labidx,PA_LAB|PA_HBRDREL,0,0.0,predval);
	// Return without errors
	return(0);
}

static string getpredval(string name)
/*
// Get predicate value string for current element
// Parameter :
//	string name		: Predicate name
*/
{
	string strbuf = ""		/* String result buffer */;
	double dblval			/* Double value */;
	int intval			/* Integer value */;
	int bitcnt			/* Bit count */;
	int bitmask			/* Current bit mask */;
	int i				/* Loop control variable */;
	switch (valtyp) {
		case TYPSTR :
		return(getpredsval(name));
		case TYPDBL :
		dblval=getpreddval(name);
		if (predidx>=0 && predl[predidx].valstyp==TYPDBLDIM)
			dblval=cvtlength(dblval,0,2);
		if (floor(dblval)==ceil(dblval))
			sprintf(strbuf,"%.1f",dblval);
		else
			sprintf(strbuf,"%.9g",dblval);
		if (predidx>=0 && predl[predidx].valstyp==TYPDBLDIM)
			strbuf+="mm";
		break;
		case TYPINT :
		default :
		intval=getpredival(name);
		if (predidx>=0) {
			if (predl[predidx].valstyp==TYPINTBITS) {
				if (arylength(predl[predidx].namel)==1)
					return(
					 intval ? UPRPREDFSET : UPRPREDFUSET);
				strbuf=UPRPREDBITS+itoa(intval)+" (";
				bitmask=1;
				bitcnt=arylength(predl[predidx].namel);
				for (i=bitcnt-1;i>=0;i--) {
					strbuf+=
					 ((intval&bitmask)!=0) ? "1" : "0";
					bitmask<<=1;
					}
				strbuf+=")";
				return(strbuf);
				}
			if (predl[predidx].valstyp==TYPINTSEL) {
				if (predl[predidx].defival<0 &&
				 intval>=predl[predidx].defival &
				 intval<(predl[predidx].defival+
				  arylength(predl[predidx].namel)))
					return(predl[predidx].namel[intval-
					 predl[predidx].defival]);
				else if (intval>=0 &&
				 intval<arylength(predl[predidx].namel))
					return(predl[predidx].namel[intval]);
				}
			}
		return(itoa(intval));
		}
	return(strbuf);
}

static int editpredival(string name,int val)
/*
// Get integer predicate value for current element
// Parameter :
//	string name		: Predicate name
//	int val			: Predicate value
*/
{
	string prompt			/* Prompt message */;
	STRINGS eleml			/* Selection element list */;
	double cy = DIAL_TOPMARG	/* Current y value */;
	int res				/* Dialog box result buffer */;
	int repflag	= 1		/* Repeat flag */;
	int bitcnt			/* Bit count */;
	int selidx			/* Selection dialog item index */;
	int bitidx[]			/* Bit dialog item index list */;
	int bitval			/* Current bit value */;
	int bitmask			/* Current bit mask */;
	int bits	= 0		/* Bit display start index */;
	int curmask			/* Current bit mask */;
	int newval			/* New bitmask value */;
	int i				/* Loop control variable */;
	sprintf(prompt,UPRNPRED,name,ruleprompt);
	// Check if bitmask input
	if (predidx>=0 && predl[predidx].valstyp==TYPINTBITS &&
	 !bae_dialclr()) {
		// Perform the input loop
		do {
			bae_dialclr();
			cy=DIAL_TOPMARG;
			bitmask=1<<bits;
			bitcnt=arylength(predl[predidx].namel);
			// Store the menu labels
			for (i=0;i<MAXMENULIST && (i+bits)<bitcnt;i++) {
				bitidx[i]=dial_toggle(
				 (val&bitmask)!=0 ? 1 : 0,0.0,cy,
				 name+(predl[predidx].namel[i]!="" ? (" : "+
				 predl[predidx].namel[i+bits]) :
				 predl[predidx].comm!="" ?
				 (" : "+predl[predidx].comm) : ""));
				bitmask<<=1;
				}
			// Store the OK and abort button with seperator
			dial_hsep(cy);
			if (bitcnt>MAXMENULIST) {
				// Previous menu item set
				bae_dialaddcontrol(PA_ACT|
				 (bits==0 ? PA_GRAYED : 0),0,1,0,0.0,0.0,0.0,
				 "",0,DIAL_LEFTMARG+12.0,cy,0.0,UPRPREVDIAL);
				// Next menu item set
				bae_dialaddcontrol(PA_ACT|
				 (i>=bitcnt ? PA_GRAYED : 0),0,2,0,0.0,0.0,0.0,
				 "",0,DIAL_LEFTMARG+12.0+bae_dialgettextlen(
				  0,UPRPREVDIAL),cy,0.0,UPRNEXTDIAL);
				}
			dial_okabort(cy);
			// Call the dialog function
			bae_setintpar(16,3103);
			switch (res=bae_dialaskparams(prompt,0,
			 DIAL_LEFTMARG+45.0,cy)) {
				case 0 :
				case 1 :
				case 2 :
				bitmask=1<<bits;
				newval=curmask=0;
				for (i=0;i<MAXMENULIST && (i+bits)<bitcnt;i++) {
					bae_dialgetdata(
					 bitidx[i],bitval,0.0,"");
					if (bitval)
						newval|=bitmask;
					curmask|=bitmask;
					bitmask<<=1;
					}
				val=newval|(val&~curmask);
				switch (res) {
					// Previous bit set
					case 1 :
					bits-=MAXMENULIST-1;
					if (bits<0)
						bits=0;
					break;
					// Next bit set
					case 2 :
					bits+=MAXMENULIST-1;
					if (bits>=bitcnt)
						bits=bitcnt-MAXMENULIST;
					break;
					case 0 :
					default :
					return(0);
					}
				break;
				default :
				repflag=0;
				}
			// Stop if no further repeat requests
			} while (repflag);
		return(-1);
		}
	// Check if selection input
	else if (predidx>=0 && predl[predidx].valstyp==TYPINTSEL &&
	 !bae_dialclr()) {
		if (predl[predidx].defival<0)
			val-=predl[predidx].defival;
		bitcnt=arylength(predl[predidx].namel);
		if (bitcnt<17) {
			for (i=0;i<bitcnt;i++)
				eleml[i]=predl[predidx].namel[i];
			eleml[bitcnt]=UPRABORT;
			if (val>=0)
				bae_defmenusel(val);
			// Get element selection
			bae_promptdialog(prompt);
			if ((val=bae_askmenu(bitcnt+1,eleml[0],eleml[1],
			 eleml[2],eleml[3],eleml[4],eleml[5],eleml[6],
			 eleml[7], eleml[8],eleml[9],eleml[10],eleml[11],
			 eleml[12],eleml[13],eleml[14],eleml[15],eleml[16],
			 UPRABORT))<0 || val>=bitcnt)
				return(-1);
			}
		else {
			dial_selbox(val,0.0,cy);
			for (i=0;i<bitcnt;i++)
				dial_sbentry(0,i,predl[predidx].namel[i]);
			// Store the OK and abort button with seperator
			dial_hsep(cy);
			dial_okabort(cy);
			// Call the dialog function
			bae_setintpar(16,3105);
			if (bae_dialaskparams(
			 prompt,0,DIAL_LEFTMARG+45.0,cy)!=0)
				return(-1);
			bae_dialgetdata(selidx,val,0.0,"");
			}
		if (predl[predidx].defival<0)
			val+=predl[predidx].defival;
		return(0);
		}
	// Use standard integer input function
	return(askint(val,prompt,10));
}

static int getpredival(string name)
/*
// Get integer predicate value for current element
// Parameter :
//	string name		: Predicate name
*/
{
	int intval			/* Integer value */;
	string pdefprefix		/* Pred. definition prefix */;
	int pdeflen			/* Pred. def. length */;
	int i				/* Loop control variable */;
	// Get predicate rule definition prefix
	sprintf(pdefprefix,":%s:%s=",RS_SCMSUBJ,name);
	pdeflen=strlen(pdefprefix);
	// Scan the rule name list
	for (i=0;i<rulen;i++)
		if (strextract(rulel[i],0,pdeflen-1)==pdefprefix)
			return(atoi(
			 strextract(rulel[i],pdeflen,strlen(rulel[i])-2)));
	if (seltyp==PLANTYP) {
		// Query predicate
		if (cap_rulequery(RS_OCPLAN,0,RS_SCMSUBJ,name,"?d",intval)<1)
			// Set default value
			intval=predidx<0 ? 0 : predl[predidx].defival;
		}
	else if (seltyp==PROJTYP) {
		// Query predicate
		if (cap_rulequery(RS_OCSCMDB,0,RS_SCMSUBJ,name,"?d",intval)<1)
			// Set default value
			intval=predidx<0 ? 0 : predl[predidx].defival;
		}
	else if (seltyp==C_FIGCON) {
		// Query predicate
		if (cap_rulequery(RS_OCCON,ruleconseg,RS_SCMSUBJ,
		 name,"?d",intval)<1)
			// Set default value
			intval=predidx<0 ? 0 : predl[predidx].defival;
		}
	else {
		// Query predicate
		if (cap_rulequery(RS_OCFIG,rulefig,RS_SCMSUBJ,
		 name,"?d",intval)<1)
			// Set default value
			intval=predidx<0 ? 0 : predl[predidx].defival;
		}
	return(intval);
}

static int editpreddval(string name,double val)
/*
// Get integer predicate value for current element
// Parameter :
//	string name		: Predicate name
//	double val		: Predicate value
*/
{
	string prompt			/* Prompt message */;
	sprintf(prompt,UPRNPRED,name,ruleprompt);
	if (predidx>=0 && predl[predidx].valstyp==TYPDBLDIM)
		return(askdist(val,prompt,1));
	return(askdbl(val,prompt,20));
}

static double getpreddval(string name)
/*
// Get double predicate value for current element
// Parameter :
//	string name		: Predicate name
*/
{
	double dblval			/* Double value */;
	string pdefprefix		/* Pred. definition prefix */;
	int pdeflen			/* Pred. def. length */;
	int i				/* Loop control variable */;
	// Get predicate rule definition prefix
	sprintf(pdefprefix,":%s:%s=",RS_SCMSUBJ,name);
	pdeflen=strlen(pdefprefix);
	// Scan the rule name list
	for (i=0;i<rulen;i++)
		if (strextract(rulel[i],0,pdeflen-1)==pdefprefix)
			return(atof(
			 strextract(rulel[i],pdeflen,strlen(rulel[i])-2)));
	if (seltyp==PLANTYP) {
		// Query predicate
		if (cap_rulequery(RS_OCPLAN,0,RS_SCMSUBJ,name,"?f",dblval)<1)
			// Set default value
			dblval=predidx<0 ? 0.0 : predl[predidx].defdval;
		}
	else if (seltyp==PROJTYP) {
		// Query predicate
		if (cap_rulequery(RS_OCSCMDB,0,RS_SCMSUBJ,name,"?f",dblval)<1)
			// Set default value
			dblval=predidx<0 ? 0.0 : predl[predidx].defdval;
		}
	else if (seltyp==C_FIGCON) {
		// Query predicate
		if (cap_rulequery(RS_OCCON,ruleconseg,RS_SCMSUBJ,
		 name,"?f",dblval)<1)
			// Set default value
			dblval=predidx<0 ? 0.0 : predl[predidx].defdval;
		}
	else {
		// Query predicate
		if (cap_rulequery(RS_OCFIG,rulefig,RS_SCMSUBJ,
		 name,"?f",dblval)<1)
			// Set default value
			dblval=predidx<0 ? 0.0 : predl[predidx].defdval;
		}
	return(dblval);
}

static int editpredsval(string name,string val)
/*
// Get integer predicate value for current element
// Parameter :
//	string name		: Predicate name
//	string val		: Predicate value
*/
{
	string prompt			/* Prompt message */;
	double cy			/* Dialog box current y coordinate */;
	int outfidx			/* Output file index */;
	sprintf(prompt,UPRNPRED,name,ruleprompt);
	if (predidx>=0 && predl[predidx].valstyp==TYPSTRFILE)
		return((bae_askfilename(val,"",prompt) || name=="") ? 1 : 0);
	if (predidx>=0 && predl[predidx].valstyp==TYPSTRLINK &&
	 bae_dialclr()==0) {
		// Init. the y coordinate
		cy=DIAL_TOPMARG;
		// Store file controls
		dial_label(0.0,cy,UPRLINKFILE);
		cy+=DIAL_CTRVSTEP;
		outfidx=dial_string(val,MAXPATHLEN,0.0,cy);
		bae_dialaddcontrol(PA_ACT,0,1,0,0.0,0.0,0.0,"",0,
		DIAL_LEFTMARG,cy,0.0,UPRBRWFILENAME);
		cy+=DIAL_CTRVSTEP;
		// Store the OK and abort button with seperator
		dial_hsep(cy);
		dial_okabort(cy);
		// Call the dialog function
		bae_setintpar(16,3147);
		switch (bae_dialaskparams(prompt,0,
		 DIAL_LEFTMARG+60.0+DIAL_RIGHTSMARG,cy)) {
		 	// Done
			case 0 :
			bae_dialgetdata(outfidx,0,0.0,val);
			return(val);
			// Browse file name
			case 1 :
			return(
			 (bae_askfilename(val,"",prompt) || name=="") ? 1 : 0);
			}
		error_abort();
		}
	return((val=bae_readedittext(prompt,val,predidx>=0 &&
	 predl[predidx].valstyp==TYPSTRNAME ? MAXKEYLEN : MAXTEXTLEN))==
	 UINPOPABORT ? (-1) : 0);
}

static string getpredsval(string name)
/*
// Get string predicate value for current element
// Parameter :
//	string name		: Predicate name
*/
{
	string strval			/* String value */;
	string pdefprefix		/* Pred. definition prefix */;
	int pdeflen			/* Pred. def. length */;
	int i				/* Loop control variable */;
	// Get predicate rule definition prefix
	sprintf(pdefprefix,":%s:%s=",RS_SCMSUBJ,name);
	pdeflen=strlen(pdefprefix);
	// Scan the rule name list
	for (i=0;i<rulen;i++)
		if (strextract(rulel[i],0,pdeflen-1)==pdefprefix)
			return(
			 strextract(rulel[i],pdeflen+1,strlen(rulel[i])-3));
	if (seltyp==PLANTYP) {
		// Query predicate
		if (cap_rulequery(RS_OCPLAN,0,RS_SCMSUBJ,name,"?s",strval)<1)
			// Set default value
			strval=predidx<0 ? "" : predl[predidx].defsval;
		}
	else if (seltyp==PROJTYP) {
		// Query predicate
		if (cap_rulequery(RS_OCSCMDB,0,RS_SCMSUBJ,name,"?s",strval)<1)
			// Set default value
			strval=predidx<0 ? "" : predl[predidx].defsval;
		}
	else if (seltyp==C_FIGCON) {
		// Query predicate
		if (cap_rulequery(RS_OCCON,ruleconseg,RS_SCMSUBJ,
		 name,"?s",strval)<1)
			// Set default value
			strval=predidx<0 ? "" : predl[predidx].defsval;
		}
	else {
		// Query predicate
		if (cap_rulequery(RS_OCFIG,rulefig,RS_SCMSUBJ,
		 name,"?s",strval)<1)
			// Set default value
			strval=predidx<0 ? "" : predl[predidx].defsval;
		}
	return(strval);
}

static string getrotvis()
/*
// Get rotation visibility string
// Return value:
//	rotation visibility string
*/
{
	// Select the rotation
	bae_promptdialog(UPRSELROT);
	switch (bae_askmenu(8,UPRROTA,UPRROT0,UPRROT90,UPRROT180,
	 UPRROT270,UPRROT0_180,UPRROT90_270,UPRABORT)) {
		case 0 :
		break;
		case 1 :
		return("0");
		break;
		case 2 :
		return("90");
		break;
		case 3 :
		return("180");
		break;
		case 4 :
		return("270");
		break;
		case 5 :
		return("0_180");
		break;
		case 6 :
		return("90_270");
		break;
		default :
		error_abort();
		}
	return("");
}

static void symrotexpand()
// Expand symbol to display all main rotation directions
{
	index C_FIGURE fig		/* Figure list index */;
	index C_FIGURE dfig		/* Delete figure list element */;
	index C_FIGURE nfig		/* New figure list index */;
	string rn			/* Rule name buffer */;
	int rnc				/* Rule name count */;
	string predname			/* Predicate name buffer */;
	string cpdefprefix		/* Class pred. definition prefix */;
	int cpdeflen			/* Class pred. def. length */;
	int rvpdeflen			/* Rot. vis. pred. def. length */;
	int textclass			/* Text class */;
	double rlx, rly			/* Rounded lower boundary */;
	double rux, ruy			/* Rounded upper boundary */;
	double tx, ty			/* Text offset vector */;
	double x, y			/* Current position */;
	double ang			/* Current angle */;
	int rotvis			/* Rotation visibility flags */;
	int rotcnt			/* Current rotation count */;
	int curdir			/* Current direction */;
	int curmirr			/* Current mirroring */;
	int gridlock			/* Grid lock mode */;
	int anglock			/* Angle lock mode */;
	int msmmode			/* Menu/mouse mode */;
	int oldfigdis			/* Old figure list disable bits */;
	int i				/* Loop control variable */;
	// Check the plan class
	if (ddbclass!=DDBCLSSYM)
		error_class();
	// Check if element is already expanded
	if (varget(VAR_EMDIM,elemmdim)==0)
		error(ERRALREXP);
	// Get the old figure list element type set
	if (varget(VAR_MSFIGDIS,oldfigdis))
		oldfigdis=0;
	wslx=bae_planwslx(); wsly=bae_planwsly();
	wsux=bae_planwsux(); wsuy=bae_planwsuy();
	varset(VAR_ELX,wslx);
	varset(VAR_ELY,wsly);
	varset(VAR_EUX,wsux);
	varset(VAR_EUY,wsuy);
	varset(VAR_ETYP,oldfigdis);
	varset(VAR_MSFIGDIS,~(1<<C_FIGTEXT));
	rlx=mmfloor(wslx); rly=mmfloor(wsly);
	rux=mmceil(wsux); ruy=mmceil(wsuy);
	// Get the element data
	elemxo=rlx;
	elemyo=rly;
	elemw=rux-rlx;
	elemh=ruy-rly;
	elemmdim=elemw>elemh ? elemw : elemh;
	// Get old grid and angle lock flags
	gridlock=bae_getgridlock();
	anglock=bae_getanglelock();
	// Free grid and angle
	bae_setgridlock(0);
	bae_setanglelock(0);
	// Set new element boundaries
	bae_clriactqueue();
	bae_storemouseiact(1,elemxo+4*elemmdim+3*ELEMSPC+ELEMSPC,
	 elemyo+2.0*elemmdim+ELEMSPC+ELEMSPC,0,LMB);
	bae_callmenu(MNU_SCMPARUBND);
	bae_clriactqueue();
	bae_storemouseiact(1,elemxo-ELEMSPC,elemyo-ELEMSPC,0,LMB);
	bae_callmenu(MNU_SCMPARLBND);
	// Reset the group
	bae_callmenu(MNU_SCMGRPRESE);
	sprintf(predname,RS_FCTSEQ,0);
	bae_getintpar(3,msmmode);
	scm_storetext((msmmode&2) ? UPRTXTRIGHT : UPRTXTLEFT,
	 elemxo+2.0*(elemmdim+ELEMSPC)-0.5*ELEMSPC,
	 elemyo+2.0*elemmdim+2.0*ELEMSPC,0.0,HELPSIZE,0,TEXTHCENT|TEXTFRM1);
	if (cap_lastfigelem(nfig)==0)
		rsc_assfigstrpred(nfig,predname,"scmrule:sl4","","");
	// Zoom overview
	bae_callmenu(MNU_BAEZOOMALL);
	// Select all non-text elements to group
	forall (fig where fig.TYP!=C_FIGTEXT)
		scm_elemgrpchg(fig,1);
	// Copy all directions
	for (curmirr=0;curmirr<=1;curmirr++)
	    for (curdir= curmirr ? 0 : 1;curdir<4;curdir++) {
		if (curmirr) {
			switch (curdir) {
				case 0 :
				x=elemxo;
				y=elemyo+2.0*elemmdim+ELEMSPC;
				break;
				case 1 :
				x=elemxo+elemmdim+ELEMSPC;
				y=elemyo+elemmdim+ELEMSPC;
				break;
				case 2 :
				x=elemxo+3.0*elemmdim+2.0*ELEMSPC;
				y=elemyo+elemmdim+ELEMSPC;
				break;
				case 3 :
				x=elemxo+4.0*elemmdim+3.0*ELEMSPC;
				y=elemyo+2.0*elemmdim+ELEMSPC;
				break;
				}
			}
		else {
			switch (curdir) {
				case 1 :
				x=elemxo+2*elemmdim+ELEMSPC;
				y=elemyo;
				break;
				case 2 :
				x=elemxo+3*elemmdim+2*ELEMSPC;
				y=elemyo+elemmdim;
				break;
				case 3 :
				x=elemxo+3*elemmdim+3*ELEMSPC;
				y=elemyo+elemmdim;
				break;
				}
			}
		bae_clriactqueue();
		bae_storemouseiact(1,elemxo,elemyo,0,LMB);
		rotcnt=curdir;
		for (i=0;i<rotcnt;i++) {
			bae_storemouseiact(1,0.0,0.0,1,RMB);
			bae_storemenuiact(1,4,LMB);
			}
		if (curmirr) {
			bae_storemouseiact(1,0.0,0.0,1,RMB);
			bae_storemenuiact(1,8,LMB);
			}
		bae_storemouseiact(1,x,y,0,LMB);
		bae_callmenu(MNU_SCMCOPYGRP);
		if (curdir==0 || curmirr)
			continue;
		// Store seperator line
		bae_clearpoints();
		bae_storepoint(
		 elemxo+curdir*(elemmdim+ELEMSPC)-0.5*ELEMSPC,elemyo,0);
		bae_storepoint(elemxo+curdir*(elemmdim+ELEMSPC)-0.5*ELEMSPC,
		 elemyo+2.0*elemmdim+ELEMSPC,0);
		scm_storepoly(C_POLYDOCLINE);
		}
	// Store horizontal seperator line
	bae_clearpoints();
	bae_storepoint(elemxo,elemyo+elemmdim+0.5*ELEMSPC,0);
	bae_storepoint(
	 elemxo+4.0*elemmdim+3.0*ELEMSPC,elemyo+elemmdim+0.5*ELEMSPC,0);
	scm_storepoly(C_POLYDOCLINE);
	// Reset the group
	bae_callmenu(MNU_SCMGRPRESE);
	bae_prtdialog("");
	// Select all text elements
	forall (fig where fig.TYP==C_FIGTEXT && fig!=nfig)
		scm_elemgrpchg(fig,1);
	// Unglue texts
	setglue(0,1);
	bae_postprocess();
	// Get predicate rule definition prefix
	sprintf(cpdefprefix,":%s:%s=",RS_SCMSUBJ,RS_TXTCLASS);
	cpdeflen=strlen(cpdefprefix);
	rvpdeflen=strlen(ROTVISPREF);
	// Scan the texts
	forall (fig where fig.GROUP && fig.TYP==C_FIGTEXT) {
		// Get the rotation visibility
		if (cap_rulequery(
		 RS_OCFIG,fig,RS_SCMSUBJ,RS_ROTVIS,"?d",rotvis)<1)
			rotvis=0x3F;
		if ((rotvis&0x30)==0)
			rotvis|=0x30;
		// Query the text class mask
		if (cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,
		 RS_TXTCLASS,"?d",textclass)<1)
			// Set default mask
			textclass=0;
		// Mask out rotation visibility class
		textclass&=(~ROTVISTCLASS);
		// Get the rule count
		rulen=0;
		rulel=emptyrulel;
		if ((rnc=cap_getrulecnt(RS_OCFIG,fig))>0)
			// Scan the rule name list
			for (i=0;i<rnc;i++)
				if (cap_getrulename(RS_OCFIG,fig,i,rn)==0 &&
				 strextract(rn,0,cpdeflen-1)!=cpdefprefix &&
				 strextract(rn,0,rvpdeflen-1)!=ROTVISPREF)
					// Store the rule name
					rulel[rulen++]=rn;
		// Loop for all directions
		for (curmirr=0x10;curmirr<=0x20;curmirr+=0x10)
		    for (curdir=0;curdir<4;curdir++) {
			if ((rotvis&(1<<curdir))==0 || (rotvis&curmirr)==0)
				continue;
			// Get the new text position
			tx=fig.X-elemxo;
			ty=fig.Y-elemyo;
			if (curmirr==0x10) {
				switch (curdir) {
					case 0 :
					x=elemxo+tx;
					y=2.0*(elemyo+elemmdim+0.5*ELEMSPC)-
					 (elemyo+ty);
					ang=fig.ANGLE;
					break;
					case 1 :
					x=elemxo+elemmdim+ELEMSPC+ty;
					y=2.0*(elemyo+elemmdim+0.5*ELEMSPC)-
					 (elemyo+elemmdim-tx);
					ang=
					 fig.ANGLE+(fig.MIRROR ? PI2 : -PI2);
					break;
					case 2 :
					x=elemxo+3.0*elemmdim+2.0*ELEMSPC-tx;
					y=2.0*(elemyo+elemmdim+0.5*ELEMSPC)-
					 (elemyo+elemmdim-ty);
					ang=fig.ANGLE+PI;
					break;
					case 3 :
					x=elemxo+4.0*elemmdim+3.0*ELEMSPC-ty;
					y=2.0*(elemyo+elemmdim+0.5*ELEMSPC)-
					 (elemyo+tx);
					ang=
					 fig.ANGLE+(fig.MIRROR ? -PI2 : PI2);
					break;
					}
				}
			else {
				switch (curdir) {
					case 0 :
					x=fig.X;
					y=fig.Y;
					ang=fig.ANGLE;
					break;
					case 1 :
					x=elemxo+2.0*elemmdim+ELEMSPC-ty;
					y=elemyo+tx;
					ang=
					 fig.ANGLE+(fig.MIRROR ? - PI2 : PI2);
					break;
					case 2 :
					x=elemxo+3.0*elemmdim+2.0*ELEMSPC-tx;
					y=elemyo+elemmdim-ty;
					ang=fig.ANGLE+PI;
					break;
					case 3 :
					x=elemxo+3.0*elemmdim+3.0*ELEMSPC+ty;
					y=elemyo+elemmdim-tx;
					ang=
					 fig.ANGLE+(fig.MIRROR ? PI2 : -PI2);
					break;
					}
				}
			// Adjust angle to [0,2*PI[
			while (ang<0.0)
				ang+=2.0*PI;
			while (ang>=2.0*PI)
				ang-=2.0*PI;
			// Store the text
			if (scm_storetext(fig.NAME,x,y,ang,fig.SIZE,
			 curmirr==0x10 ? 1-fig.MIRROR : fig.MIRROR,
			 fig.TEXT.MODE)) {
				// Restore old grid and angle lock flags
				bae_setgridlock(gridlock);
				bae_setanglelock(anglock);
				errormsg(ERRTEXT,fig.NAME);
				}
			// Transfer rules
			if (curdir==0 && curmirr==0x20 &&
			 cap_lastfigelem(nfig)==0 && rulen>0) {
				if (textclass!=0)
					sprintf(rulel[rulen],":%s:%s=%d;",
					 RS_SCMSUBJ,RS_TXTCLASS,textclass);
				if (cap_rulefigatt(nfig,rulel))
					rsc_error(-1);
				}
			}
		// Delete the old text
		dfig=fig;
		scm_delelem(dfig);
		}
	// Restore old grid and angle lock flags
	bae_setgridlock(gridlock);
	bae_setanglelock(anglock);
	// Set the expansion data
	varset(VAR_EMDIM,elemmdim);
	varset(VAR_EWIDTH,elemw);
	varset(VAR_EHEIGHT,elemh);
	varset(VAR_EXOFF,elemxo);
	varset(VAR_EYOFF,elemyo);
	// Zoom overview
	bae_callmenu(MNU_BAEZOOMALL);
}

static void symrotcombine()
// Combine rotated symbols to single symbol with text rotation visibility ass.
{
	index C_FIGURE fig		/* Figure list index */;
	index C_FIGURE dfig		/* Delete figure list element */;
	index C_FIGURE nfig		/* New figure list index */;
	string rn			/* Rule name buffer */;
	int rnc				/* Rule name count */;
	string cpdefprefix		/* Class pred. definition prefix */;
	int cpdeflen			/* Class pred. def. length */;
	int rvpdeflen			/* Rot. vis. pred. def. length */;
	int textclass			/* Text class */;
	double x, y			/* Current position */;
	double tx, ty			/* Text offset vector */;
	double ang			/* Current angle */;
	int curdir			/* Current direction */;
	int curmirr			/* Current mirroring */;
	int rotvis			/* Rotation visibility mask */;
	int gridlock			/* Grid lock mode */;
	int anglock			/* Angle lock mode */;
	int oldfigdis			/* Old figure list disable bits */;
	int i				/* Loop control variable */;
	// Check the plan class
	if (ddbclass!=DDBCLSSYM)
		error_class();
	// Get the element data
	if (varget(VAR_EWIDTH,elemw) || varget(VAR_EHEIGHT,elemh)
	 || varget(VAR_EXOFF,elemxo) || varget(VAR_EYOFF,elemyo)
	 || varget(VAR_ELX,wslx) || varget(VAR_ELY,wsly)
	 || varget(VAR_EUX,wsux) || varget(VAR_EUY,wsuy)
	 || varget(VAR_EMDIM,elemmdim) || varget(VAR_ETYP,oldfigdis))
		error(ERRNOEXP);
	// Save current state for undo
	bae_callmenu(MNU_BAESAVESTATE);
	// Delete help text
	forall (fig where fig.TYP==C_FIGTEXT && (fig.NAME==UPRTXTLEFT ||
	 fig.NAME==UPRTXTRIGHT)) {
		dfig=fig;
		scm_delelem(dfig);
		break;
		}
	// Select all text elements
	forall (fig where fig.TYP==C_FIGTEXT)
		scm_elemgrpchg(fig,1);
	// Get predicate rule definition prefix
	sprintf(cpdefprefix,":%s:%s=",RS_SCMSUBJ,RS_TXTCLASS);
	cpdeflen=strlen(cpdefprefix);
	rvpdeflen=strlen(ROTVISPREF);
	// Scan the texts
	forall (fig where fig.GROUP && fig.TYP==C_FIGTEXT) {
		// 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 rule count
		rulen=0;
		rulel=emptyrulel;
		if ((rnc=cap_getrulecnt(RS_OCFIG,fig))>0)
			// Scan the rule name list
			for (i=0;i<rnc;i++)
				if (cap_getrulename(RS_OCFIG,fig,i,rn)==0 &&
				 strextract(rn,0,cpdeflen-1)!=cpdefprefix &&
				 strextract(rn,0,rvpdeflen-1)!=ROTVISPREF)
					// Store the rule name
					rulel[rulen++]=rn;
		// Get the rotation visibility
		curdir=(fig.X-elemxo)/(elemmdim+ELEMSPC);
		curmirr= fig.Y>(elemyo+elemmdim+0.5*ELEMSPC) ? 1 : 0 ;
		// Get the text base position and angle
		if (curmirr) {
			// Get the new text position
			tx=fig.X-elemxo;
			ty=fig.Y-elemyo;
			switch (curdir) {
				case 0 :
				x=elemxo+tx;
				y=elemyo+2.0*elemmdim+ELEMSPC-ty;
				ang=fig.ANGLE;
				rotvis=0x11;
				break;
				case 1 :
				x=elemxo-elemmdim-ELEMSPC+ty;
				y=elemyo+(tx-elemmdim-ELEMSPC);
				ang=fig.ANGLE+(fig.MIRROR ? PI2 : -PI2);
				rotvis=0x12;
				break;
				case 2 :
				x=elemxo-(tx-3.0*elemmdim-2.0*ELEMSPC);
				y=elemyo-elemmdim-ELEMSPC+ty;
				ang=fig.ANGLE-PI;
				rotvis=0x14;
				break;
				case 3 :
				x=elemxo+2.0*elemmdim+ELEMSPC-ty;
				y=elemyo-(tx-4.0*elemmdim-3.0*ELEMSPC);
				ang=fig.ANGLE+(fig.MIRROR ? -PI2 : PI2);
				rotvis=0x18;
				break;
				}
			}
		else {
			// Get the new text position
			tx=fig.X-elemxo;
			ty=fig.Y-elemyo;
			switch (curdir) {
				case 0 :
				x=elemxo+tx;
				y=elemyo+ty;
				ang=fig.ANGLE;
				rotvis=0x21;
				break;
				case 1 :
				x=elemxo+ty;
				y=elemyo-(tx-2.0*elemmdim-ELEMSPC);
				ang=fig.ANGLE+(fig.MIRROR ? PI2 : -PI2);
				rotvis=0x22;
				break;
				case 2 :
				x=elemxo-(tx-3.0*elemmdim-2.0*ELEMSPC);
				y=elemyo+elemmdim-ty;
				ang=fig.ANGLE-PI;
				rotvis=0x24;
				break;
				case 3 :
				x=elemxo+elemmdim-ty;
				y=elemyo+(tx-3.0*elemmdim-3.0*ELEMSPC);
				ang=fig.ANGLE+(fig.MIRROR ? -PI2 : PI2);
				rotvis=0x28;
				break;
				}
			}
		// Adjust angle to [0,2*PI[
		while (ang<0.0)
			ang+=2.0*PI;
		while (ang>=2.0*PI)
			ang-=2.0*PI;
		// Store the text
		if (scm_storetext(fig.NAME,x,y,ang,fig.SIZE,
		  curmirr ? 1-fig.MIRROR : fig.MIRROR,fig.TEXT.MODE) ||
		 cap_lastfigelem(nfig))
			errormsg(ERRTEXT,fig.NAME);
		// Attach the rotation visibility rules
		sprintf(rulel[rulen],":%s:%s=%d;",RS_SCMSUBJ,RS_ROTVIS,rotvis);
		rulen++;
		if (curdir!=0 && curmirr==0)
			textclass|=ROTVISTCLASS;
		if (textclass!=0) {
			sprintf(rulel[rulen],":%s:%s=%d;",
			 RS_SCMSUBJ,RS_TXTCLASS,textclass);
			rulen++;
			}
		sprintf(rulel[rulen],":%s:%s=1;",RS_SCMSUBJ,RS_GLUED);
		if (cap_rulefigatt(nfig,rulel))
			rsc_error(-1);
		// Delete the old text
		dfig=fig;
		scm_delelem(dfig);
		}
	// Get old grid and angle lock flags
	gridlock=bae_getgridlock();
	anglock=bae_getanglelock();
	// Free grid and angle
	bae_setgridlock(0);
	bae_setanglelock(0);
	// Delete the non-base directions
	bae_clriactqueue();
	bae_storemenuiact(1,4,LMB);
	bae_storemenuiact(1,0,LMB);
	bae_storemouseiact(1,elemxo+elemw,elemyo-0.5*ELEMSPC,0,LMB);
	bae_storemouseiact(1,bae_planwsux()-0.25*ELEMSPC,
	 elemyo-0.5*ELEMSPC,0,LMB);
	bae_storemouseiact(1,bae_planwsux()-0.25*ELEMSPC,
	 bae_planwsuy()-0.25*ELEMSPC,0,LMB);
	bae_storemouseiact(1,bae_planwslx()+0.25*ELEMSPC,
	 bae_planwsuy()-0.25*ELEMSPC,0,LMB);
	bae_storemouseiact(1,bae_planwslx()+0.25*ELEMSPC,elemyo+elemh,0,LMB);
	bae_storemouseiact(1,elemxo+elemw,elemyo+elemh,0,LMB);
	bae_storemouseiact(1,0.0,0.0,1,RMB);
	bae_storemenuiact(1,0,LMB);
	bae_callmenu(MNU_SCMGRPPOLY);
	bae_callmenu(MNU_SCMDELGRP);
	// Restore old element boundaries
	bae_clriactqueue();
	bae_storemouseiact(1,wsux,wsuy,0,LMB);
	bae_callmenu(MNU_SCMPARUBND);
	bae_clriactqueue();
	bae_storemouseiact(1,wslx,wsly,0,LMB);
	bae_callmenu(MNU_SCMPARLBND);
	// Restore old grid and angle lock flags
	bae_setgridlock(gridlock);
	bae_setanglelock(anglock);
	// Restore old pick element set
	varset(VAR_MSFIGDIS,oldfigdis);
	// Zoom overview
	bae_callmenu(MNU_BAEZOOMALL);
	// Delete the expansion data
	vardelete(VAR_EMDIM);
	vardelete(VAR_EWIDTH);
	vardelete(VAR_EHEIGHT);
	vardelete(VAR_EXOFF);
	vardelete(VAR_EYOFF);
	vardelete(VAR_ELX);
	vardelete(VAR_ELY);
	vardelete(VAR_EUX);
	vardelete(VAR_EUY);
	vardelete(VAR_ETYP);
}

static void sympinorder()
// Set the spice model symbol pin order
{
	index C_FIGURE fig		/* Figure list index */;
	string msg			/* Message buffer */;
	int pinn = 0			/* Pin count */;
	int cflag = 0			/* Change flag */;
	int i				/* Loop control variable */;
	// Check the plan class
	if (ddbclass!=DDBCLSSYM)
		error_class();
	// Reset group
	bae_callmenu(MNU_SCMGRPRESE);
	// Select all pin elements
	forall (fig where fig.TYP==C_FIGNREF) {
		scm_elemgrpchg(fig,1);
		pinn++;
		}
	// Scan the pin order
	for (i=0;i<pinn;i++) {
		sprintf(msg,UPRSELPIN,i+1);
		bae_promptdialog(msg);
		if (scm_pickelem(fig,C_FIGNREF)!=0)
			error_abort();
		// Save current state for undo
		if (cflag==0) {
			bae_callmenu(MNU_BAESAVESTATE);
			cflag=1;
			}
		// Assign the spice pin index predicate rule
		rsc_assfigintpred(fig,RS_SPICEPINIDX,i,(-1),"");
		scm_elemgrpchg(fig,0);
		}
}

static void symmodel()
// Set the spice symbol model
{
	string modelname		/* Model name */;
	// Check the plan class
	if (ddbclass!=DDBCLSSYM)
		error_class();
	// Get old model name
	if (cap_rulequery(
	 RS_OCPLAN,0,RS_SCMSUBJ,RS_SPICEMODEL,"?s",modelname)<1)
		// Set spice model name
		modelname="";
	switch (modelname) {
		case "R" :
		bae_defmenusel(0);
		break;
		case "C" :
		bae_defmenusel(1);
		break;
		case "L" :
		bae_defmenusel(2);
		break;
		default :
		;
		}
	// Select the model type
	bae_promptdialog(UPRSELMODEL);
	switch (bae_askmenu(21,UPRSELMOD0,UPRSELMOD1,UPRSELMOD2,UPRSELMOD3,
	 UPRSELMOD4,UPRSELMOD5,UPRSELMOD6,UPRSELMOD7,UPRSELMOD8,UPRSELMOD9,
	 UPRSELMOD10,UPRSELMOD11,UPRSELMOD12,UPRSELMOD13,UPRSELMOD14,
	 UPRSELMOD15,UPRSELMOD16,UPRSELMOD17,UPRSELMOD18,UPRSELMOD19,
	 UPRABORT)) {
		// Resistor
		case 0 :
		modelname="R";
		break;
		// Capacitor
		case 1 :
		modelname="C";
		break;
		// Inductor
		case 2 :
		modelname="L";
		break;
		// Voltage controlled Switch
		case 3 :
		modelname="S";
		break;
		// Current controlled Switch
		case 4 :
		modelname="W";
		break;
		// Voltage Source
		case 5 :
		modelname="V";
		break;
		// Current Source Switch
		case 6 :
		modelname="I";
		break;
		// Voltage controlled Current Source
		case 7 :
		modelname="G";
		break;
		// Voltage controlled Voltage Source
		case 8 :
		modelname="E";
		break;
		// Current controlled Current Source
		case 9 :
		modelname="H";
		break;
		// Current controlled Voltage Source
		case 10 :
		modelname="B";
		break;
		// Lossless Transmission Line
		case 11 :
		modelname="T";
		break;
		// Lossy Transmission Line
		case 12 :
		modelname="O";
		break;
		// Uniform distributed RC Lines
		case 13 :
		modelname="U";
		break;
		// Junction Diode
		case 14 :
		modelname="D";
		break;
		// Bipolar Transistor
		case 15 :
		modelname="Q";
		break;
		// JFET
		case 16 :
		modelname="J";
		break;
		// MOSFET
		case 17 :
		modelname="M";
		break;
		// MESFET
		case 18 :
		modelname="Z";
		break;
		// Subcurcuit
		case 19 :
		modelname="X";
		break;
		default :
		error_abort();
		}
	// Save current state for undo
	bae_callmenu(MNU_BAESAVESTATE);
	// Assign the spice model name predicate rule
	rsc_assplanstrpred(0,RS_SPICEMODEL,modelname,"","");
}

static void setconmode()
// Set the connectivity mode
{
	STRINGS el			/* Element name list */;
	int en		= 0		/* Element name count */;
	string ename	= ""		/* Element name */;
	int oldconmode			/* Old connectivity mode */;
	int newconmode			/* New connectivity mode */;
	int i				/* Loop control variable */;
	// Check the plan class
	if (ddbclass!=DDBCLSCM)
		error_class();
	// Query the current active connectivity mode
	if (cap_rulequery(RS_OCSCMDB,0,RS_SCMSUBJ,RS_CONMODE,"?d",
	 oldconmode)<1)
		// Set default connectivity mode
		oldconmode=0;
	bae_defmenusel(oldconmode);
	// Select the connectivity mode
	bae_promptdialog(UPRSELCONMODE);
	if ((newconmode=bae_askmenu(4,UPRCON0,UPRCON1,UPRCON2,UPRABORT))<0 ||
	 newconmode>2)
		error_abort();
	// Check if mode change
	if (oldconmode!=newconmode) {
		if (newconmode==1 &&
		 bae_msgboxverify(UPRCONWRN1+UPRCONWRN2,"")==0)
			error_abort();
		// Count project pages
		while (scanddbenames(bae_planfname(),DDBCLSCM,ename)==1) {
			// Add the element name
			el[en]=ename;
			en++;
			}
		if (en>1 && newconmode!=2 &&
		 bae_msgboxverify(UPRCONUPD1+UPRCONUPD2,"")==0)
			error_abort();
		// Save current state for undo
		bae_callmenu(MNU_BAESAVESTATE);
		// Assign the connectivity mode predicate rule
		if (newconmode!=2)
			rsc_assplanintpred(1,RS_CONMODE,newconmode,0,"");
		// Process other schematic sheets
		if (en>1) {
			// Buffer current element name
			ename=bae_planename();
			// Save current element
			call(MNU_SCMSAVELEM);
			for (i=0;i<en;i++) {
				if (ename==el[i])
					continue;
				// Load element
				bae_setintpar(22,1);
				loadddbelem(bae_planfname(),el[i],DDBCLSCM);
				bae_setintpar(22,1);
				// Save changed connectivity
				call(MNU_SCMSAVELEM);
				bae_setintpar(22,0);
				}
			// Reload current element
			if (bae_planename()!=ename) {
				bae_setintpar(22,2);
				loadddbelem(bae_planfname(),ename,DDBCLSCM);
				}
			}
		}
}

static void netareaname()
/*
// Assign net area name to documentary area
*/
{
	index C_FIGURE fig		/* Figure list index */;
	string netarea			/* Net area name */;
	// Scan net area names
	bae_prtdialog(REPNETSCAN);
	bae_nameclr();
	forall (fig where fig.TYP==C_FIGPOLY && fig.RULEOBJID>=0) {
		// Query net area name predicate
		if (cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,RS_TNETAREA,
		 "?s",netarea)<1)
			continue;
		bae_nameadd(netarea,"","","",2);
		}
	// Select net area name
	netarea="";
	bae_setintpar(16,3137);
	if (bae_askname(netarea,UPRNETAREA,MAXKEYLEN))
		// Aborted
		error_abort();
	bae_prtdialog(UPRSELNAREA);
	if (scm_pickelem(fig,C_FIGPOLY)==0) {
		// Save current state for undo
		bae_callmenu(MNU_BAESAVESTATE);
		// Assign the net area name predicate rule
		rsc_assfigstrpred(fig,RS_TNETAREA,netarea,"","");
		// Redraw the screen
		bae_callmenu(MNU_BAEREDISPL);
		}
}

static void updrules()
/*
// Update project rules from rule database
*/
{
	string msg			/* Message string */;
	string fn			/* Project file name */;
	string rn = ""			/* Rule name */;
	int cnt = 0			/* Rule count */;
	// Select project file name
	if (bae_askddbfname(fn,1,UPRPFILE))
		// Abort
		error_abort();
	// Scan project rules
	while (scanddbenames(fn,DDBCLRULE,rn)==1)
		if (ddbcopyelem(rscdatabase,fn,DDBCLRULE,rn,1)==0)
			cnt++;
	sprintf(msg,REPRULECOPY,cnt);
	bae_prtdialog(msg);
}

void setglue(int glue,int grpflag)
/*
// Set glue mode
// Parameters :
//	int glue		: Glue mode
//	int grpflag		: Group process flag
*/
{
	index C_FIGURE fig		/* Pick element */;
	index C_CONSEG conseg		/* Connection segment index */;
	if (grpflag) {
		forall (fig where fig.GROUP && fig.TYP!=C_FIGCON)
			rsc_assfigintpred(fig,RS_GLUED,glue,0,"");
		// Loop for all group elements
		forall (conseg where conseg.GROUP)
			rsc_assconintpred(conseg,RS_GLUED,glue,0,"");
		}
	else {
		// Loop while element picked
		bae_prtdialog(UPRSELNREF);
		while (scm_pickelem(fig,C_FIGNREF)==0)
			rsc_assfigintpred(fig,RS_GLUED,glue,0,"");
		bae_prtdialog("");
		}
}

static void elementfunctions()
// Edit element functions
{
	index C_FIGURE fig		/* Figure list index */;
	string selmsg			/* Selection message string */;
	int seltyp			/* Selection element type */;
	string predname			/* Predicate name */;
	int lfctn			/* Last function count */;
	int cflag = 0			/* Change flag */;
	int i				/* Loop control variable */;
	if (ddbclass!=DDBCLSCM && ddbclass!=DDBCLSSYM && ddbclass!=DDBCLSLAB)
		error_class();
	// Select the element type
	bae_promptdialog(UPRSELETYP);
	switch (bae_askmenu(5,(ddbclass==DDBCLSLAB ? "," : "")+UPRSELE0,
	 UPRSELE2,UPRSELE3,(ddbclass==DDBCLSCM ? "," : "")+UPRSELE4,
	 UPRABORT)) {
		// Named references
		case 0 :
		if (ddbclass==DDBCLSLAB)
			error_class();
		seltyp=C_FIGNREF;
		selmsg=UPRSELNREF;
		break;
		// Areas
		case 1 :
		seltyp=C_FIGPOLY;
		selmsg=UPRSELPOLY;
		break;
		// Texts
		case 2 :
		seltyp=C_FIGTEXT;
		selmsg=UPRSELTEXT;
		break;
		// Plan
		case 3 :
		if (ddbclass==DDBCLSCM)
			error_class();
		seltyp=(-1);
		break;
		// Abort
		case 4 :
		default :
		error_abort();
		}
	// Check if plan rule
	if (seltyp<0) {
		// Get old functions
		for (cfctn=0;cfctn<MAXMENUITEM;cfctn++) {
			sprintf(predname,RS_FCTSEQ,cfctn);
			if (cap_rulequery(RS_OCPLAN,0,RS_SCMSUBJ,predname,
			 "?s",cfctl[cfctn].seq)<1 || cfctl[cfctn].seq=="")
				break;
			sprintf(predname,RS_FCTNAME,cfctn);
			if (cap_rulequery(RS_OCPLAN,0,RS_SCMSUBJ,predname,
			 "?s",cfctl[cfctn].menu)<1)
				cfctl[cfctn].menu="";
			}
		lfctn=cfctn;
		// Edit the functions
		editfunctions();
		// Save current state for undo
		bae_callmenu(MNU_BAESAVESTATE);
		// Set new functions
		for (i=0;i<cfctn;i++) {
			sprintf(predname,RS_FCTSEQ,i);
			rsc_assplanstrpred(0,predname,cfctl[i].seq,"","");
			sprintf(predname,RS_FCTNAME,i);
			rsc_assplanstrpred(0,predname,cfctl[i].menu,"","");
			}
		// Clear deleted function
		for (;i<lfctn;i++) {
			sprintf(predname,RS_FCTSEQ,i);
			rsc_assplanstrpred(0,predname,"","","");
			sprintf(predname,RS_FCTNAME,i);
			rsc_assplanstrpred(0,predname,"","","");
			}
		}
	else {
		// Loop while element picked
		bae_prtdialog(selmsg);
		while (scm_pickelem(fig,seltyp)==0) {
			for (cfctn=0;cfctn<MAXMENUITEM;cfctn++) {
				sprintf(predname,RS_FCTSEQ,cfctn);
				if (cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,
				  predname,"?s",cfctl[cfctn].seq)<1 ||
				 cfctl[cfctn].seq=="")
					break;
				sprintf(predname,RS_FCTNAME,cfctn);
				if (cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,
				 predname,"?s",cfctl[cfctn].menu)<1)
					cfctl[cfctn].menu="";
				}
			lfctn=cfctn;
			// Edit the functions
			editfunctions();
			// Save current state for undo
			if (cflag==0) {
				bae_callmenu(MNU_BAESAVESTATE);
				cflag=1;
				}
			// Set new functions
			for (i=0;i<cfctn;i++) {
				sprintf(predname,RS_FCTSEQ,i);
				rsc_assfigstrpred(
				 fig,predname,cfctl[i].seq,"","");
				sprintf(predname,RS_FCTNAME,i);
				rsc_assfigstrpred(
				 fig,predname,cfctl[i].menu,"","");
				}
			// Clear deleted function
			for (;i<lfctn;i++) {
				sprintf(predname,RS_FCTSEQ,i);
				rsc_assfigstrpred(fig,predname,"","","");
				sprintf(predname,RS_FCTNAME,i);
				rsc_assfigstrpred(fig,predname,"","","");
				}
			// Prompt for next element
			bae_prtdialog(selmsg);
			}
		}
}

void editfunctions()
/*
// Edit current function set
*/
{
	struct cfctdes swapmenu		/* Menu item swap buffer */;
	string msg			/* Message buffer */;
	double cy			/* Current y value */;
	double butx			/* Current button position */;
	double dialwidth		/* Dialog box width */;
	double dialheight		/* Dialog box height */;
	double baseheight		/* Dialog box base height */;
	int lbidx			/* List box item index */;
	int repflag	= 1		/* Repeat flag */;
	int res				/* Dialog box result buffer */;
	int from			/* From index */;
	int to				/* To index */;
	int i				/* Loop control variable */;
	// Check if dialog box support
	if (bae_dialclr())
		error(ERRNOWIN);
	baseheight=DIAL_TOPMARG+DIAL_SEPVSTEP+DIAL_BUTVSTEP;
	// Perform the input loop
	do {
		bae_dialclr();
		dial_getboxsizemin(3029,dialwidth,dialheight,
		 DIAL_LEFTMARG+SELBOXWIDTHFS+DIAL_RIGHTSMARG,baseheight+16.0,
		 DIAL_LEFTMARG+87.0,baseheight+1.0);
		cy=DIAL_TOPMARG;
		butx=DIAL_LEFTMARG+1.0;
		// Store function buttons
		// Edit menu item
		if (cfctn) {
			bae_dialaddcontrol(PA_ACT,0,0,0,0.0,0.0,0.0,
			 "",0,butx,cy,0.0,UPRDEDIT);
			butx+=BUTXSTEP+bae_dialgettextlen(0,UPRDEDIT);
			}
		// Add menu item
		if (cfctn<MAXMENUITEM) {
			bae_dialaddcontrol(PA_ACT,0,1,0,0.0,0.0,0.0,
			 "",0,butx,cy,0.0,UPRDADDF);
			butx+=BUTXSTEP+bae_dialgettextlen(0,UPRDADDF);
			bae_dialaddcontrol(PA_ACT,0,2,0,0.0,0.0,0.0,
			 "",0,butx,cy,0.0,UPRDADDM);
			butx+=BUTXSTEP+bae_dialgettextlen(0,UPRDADDM);
			bae_dialaddcontrol(PA_ACT,0,6,0,0.0,0.0,0.0,
			 "",0,butx,cy,0.0,UPRDADDU);
			butx+=BUTXSTEP+bae_dialgettextlen(0,UPRDADDU);
			}
		// Delete menu item
		if (cfctn) {
			bae_dialaddcontrol(PA_ACT,0,3,0,0.0,0.0,0.0,
			 "",0,butx,cy,0.0,UPRDDEL);
			butx+=BUTXSTEP+bae_dialgettextlen(0,UPRDDEL);
			bae_dialaddcontrol(PA_ACT,0,5,0,0.0,0.0,0.0,
			 "",0,butx,cy,0.0,UPRDDELA);
			butx+=BUTXSTEP+bae_dialgettextlen(0,UPRDDELA);
			}
		// Move menu item
		if (cfctn>1) {
			bae_dialaddcontrol(PA_ACT,0,4,0,0.0,0.0,0.0,
			 "",0,butx,cy,0.0,UPRDMOVE);
			butx+=BUTXSTEP+bae_dialgettextlen(0,UPRDMOVE);
			}
		// Store done button
		bae_dialaddcontrol(PA_ACT,0,(-1),0,0.0,0.0,0.0,"",0,
		 butx,cy,0.0,UPRDDONE);
		cy+=DIAL_BUTVSTEP;
		// Store list box
		lbidx=bae_dialadvcontrol(PA_LB|PA_OKSEL|PA_HBRDREL|PA_VBRDREL,
		 (-1),0,(-1),0.0,0.0,0.0,"",0,
		 DIAL_LEFTMARG,cy,DIAL_RIGHTSMARG,DIAL_SEPVSTEP,"");
		// Store list box entries
		for (i=0;i<cfctn;i++)
			bae_dialaddcontrol(PA_LBE,0,0,i,0.0,0.0,0.0,
			 "",0,0.0,0.0,0.0,cfctl[i].menu);
		cy+=dialheight-baseheight;
		// Call the dialog function
		bae_setintpar(16,3029);
		switch (bae_dialaskparams("!"+UPRDIALFFUNC,3,
		 dialwidth,cy+DIAL_SEPVSTEP)) {
			case 0 :
			// Edit menu item
			bae_dialgetdata(lbidx,i,0.0,"");
			if (i>=0 && i<cfctn)
				menuitemedit(i);
			break;
			// Add menu item menu function
			case 1 :
			if (bae_swconfig(3)==BAE_WinPulldwn ||
			 bae_swconfig(3)==BAE_MotifPdwn) {
				if (bae_getmenuitem(0,cfctl[cfctn].menu,
				 cfctl[cfctn].seq)!=0)
					error_abort();
				// Dismiss leading menu path
				for (i=strlen(cfctl[cfctn].menu)-4;i>=0;i--)
					if (cfctl[cfctn].menu[i]==' ' &&
					 cfctl[cfctn].menu[i+1]=='-' &&
					 cfctl[cfctn].menu[i+2]=='>' &&
					 cfctl[cfctn].menu[i+3]==' ') {
						cfctl[cfctn].menu=strextract(
						 cfctl[cfctn].menu,i+4,strlen(
						 cfctl[cfctn].menu));
						break;
						}
				for (i=strlen(cfctl[cfctn].seq)-1;i>=0;i--)
					if (cfctl[cfctn].seq[i]=='\'')
						cfctl[cfctn].seq[i]='"';
				}
			else {
				cfctl[cfctn].menu=cfctl[cfctn].seq="";
				}
			// Edit menu item data
			if (menuitemedit(cfctn)==0)
				cfctn++;
			break;
			// Add menu item macro
			case 2 :
			macn=0;
			sprintf(sqlcommand,MN_SELECT,IPTYP);
			if (sqlcmd(BAEMACRODB,sqlcommand,macselfunc)!=0)
				// SQL/DB error
				sql_dberror(0);
			if (macn==0) {
				bae_msgbox(1,ERRNOMACRO,"");
				break;
				}
			bae_setintpar(16,3075);
			if ((cfctl[cfctn].menu=popupmenu(1,UPRMACSEL,macl,0,
			  macl,macn,UINPOPABORT,0,1,1,macn+2,0,0,""))=="" ||
			 cfctl[cfctn].menu==UINPOPABORT)
				error_abort();
			cfctl[cfctn].seq=
			 UL_MACRO+":\""+cfctl[cfctn].menu+"\"";
			// Edit menu item data
			if (menuitemedit(cfctn)==0)
				cfctn++;
			break;
			// Delete menu item
			case 3 :
			bae_dialgetdata(lbidx,i,0.0,"");
			if (i>=0 && i<cfctn) {
				cfctn--;
				for (i++;i<cfctn;i++)
					cfctl[i]=cfctl[i+1];
				}
			break;
			// Move menu item
			case 4 :
			bae_dialgetdata(lbidx,from,0.0,"");
			if (from<0 || from>=cfctn) {
				bae_msgbox(2,ERRNOMOVITEM,"");
				break;
				}
			baseheight=DIAL_TOPMARG+DIAL_SEPVSTEP+DIAL_BUTVSTEP;
			do {
				bae_dialclr();
				dial_getboxsizemin(3029,dialwidth,dialheight,
				 DIAL_LEFTMARG+SELBOXWIDTHFS+DIAL_RIGHTSMARG,
				 baseheight+16.0,
				 DIAL_LEFTMARG+87.0+DIAL_RIGHTSMARG,
				 baseheight+1.0);
				cy=DIAL_TOPMARG;
				// Store the OK and abort button with seperator
				dial_okabort(cy);
				cy-=DIAL_SEPVSTEP;
				// Store list box
				lbidx=bae_dialadvcontrol(PA_LB|PA_OKSEL|
				 PA_HBRDREL|PA_HSCROLL|PA_VBRDREL,(-1),0,(-1),
				 0.0,0.0,0.0,"",0,DIAL_LEFTMARG,cy,
				 DIAL_RIGHTSMARG,DIAL_SEPVSTEP,"");
				// Store list box entries
				for (i=0;i<cfctn;i++)
					bae_dialaddcontrol(PA_LBE,0,0,i,0.0,0.0,
					 0.0,"",0,0.0,0.0,0.0,cfctl[i].menu);
				cy+=dialheight-baseheight+DIAL_SEPVSTEP;
				bae_setintpar(16,3029);
				sprintf(msg,UPRITEMMOVDST,cfctl[from].menu);
				res=bae_dialaskparams("!"+msg,0,dialwidth,cy);
				// Stop if no further repeat requests
				} while (res==(-2));
			if (res<0)
				break;
			// Perform the menu item swap
			bae_dialgetdata(lbidx,to,0.0,"");
			if (to<0)
				break;
			swapmenu=cfctl[from];
			if (from>to)
				for (i=from;i>to;i--)
					cfctl[i]=cfctl[i-1];
			else
				for (i=from;i<to;i++)
					cfctl[i]=cfctl[i+1];
			cfctl[to]=swapmenu;
			break;
			// Delete all menu items
			case 5 :
			cfctn=0;
			break;
			// Add menu item ULC program
			case 6 :
			// Query ULC program name
			if (bae_askddbename(cfctl[cfctn].seq,
			 strgetconffilename(ULDEFPRGVNAME,ULDEFPRGFNAME,1),
			 DDBCLUL,UPRULCPROG))
				// Aborted
				error_abort();
			cfctl[cfctn].menu="ULC "+cfctl[cfctn].seq;
			// Edit menu item data
			if (menuitemedit(cfctn)==0)
				cfctn++;
			break;
			// Resize :
			case (-2) :
			break;
			// Done/Abort
			default :
			repflag=0;
			}
		// Stop if no further repeat requests
		} while (repflag);
}

int menuitemedit(int fctidx)
/*
// Edit menu function data
// Return value :
//	0 if done or (-1) on abort
// Parameters :
//	int fctidx		: Function index
*/
{
	string msg			/* Message string */;
	double cy			/* Dialog box current y coordinate */;
	int fnidx			/* Function name parameter index */;
	int fpidx			/* Function prog. parameter index */;
	bae_dialclr();
	// Init. the y coordinate
	cy=DIAL_TOPMARG;
	dial_label(0.0,cy,UPRDFCTNAME);
	fnidx=dial_string(cfctl[fctidx].menu,200,CCOLOFFF,cy);
	dial_label(0.0,cy,UPRDFCTPROG);
	fpidx=dial_string(cfctl[fctidx].seq,200,CCOLOFFF,cy);
	// Store the OK and abort button with seperator
	dial_hsep(cy);
	dial_okabort(cy);
	// Call the dialog function
	bae_setintpar(16,3030);
	sprintf(msg,UPRDIALFEDIT,fctidx+1);
	switch (bae_dialaskparams(msg,0,DIAL_LEFTMARG+
	 CCOLOFFF+ED_WIDTHF+DIAL_RIGHTSMARG,cy)) {
		case 0 :
		bae_dialgetdata(fnidx,0,0.0,cfctl[fctidx].menu);
		bae_dialgetdata(fpidx,0,0.0,cfctl[fctidx].seq);
		break;
		// Fail/abort
		case (-1) :
		default :
		return(-1);
		}
	// Return without errors
	return(0);
}

static int macselfunc(string dstr,int dint,double ddbl,
 int dval,int dtype,string dtable,string dfield,int didx)
/*
// Macro selection 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 */;
	// Store macro name sorted to list
	for (i=macn;i>0;i--)
		if (macl[i-1]>dstr)
			macl[i]=macl[i-1];
		else
			break;
	macl[i]=dstr;
	macn++;
	// Return without errors
	return(0);
}

static void prtgrpcount(int changes,int selectmode)
/*
// Print group selection/deselection statistics
// Parameters :
//	int changes		: Change count
//	int selectmode		: Select mode
*/
{
	index C_FIGURE fig		/* Figure list index */;
	string msg			/* Message buffer */;
	int grpelemn	= 0		/* Group element count */;
	// Count group elements
	forall (fig where fig.GROUP)
		grpelemn++;
	if (selectmode)
		sprintf(msg,REPELEMSEL,changes,grpelemn);
	else
		sprintf(msg,REPELEMDSEL,changes,grpelemn);
	bae_prtdialog(msg);
}

// Data conversion routines

double mmceil(double val)
/*
// Round meter input value up to next mm
// Return value :
//	rounded value in meters
// Parameters :
//	double val		: Input value
*/
{
	// Calculate result and return it
	return(ceil(val*1000.0)/1000.0);
}

double mmfloor(double val)
/*
// Round meter input value down to next mm
// Return value :
//	rounded value in meters
// Parameters :
//	double val		: Input value
*/
{
	// Calculate result and return it
	return(floor(val*1000.0)/1000.0);
}

// User Language program end