/* TBDVSCM (SCM) -- SCM Toolbar Design View Maintenance */
/* TBDVSCM (SCM) -- SCM Entwurfsansichten in Toolbar verwalten */
/* -- INTENDED FOR CALL BY *_TOOL FUNCTION -- */
/*
// Copyright (c) 1997-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 (091203) ENHANCEMENT:
//		Added text property controls to text input box.
//	rl (091021) RELEASED FOR BAE V7.4.
//	rl (081014) RELEASED FOR BAE V7.2.
//	rl (071029) RELEASED FOR BAE V7.0.
//	rl (070109) ENHANCEMENT:
//		Added $rpname initial name transfer support to symbol copy.
//	rl (060929) RELEASED FOR BAE V6.8.
//	rl (060410) ENHANCMENT:
//		Added design view display to birds eye view on info.
//	rl (050906) RELEASED FOR BAE V6.6.
//	rl (041117) ENHANCMENT:
//		Added group attribute set function to symbol attribute windows.
//	rl (041108) ENHANCMENT:
//		Added text selection list to toolbar add text functions.
//	rl (040826) RELEASED FOR BAE V6.4.
//	rl (040331) ENHANCMENT:
//		Added rule transfer to attribute/symbol copy.
//	rl (030909) RELEASED FOR BAE V6.2.
//	rl (030909) BUGFIX:
//		Fixed problem with unset attributes in symbol copy.
//	rl (030512) ENHANCEMENT:
//		Added inverted color palette correction.
//	rl (030317) ENHANCEMENT:
//		Changed overview window action from zoom last to
//		pan to pick position.
//	rl (030220) ENHANCEMENT:
//		Increased design view window drawing performance.
//	rl (030128) ENHANCEMENT:
//		Added text move preservation option for symbol clones.
//		Added label clone support.
//	rl (021209) RELEASED FOR BAE V6.0.
//	rl (020618) RELEASED FOR BAE V5.4.
//	rl (011211) ENHANCEMENT:
//		Added symbol macro consistency check for attribute setting.
//	rl (011122) BUGFIX:
//		Fixed problems with missing design view display after load.
//	rl (010626) RELEASED FOR BAE V5.0.
//	rl (010320) ENHANCEMENT:
//		Added symbol clone support.
//	rl (000504) RELEASED FOR BAE V4.6.
//	rl (990625) RELEASED FOR BAE V4.4.
//	rl (990415) ENHANCEMENT:
//		Added multiple attribute window support.
//	rl (981002) RELEASED FOR BAE V4.2.
//	mb (980714) CHANGE:
//		Do not issue invalid plan class error message
//		(to avoid confusion when implicitely called).
//	mb (980710) ENHANCEMENT:
//		Dynamic multi-language support introduced.
//	mb (980512) BUGFIX:
//		Bug in viewinfo() fixed (local variables
//		fname, ename, and ddbcl deleted for correct
//		access to global variables.
//	mb (980420) CHANGE:
//		Inline documentation changed.
//	rl (980324) ENHANCEMENT:
//		Added symbol attribute get/set window.
//	rl (971125) RELEASED FOR BAE V4.0.
//	rl (970603) ORIGINAL CODING.
//
// DESCRIPTION
//
// The tbdvscm User Language program handles SCM toolbar design
// view update requests and provides features for automatic
// template part attribute settings.
*/

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

// Disable undo state request
#pragma ULCALLERNOUNDO

// Messages
string UPRRCORNER1	= M("Fenster-Startpunkt waehlen!",
			    "Select first window corner!");
string UPRRCORNER2	= M("Fenster-Endpunkt waehlen!",
			    "Select second window corner!");
string UPRSYMBOL	= M("Symbol selektieren!","Select Symbol!");
string UPRTEXT		= M("Text ? ","Text ?");
string UPRVDDCONF	= M("Variantenabhaengige Attribute und/oder Plotsichtbarkeiten gefunden. Uebernehmen?",
			    "Found variant dependant attributes/plot visibilities. Copy ?");
string REPNEWCON	= M("Neue Verbindung","Add Connection");
string REPNEW2CON	= M("Punkt zu Punkt Verbindung",
			    "Point to Point Connection");
string REPNEWLINE	= M("Neue Grafiklinie","Add Graphic Line");
string REPDOTLINE	= M("Neue Punktlinie","Add Dot Line");
string REPNEWAREA	= M("Neue Grafikflaeche","Add Graphic Area");
string REPNEWSTEXT	= M("Neuer Standardtext '%s'",
			    "Add Standardtext '%s'");
string REPNEWCTEXT	= M("Neuer Kommentartext '%s'",
			    "Add Commentary Text '%s'");
string REPSYMPLACE	= M("Hinterlegtes Symbol platzieren:\n",
			    "Place buffered symbol:\n");
string REPWINRESTORE	= M("Hinterlegten Bildausschnitt wiederherstellen:\n\n",
			    "Restore buffered zoom window:\n\n");
string REPNEWSYM	= M("Symbol aus Toolbarbuffer %d platzieren",
			    "Toolbar Symbol Buffer %d Placement");
string REPNEWLAB	= M("Toolbar Neuer Label '%s'",
			    "Toolbar Add Label '%s'");
string REPSYMDAT	= M("Toolbar Symboldaten aus Buffer %d setzen",
			    "Toolbar Symbol Buffer 1 Data Transfer");
string UPRHEIGHT	= M("Hoehe :","Height :");
string UPRANG		= M("Winkel :","Angle :");
string UPRMIRROR	= M("Spiegelung","Mirror");
string UPRSTANDARD	= M("Standardtext","Standard Text");
string UPRCOMMENT	= M("Kommentartext","Commentary Text");
string UPRNOROT		= M("Keine Rotation","No Rotation");
string UPRCENTER	= M("Zentriert :","Centered :");
string UPRCENTN		= M("nein","no");
string UPRCENTH		= M("Breite","Width");
string UPRCENTV		= M("Hoehe","Height");
string UPRCENTHV	= M("Breite+Hoehe","Width+Height");
string UPRFRAME		= M("Rahmen :","Frame :");
string UPRFRAME1	= M("1","1");
string UPRFRAME2	= M("2","2");
string UPRFRAMEO	= M("links offen","left hand open");
string UPRPWIDTH	= M("Stiftbreite :","Pen Width :");
string WRNDIFFMAC	= M("Symbol '%s' Makro '%s' <> Quellmakro '%s'! Attribute setzen?",
			    "Symbol '%s' Macro '%s' <> Source Macro '%s'! Set Attributes?");
string ERRSETATT	= M("Fehler beim Eintragen der Attribute!",
			    "Error setting attributes!");
string ERRSETRUL	= M("Fehler beim Eintragen der Regeln!",
			    "Error setting rules!");
string ERRDELRUL	= M("Fehler beim Loeschen der Regeln!",
			    "Error deleting rules!");
string REPNOSYM		= M("Keine Symboldaten gespeichert!",
			    "No symbol data stored!");
string REPNILATT	= M("!nicht_gesetzt!","!not_set!");

#define PAR_DEFTEXTLST	"DEFTEXTLST_SCM"	// Default text list
#define PAR_NAMEPROMPT	"NAMEPROMPT_SCM"	// Name prompt mode
#define PAR_VARATTRCHK	"VARATTRCHK_SCM"// Variant attribute check flag

// Input definitions (must comply with button definitions from toolbar.ulc!)
#define UINVIEWCLEAR	'c'
#define UINVIEWREDISP	'd'
#define UINVIEWGET	'g'
#define UINVIEWINFO	'i'
#define UINVIEWPOSTO	'p'
#define UINVIEWRESTORE	'r'
#define UINVIEWSET	's'
#define UINVIEWTEXT	't'
#define UINVIEWLINE	'u'
#define UINVIEWZOOM	'w'

// Global design view variable name patterns
#define GV_VIEW_FN	"VIEW_FN"	// File name variable name pattern
#define GV_VIEW_CL	"VIEW_CL"	// DDB class variable name pattern
#define GV_VIEW_EN	"VIEW_EN"	// Element name variable name pattern
#define GV_VIEW_LX	"VIEW_LX"	// Lower X variable name pattern
#define GV_VIEW_LY	"VIEW_LY"	// Lower Y variable name pattern
#define GV_VIEW_UX	"VIEW_UX"	// Upper X variable name pattern
#define GV_VIEW_UY	"VIEW_UY"	// Upper Y variable name pattern
#define GV_VIEW_DF	"VIEW_DF"	// View drawn variable name pattern
#define GV_VIEW_CO	"VIEW_CO"	// Color table name var. name pattern
#define GV_ATTR_N	"ATTR_N"	// Attribute count
#define GV_ATTR_NL	"ATTR_NL"	// Attribute name list
#define GV_ATTR_VL	"ATTR_VL"	// Attribute value list
#define GV_ATTR_SR	"ATTR_SR"	// Attribute symbol rotation
#define GV_ATTR_SM	"ATTR_SM"	// Attribute symbol mirror flag
#define GV_ATTR_SL	"ATTR_SL"	// Attribute symbol library name
#define GV_ATTR_SN	"ATTR_SN"	// Attribute symbol net name
#define GV_ATTR_SS	"ATTR_SS"	// Attribute symbol flag
#define GV_RULE_N	"RULE_N"	// Rule count
#define GV_RULE_L	"RULE_L"	// Rule list
#define GV_RMOD_N	"RMOD_N"	// Reference text modifier count
#define GV_RMOD_T	"RMOD_T"	// Reference text modifier text
#define GV_RMOD_X	"RMOD_X"	// Reference text modifier x coord.
#define GV_RMOD_Y	"RMOD_Y"	// Reference text modifier y coord.
#define GV_RMOD_S	"RMOD_S"	// Reference text modifier size
#define GV_RMOD_A	"RMOD_A"	// Reference text modifier angle
#define GV_RMOD_M	"RMOD_M"	// Reference text modifier mirror flag

// User Language program names
#define UL_BAE_ZOOM	"bae_zoom"	// ULP: BAE Zoom Action

// Globals
#define MAXCMDSTRLEN	1024		// Max. input/command string length
static double dvx			/* Design view area X coordinate */;
static double dvy			/* Design view area Y coordinate */;
static double dvw			/* Design view area width */;
static double dvh			/* Design view area height */;
static double tbcols			/* Toolbar columns count */;
static double tbrows			/* Toolbar rows count */;
static double xscale			/* X scaling factor */;
static double yscale			/* Y scaling factor */;
static int color			/* Current color */;
static double wslx,wsly			/* Workspace lower corner */;
static double wsux,wsuy			/* Workspace upper corner */;
static int drawflag			/* View drawn flag */;
static string coltname			/* Color table name */;
static string fname			/* DDB file name */;
static string ename			/* DDB element name */;
static int ddbcl			/* DDB class */;
static index C_FIGURE dfig		/* Display element index */;
static int dflag	= 0		/* Display element flag */;
static string netarea			/* Net area name */;
static STRINGS attnl			/* Attribute name list */;
static STRINGS attvl			/* Attribute value list */;
static int attrn			/* Attribute count */;
static STRINGS rulel			/* Rule list */;
static int rulen			/* Rule count */;
struct textdef {			/* Text selection definition */
	string txt			/* Text string */;
	int efield			/* Text environment field */;
	};
struct textdef DEFTEXTL[] = {		// Default texts
	{ M("$ - Physikalischer/Layoutbauteilname","$ - Physical/Layout part name"), 2 },
	{ M("$ - Physikalischer/Layoutpinname","$ - Physical/Layout pin name"), 4 },
	{ M("$ - Label Netzname","$ - Label net name"), 8 },
	{ M("$$ - Logischer/Schaltplansymbolname","$$ - Logical/Schematic symbol name"), 2 },
	{ M("$$ - Logischer/Schaltplanpinname","$$ - Logical/Schematic pin name"), 4 },
	{ M("$gp - Gate Pin/Gatterauswahl","$gp - Gate Pin/Gate selection"), 2 },
	{ M("$llname - Logical Library Name/Symbolmakroname",
	  "$llname - Logical Library Name/Symbol macro name"), 2 },
	{ M("$noplc - Plazierungstatus","$noplc - Placement status"), 2 },
	{ M("$pageref - Blattreferenzanzeige bei Labels",
	  "$pageref - Page Reference display for labels"), 8 },
	{ M("$plname - Physical Library/Layoutbauteilmakroname",
	  "$plname - Physical Library Name/Layout part macro name"), 2 },
	{ M("$pltecomment - Elementkommentar","$pltecomment - Element comment"), 15 },
	{ M("$pltename - Elementname/Planname in Kleinschreibung",
	  "$pltename - Element/plan name lower case"), 15 },
	{ M("$Pltename - Elementname/Planname in Grossschreibung",
	  "$Pltename - Element/plan name upper case"), 15 },
	{ M("$pltpagecnt - Gesamtanzahl Projektschaltplanblaetter",
	  "$pltpagecnt - Total count of project schematic sheets"), 15 },
	{ M("$pltdatede - Aktuelles Datum, Jahr 4-stellig",
	  "$pltdateus - Current date, year 4 digits"), 15 },
	{ M("$pltdate2de - Aktuelles Datum, Jahr 2-stellig",
	  "$pltdate2us - Current date, year 2 digits"), 15 },
	{ M("$plttime - Aktuelle Zeit","$plttime - Current time"), 15 },
	{ M("$pltfbname - Projektdateiname mit Pfad, ohne DDB-Extension",
	  "$pltfbname - Project file name with path, without DDB extension"), 15 },
	{ M("$Pltfbname - Projektdateiname mit Pfad, ohne DDB-Extension in Grossschreibung",
	  "$Pltfbname - Project file name with path, without DDB extension upper case"), 15 },
	{ M("$pltfbsname - Projektdateiname ohne Pfad und DDB-Extension",
	  "$pltfbsname - Project file name without path, without DDB extension"), 15 },
	{ M("$Pltfbsname - Projektdateiname ohne Pfad und DDB-Extension in Grossschreibung",
	  "$Pltfbsname - Project file name without path, without DDB extension upper case"), 15 },
	{ M("$pltfname - Projektdateiname mit Pfad und DDB-Extension",
	  "$pltfname - Project file name with path and DDB extension"), 15 },
	{ M("$Pltfname - Projektdateiname mit Pfad und DDB-Extension in Grossschreibung",
	  "$Pltfname - Project file name with path and DDB extension upper case"), 15 },
	{ M("$pltfsname - Projektdateiname ohne Pfad, mit DDB-Extension",
	  "$pltfsname - Project file name without path, with DDB extension"), 15 },
	{ M("$Pltfsname - Projektdateiname ohne Pfad, mit DDB-Extension in Grossschreibung",
	  "$Pltfsname - Project file name without path, with DDB extension upper case"), 15 },
	{ M("$pltsdatede - Speicherdatum, Jahr 4-stellig",
	  "$pltsdateus - Save date, year 4 digits"), 15 },
	{ M("$pltsdate2de - Speicherdatum, Jahr 2-stellig",
	  "$pltsdate2us - Save date, year 2 digits"), 15 },
	{ M("$pltstime - Speicherzeit","$pltstime - Save time"), 15 },
	{ M("$pltpname - Letzte vom Packager erzeugte Netzliste in Kleinschreibung",
	  "$pltpname - Packager last netlist name lower case"), 15 },
	{ M("$Pltpname - Letzte vom Packager erzeugte Netzliste in Grossschreibung",
	  "$Pltpname - Packager last netlist name upper case"), 15 },
	{ M("$pltpdatede - Packagerdatum, Jahr 4-stellig",
	  "$pltpdateus - Packager date, year 4 digits"), 15 },
	{ M("$pltpdate2de - Packagerdatum, Jahr 2-stellig",
	  "$pltpdate2us - Packager date, year 2 digits"), 15 },
	{ M("$pltptime - Packagerzeit","$pltptime - Packager time"), 15 },
	{ M("$rbname - Requested Backannotated Part Name/Layoutbauteilnamen",
	  "$rbname - Requested Backannotated Part Name/Layoutpart name"), 2 },
	{ M("$rlext - Requested Library Extension/Namenserweiterung f. logische Definition",
	  "$rlext - Requested Library Extension/Name extension for logical definition"), 2 },
	{ M("$rlname - Requested Library/Name der logischen Definition",
	  "$rlname - Requested Library/Name of logical definition"), 2 },
	{ M("$rpname - Requested Part Name/Layoutbauteilnamen",
	  "$rpname - Requested Part Name/Layoutpart name"), 2 },
	{ M("$ulname - Used Library Name/verwendetes Layoutbauteilmakro",
	  "$upname - Used Library Name/Layout part macro"), 2 },
	{ M("$?s:variant_name - Name der akitven Variante",
	    "$?s:variant_name - Name of active variant"), 15 },
	{ M("$vgrp - Variant Group/Layoutbauteilname f. Variantenbauteil",
	  "$vgrp - Variant Group/Layout part name for variant part"), 2}
	};
struct textdef TEXTL[]			/* Text list */;
int TEXTN				/* Text count */;

// Main program
void main()
{
	index C_FIGURE lastfig		/* Last figure list element */;
	string msg			/* Message string */;
	string cmdstr			/* Command string */;
	string textstr			/* Text string */;
	int viewidx			/* Design view index */;
	int dvn				/* Design view window count */;
	int clrflag			/* Clear window flag */;
	double wscx,wscy		/* Workspace middle point */;
	double wsxdim,wsydim		/* Workspace dimensions */;
	double xoff,yoff		/* Offsets */;
	double xscale, yscale		/* Scale factors */;
	double t			/* Temporary coordinate buffer */;
	double textsize			/* Text size */;
	double textw			/* Text width */;
	double textang			/* Text angle */;
	int textmirr			/* Text mirror flag */;
	int textmode			/* Text mode */;
	int frame1			/* Text 1st frame */;
	int frame2			/* Text 2nd frame */;
	int openframe			/* Text open frame */;
	int norot			/* Text no rotation */;
	int texthcent			/* Text horizontal center alignment */;
	int textvcent			/* Text vertical center alignment */;
	int abortflag	= 0		/* Function abort flag */;
	int rmb				/* Right mouse button pressed flag */;
	int i				/* Loop control variable */;
	// Get the command string
	if ((cmdstr=askstr("",MAXCMDSTRLEN))==UINPOPABORT)
		error_abort();
	// Get the zoom window index from the parameter string
	viewidx=atoi(strextract(cmdstr,1,strlen(cmdstr)));
	// Get right mouse button state
	rmb= cmdstr[strlen(cmdstr)-1]=='!' ? 1 : 0 ;
	// Get the toolbar dimensions
	bae_tbsize(tbcols,tbrows);
	// Handle the command request
	switch (cmdstr[0]) {
		// View restore request
		case UINVIEWRESTORE :
		// Abort if no valid toolbar defined
		if (tbcols==0.0 || tbrows==0.0)
			return;
		// Test if special attribute window
		if (viewidx<TB_ATTRW_CNT) {
			// Place symbol copy
			plcnewsymbol(viewidx);
			break;
			}
		// Get the stored view workspace characteristics
		if (viewgetdvarea(viewidx) || viewgetwsdata(viewidx)) {
			// Display the design view info
			viewinfo(viewidx,0);
			// Done
			return;
			}
		// Check if other than current element view
		if (fname!=bae_planfname()
		 || ddbcl!=bae_planddbclass()
		 || ename!=bae_planename()) {
			// Clear view and abort on element access failure
			if (ddbcheck(fname,ddbcl,ename)) {
				// Activate the toolbar drawing area
				bae_popsetarea(1);
				// Display white rectangle with black frame
				pop_drawrect(dvx,dvy,dvw,dvh,
				 TCOLOR_WHITE,TCOLOR_BLACK);
				// Reactivate the standard popup drawing area
				bae_popsetarea(0);
				// Delete the design view variables
				viewvardelete(viewidx);
				// Done
				return;
				}
			// Save current element with verification on request
			verifysave();
			// Load the requested element
			bae_loadelem(fname,ename,ddbcl);
			// Get the design view zoom window count
			if (varget(GV_TB_DVN,dvn))
				dvn=0;
			// Loop for all zoom windows
			for (i=0;i<dvn;i++) {
				// Check if other than current element view
				if (viewgetwsdata(i)
				|| fname!=bae_planfname()
				|| ddbcl!=bae_planddbclass()
				|| ename!=bae_planename())
					// Display the workspace text
					text_dispws(i,0);
				else
					// Display the workspace
					scm_dispws(i);
				}
			viewgetwsdata(viewidx);
			}
		// Select the stored zoom window
		bae_clriactqueue();
		bae_storemouseiact(1,wslx,wsly,0,LMB);
		bae_storemouseiact(1,wsux,wsuy,0,LMB);
		bae_callmenu(MNU_BAEZOOMWND);
		break;
		// View info request
		case UINVIEWINFO :
		// Abort if no valid toolbar defined
		if (tbcols==0.0 || tbrows==0.0)
			return;
		// Display the design view info
		viewinfo(viewidx,0);
		break;
		// View clear request
		case UINVIEWCLEAR :
		// Abort if no valid toolbar defined
		if (tbcols==0.0 || tbrows==0.0)
			return;
		// Get the design view display area variables
		if (viewgetdvarea(viewidx)) {
			// Display the design view info
			viewinfo(viewidx,0);
			// Done
			return;
			}
		// Activate the toolbar drawing area
		bae_popsetarea(1);
		// Display white rectangle with black frame
		pop_drawrect(dvx,dvy,dvw,dvh,TCOLOR_WHITE,TCOLOR_BLACK);
		// Reactivate the standard popup drawing area
		bae_popsetarea(0);
		// Delete the design view variables
		viewvardelete(viewidx);
		// Clear the attribute data
		if (viewidx<TB_ATTRW_CNT)
			varset(GV_ATTR_N+itoa(viewidx),0);
		varset(GV_ATTR_SR+itoa(viewidx),0.0);
		varset(GV_ATTR_SM+itoa(viewidx),"");
		// Update the the design view tooltip
		viewinfo(viewidx,1);
		break;
		// View zoom request
		case UINVIEWZOOM :
		// Abort if no valid toolbar defined
		if (tbcols==0.0 || tbrows==0.0)
			return;
		// Abort if invalid plan class
		if (bae_planddbclass()==DDBCLUNDEF)
			return;
		// Select zoom window
		if ((bae_promptdialog(UPRRCORNER1),bae_inpoint(
		  bae_planwsnx(),bae_planwsny(),wslx,wsly,0))
		 || (bae_promptdialog(UPRRCORNER2),bae_inpoint(
		  wslx,wsly,wsux,wsuy,1))
		 || wslx==wsux || wsly==wsuy)
			error_abort();
		// Sort the window corners
		if (wslx>wsux) {
			t=wslx;
			wslx=wsux;
			wsux=t;
			}
		if (wsly>wsuy) {
			t=wsly;
			wsly=wsuy;
			wsuy=t;
			}
		// Store the workspace data
		viewstorewsdata(viewidx);
		// Display the workspace
		scm_dispws(viewidx);
		// Update the the design view tooltip
		viewinfo(viewidx,1);
		break;
		// View set request
		case UINVIEWSET :
		// Abort if no valid toolbar defined
		if (tbcols==0.0 || tbrows==0.0)
			return;
		// Test if special attribute window
		if (viewidx<TB_ATTRW_CNT) {
			sprintf(msg,REPSYMDAT,viewidx+1);
			bae_setstrpar(7,msg);
			// Transfer the attribute list
			setattributes(viewidx,
			 cmdstr[strlen(cmdstr)-1]=='!' ? 1 : 0);
			break;
			}
		// Abort if invalid plan class
		if (bae_planddbclass()==DDBCLUNDEF)
			return;
		// Store current zoom window
		wslx=bae_wswinlx();
		wsly=bae_wswinly();
		wsux=bae_wswinux();
		wsuy=bae_wswinuy();
		// Get the window center point
		wscx=0.5*(wslx+wsux);
		wscy=0.5*(wsly+wsuy);
		// Get the workspace dimensions
		wsxdim=wsux-wslx;
		wsydim=wsuy-wsly;
		// Do some zoom reduction
		wsxdim*=0.95;
		wsydim*=0.95;
		// Ajust the workspace size
		wslx=wscx-0.5*wsxdim;
		wsux=wscx+0.5*wsxdim;
		wsly=wscy-0.5*wsydim;
		wsuy=wscy+0.5*wsydim;
		// Store the workspace data
		viewstorewsdata(viewidx);
		// Display the workspace
		scm_dispws(viewidx);
		// Update the the design view tooltip
		viewinfo(viewidx,1);
		break;
		// Redisplay all views request
		case UINVIEWREDISP :
		// Abort if no valid toolbar defined
		if (tbcols==0.0 || tbrows==0.0)
			return;
		// Get the design view zoom window count
		if (varget(GV_TB_DVN,dvn))
			// Done
			return;
		// Get the clear window flag
		if (clrflag=viewidx)
			for (viewidx=0;viewidx<TB_ATTRW_CNT;viewidx++) {
				if (viewgetdvarea(viewidx))
					continue;
				// Activate the toolbar drawing area
				bae_popsetarea(1);
				// Disp. white rect. with black frame
				pop_drawrect(dvx,dvy,dvw,dvh,
				 TCOLOR_WHITE,TCOLOR_BLACK);
				// React. the std. popup drawing area
				bae_popsetarea(0);
				}
		// Loop for all zoom windows
		for (viewidx=TB_ATTRW_CNT;viewidx<dvn;viewidx++) {
			// Check if other than current element view
			if (viewgetwsdata(viewidx)
			 || fname!=bae_planfname()
			 || ddbcl!=bae_planddbclass()
			 || ename!=bae_planename())
				// Display the workspace text
				text_dispws(viewidx,clrflag);
			else
				// Display the workspace
				scm_dispws(viewidx);
			}
		break;
		// Get attribute sample part request
		case UINVIEWGET :
		// Abort if no valid toolbar defined
		if (tbcols==0.0 || tbrows==0.0)
			return;
		// Get the attribute sample part
		getattributes(viewidx);
		break;
		// Position zoom window to
		case UINVIEWPOSTO :
		// Abort if no valid toolbar defined
		if (tbcols==0.0 || tbrows==0.0)
			return;
		// Check if right mouse button pressed
		if (rmb) {
			bae_callmenu(MNU_BAEZOOMALL);
			break;
			}
		// Activate the toolbar drawing area
		bae_popsetarea(1);
		bae_popmouse(wscx,wscy,0);
		// Reactivate the standard popup drawing area
		bae_popsetarea(0);
		// Get and check the drawing area
		if (varget(GV_TB_ZOOMXO,xoff)
		 || varget(GV_TB_ZOOMXS,xscale) || xscale==0.0
		 || varget(GV_TB_ZOOMYO,yoff)
		 || varget(GV_TB_ZOOMYS,yscale) || yscale==0.0
		 || bae_planddbclass()==DDBCLUNDEF)
			// Invalid zoom window data
			break;
		// Transform the pick point
		wscx=(wscx-xoff)/xscale;
		wscy=(yoff-wscy)/yscale;
		bae_clriactqueue();
		bae_storemouseiact(1,wscx,wscy,0,LMB);
		bae_callmenu(MNU_BAEZOOMPAN);
		break;
		// Add text button
		case UINVIEWTEXT :
		// Abort if invalid plan class
		if (bae_planddbclass()==DDBCLUNDEF)
			return;
		scm_getdblpar(6,textsize);
		scm_getdblpar(7,textang);
		scm_getintpar(31,textmirr);
		scm_getintpar(32,textmode);
		if (varget(VAR_PLOTW,textw))
			textw=0.0;
		frame1=(textmode&TEXTFRM1) ? 1 : 0;
		frame2=(textmode&TEXTFRM2) ? 1 : 0;
		openframe=(textmode&TEXTOFRM) ? 1 : 0;
		norot=(textmode&TEXTNROT) ? 1 : 0;
		texthcent=(textmode&TEXTHCENT) ? 1 : 0;
		textvcent=(textmode&TEXTVCENT) ? 1 : 0;
		if (viewidx==2)
			textmode&=1;
		else
			textmode=viewidx;
		textstr=textinput(textsize,textang,textmirr,textmode,
		 frame1,frame2,openframe,norot,texthcent,textvcent,textw);
		scm_setintpar(31,textmirr);
		scm_setintpar(32,textmode|(frame1 ? TEXTFRM1 : 0)|
		 (frame2 ? TEXTFRM2 : 0)|(openframe ? TEXTOFRM : 0)|
		 (norot ? TEXTNROT : 0)|(texthcent ? TEXTHCENT : 0)|
		 (textvcent ? TEXTVCENT : 0));
		scm_setdblpar(6,textsize);
		scm_setdblpar(7,textang);
		bae_clriactqueue();
		bae_storetextiact(1,textstr);
		if (viewidx<2) {
			sprintf(cmdstr,
			 viewidx ? REPNEWCTEXT : REPNEWSTEXT,textstr);
			bae_setstrpar(7,cmdstr);
			}
		bae_callmenu(MNU_SCMADDTEXT);
		bae_getintpar(35,abortflag);
		if (!abortflag && textw!=0.0 &&
		 cap_lastfigelem(lastfig)==0) {
			// Assign the plot width predicate rule
			rsc_assfigdblpred(lastfig,RS_PLOTWIDTH,textw,0.0,"");
			scm_drawelem(lastfig,DM_SET);
			}
		break;
		// Add graphic button
		case UINVIEWLINE :
		// Abort if invalid plan class
		if (bae_planddbclass()==DDBCLUNDEF)
			return;
		switch (viewidx) {
			// Add line/connection
			case 0 :
			if (cmdstr[strlen(cmdstr)-1]=='!') {
				bae_setstrpar(7,REPNEWCON);
				bae_callmenu(MNU_SCMADDCON);
				}
			else {
				bae_setstrpar(7,REPNEWLINE);
				bae_callmenu(500);
				}
			break;
			// Add dot line/point to point connection
			case 1 :
			if (cmdstr[strlen(cmdstr)-1]=='!') {
				bae_setstrpar(7,REPNEW2CON);
				bae_callmenu(411);
				}
			else {
				bae_setstrpar(7,REPDOTLINE);
				bae_callmenu(501);
				}
			break;
			// Add area
			case 2 :
			bae_setstrpar(7,REPNEWAREA);
			bae_callmenu(502);
			break;
			}
		break;
		// Assume unknown/invalid command on default
		default :
		error_abort();
		}
}

/*________________________________________________________________*/
// Design view maintenance

int viewgetdvarea(int viewidx)
/*
// Get the design view display area
// Return value :
//	zero if done or (-1) on variable access error
// Parameters :
//	int viewidx		: Design view index
*/
{
	string viewid	= itoa(viewidx)	/* Design view id */;
	// Get the design view display area variables
	if (varget(GV_TB_DVX+viewid,dvx)
	 || varget(GV_TB_DVY+viewid,dvy)
	 || varget(GV_TB_DVW+viewid,dvw)
	 || varget(GV_TB_DVH+viewid,dvh))
		// Size query failed
		return(-1);
	// Done
	return(0);
}

int viewgetwsdata(int viewidx)
/*
// Get the design view workspace data
// Return value :
//	zero if done or (-1) on variable access error
// Parameters :
//	int viewidx		: Design view index
*/
{
	string viewid	= itoa(viewidx)	/* Design view id */;
	// Get the design view workspace data variables
	if (varget(GV_VIEW_FN+viewid,fname)
	 || varget(GV_VIEW_CL+viewid,ddbcl)
	 || varget(GV_VIEW_EN+viewid,ename)
	 || varget(GV_VIEW_LX+viewid,wslx)
	 || varget(GV_VIEW_LY+viewid,wsly)
	 || varget(GV_VIEW_UX+viewid,wsux)
	 || varget(GV_VIEW_UY+viewid,wsuy)
	 || varget(GV_VIEW_DF+viewid,drawflag)
	 || varget(GV_VIEW_CO+viewid,coltname)
	 || wsuy<=wsly || wsux<=wslx)
		// Data query failed
		return(-1);
	// Done
	return(0);
}

void viewstorewsdata(int viewidx)
/*
// Store the design view workspace data
// Parameters :
//	int viewidx		: Design view index
*/
{
	string viewid	= itoa(viewidx)	/* Design view id */;
	// Store the design view characteristics
	varset(GV_VIEW_FN+viewid,bae_planfname());
	varset(GV_VIEW_CL+viewid,bae_planddbclass());
	varset(GV_VIEW_EN+viewid,bae_planename());
	varset(GV_VIEW_LX+viewid,wslx);
	varset(GV_VIEW_LY+viewid,wsly);
	varset(GV_VIEW_UX+viewid,wsux);
	varset(GV_VIEW_UY+viewid,wsuy);
	varset(GV_VIEW_DF+viewid,drawflag);
	varset(GV_VIEW_CO+viewid,baepar_strval(SCMPAR_REQCOLTNAME));
}


void viewvardelete(int viewidx)
/*
// Delete global design view variables for given design view id
// Parameters :
//	int viewid		: Design view index
*/
{
	string viewid	= itoa(viewidx) /* Design view id */;
	// Delete the design view variables
	vardelete(GV_VIEW_FN+viewid);
	vardelete(GV_VIEW_CL+viewid);
	vardelete(GV_VIEW_EN+viewid);
	vardelete(GV_VIEW_LX+viewid);
	vardelete(GV_VIEW_LY+viewid);
	vardelete(GV_VIEW_UX+viewid);
	vardelete(GV_VIEW_UY+viewid);
	vardelete(GV_VIEW_CO+viewid);
	vardelete(GV_ATTR_SL+viewid);
}

void viewinfo(int viewidx,int viewmode)
/*
// Display design view info
// Parameters :
//	int viewidx		: Design view index
//	int viewmode		: View mode
*/
{
	// Messages
#define	DE_REPSYMHEAD	"Symbolmakro '%s', Rotation %.0f Grad, Spiegelung %s"
#define	EN_REPSYMHEAD	"Symbolmacro '%s', Rotation %.0f Degree, Mirror %s"
#define	DE_REPLABHEAD	"Label '%s'('%s'), Rotation %.0f Grad, Spiegelung %s"
#define	EN_REPLABHEAD	"Label '%s'('%s'), Rotation %.0f Degree, Mirror %s"
#define	DE_REPATTHEAD	"Attributliste : "
#define	EN_REPATTHEAD	"Attribut list : "
#define	DE_REPINFHEAD	"Entwurfsansicht %d : "
#define	EN_REPINFHEAD	"Design View %d : "
#define	DE_REPINFFILE	"Datei '%s' "
#define	EN_REPINFFILE	"File '%s' "
#define	DE_REPVIEWHELP	"[w] Zoom, [i] Info, [c] Clear, [s] Setzen"
#define	EN_REPVIEWHELP	"[w] Zoom, [i] Info, [c] Clear, [s] Set"
#define	DE_ITMUNDEF	" = nicht definiert ="
#define	EN_ITMUNDEF	" = undefined ="
#define	REPATTITEM	"%s%s = %s"
string REPATTRVAR	= M(" Var. %d"," Var. %d");
#define	REPINFELEM	"%s '%s' "
	string viewid	= itoa(viewidx) /* Design view id */;
	STRINGS headl			/* Popup header list */;
	int headn			/* Popup header count */;
	STRINGS entryl			/* Popup entry list */;
	int entryn	= 0		/* Popup entry count */;
	int mirror	= 0		/* Symbol mirror flag */;
	double rotangle	= 0.0		/* Symbol rotation angle */;
	int symflag			/* Symbol flag */;
	string symmacro			/* Symbol macro name */;
	string netname			/* Symbol net name */;
	string attname			/* Attribute name */;
	string attvalue			/* Attribute value */;
	string varstr			/* Attribute variat string */;
	string s1,s2,s3			/* Info message string buffers */;
	int dvflag	= 0		/* Design view window display flag */;
	int len				/* String length */;
	int i				/* Loop control variable */;
	// Check if attribute window
	if (viewidx<TB_ATTRW_CNT) {
		if (varget(GV_ATTR_SL+viewid,symmacro)!=0 || symmacro=="") {
			bae_msgbox(0,REPNOSYM,"");
			return;
			}
		varget(GV_ATTR_SR+viewid,rotangle);
		varget(GV_ATTR_SM+viewid,mirror);
		varget(GV_ATTR_SS+viewid,symflag);
		if (symflag) {
			sprintf(headl[0],M(DE_REPSYMHEAD,EN_REPSYMHEAD),
			 symmacro,cvtangle(rotangle,0,1),
			 mirror ? M("ein","on") : M("aus","off"));
			// Get the attribute count
			if (varget(GV_ATTR_N+viewid,attrn))
				attrn=0;
			headl[1]="";
			headl[2]=M(DE_REPATTHEAD,EN_REPATTHEAD);
			headl[3]="";
			headn=4;
			// Get the attributes
			for (i=0;i<attrn;i++) {
				varget(GV_ATTR_NL+viewid+"_"+itoa(i),attname);
				varget(GV_ATTR_VL+viewid+"_"+itoa(i),attvalue);
				if (strmatch(attname,"*\003*\003")) {
					len=strlen(attname);
					sprintf(varstr,REPATTRVAR,atoi(
					  strextract(attname,len-3,len-1)));
					attname[len-4]='\0';
					}
				else {
					varstr="";
					}
				sprintf(entryl[i],REPATTITEM,attname,varstr,
				 attvalue==PA_NILVAL ? REPNILATT : attvalue);
				}
			entryn=attrn;
			}
		else {
			varget(GV_ATTR_SN+viewid,netname);
			sprintf(headl[0],M(DE_REPLABHEAD,EN_REPLABHEAD),
			 symmacro,netname,cvtangle(rotangle,0,1),
			 mirror ? M("ein","on") : "aus","off");
			entryn=0;
			headn=2;
			}
		if (viewmode) {
			// Get the design view display area variables
			if (viewgetdvarea(viewidx)==0) {
				s1=REPSYMPLACE;
				for (i=0;i<headn;i++)
					s1+="\n"+headl[i];
				for (i=0;i<entryn;i++)
					s1+="\n"+entryl[i];
				// Activate the toolbar drawing area
				bae_popsetarea(1);
				bae_setstrpar(5,s1);
				bae_popareachoice(dvy,dvx,dvy+dvh,dvx+dvw,
				 "?tooltip?");
				// Reactivate the standard popup drawing area
				bae_popsetarea(0);
				}
			}
		else {
			// Display the attribute list
			// Show the popup
			bae_setintpar(16,3100);
			popupmenu(0,"",headl,headn,entryl,entryn,
			 "",0,-1,-1,headn+entryn+2,0,0,UINPOPABORT);
			}
		}
	// Get the design view characteristics
	else if (viewgetwsdata(viewidx)) {
		// Build the info message strings
		sprintf(s1,
		 M(DE_REPINFHEAD,EN_REPINFHEAD)+
		 M(DE_ITMUNDEF,EN_ITMUNDEF),viewidx+1);
		s2="";
		s3=M(DE_REPVIEWHELP,EN_REPVIEWHELP);
		// Display the design view info
		popupmessage(0,-1,-1,s1,s2,s3);
		}
	else {
		// Build the info message strings
		sprintf(s1,M(DE_REPINFHEAD,EN_REPINFHEAD),viewidx+1);
		sprintf(s2,M(DE_REPINFFILE,EN_REPINFFILE),fname);
		sprintf(s3,REPINFELEM,ddbclassid(ddbcl),ename);
		if (viewmode) {
			// Get the design view display area variables
			if (viewgetdvarea(viewidx)==0) {
				// Activate the toolbar drawing area
				bae_popsetarea(1);
				bae_setstrpar(5,
				 REPWINRESTORE+s2+"\n"+s3);
				bae_popareachoice(dvy,dvx,dvy+dvh,dvx+dvw,
				 "?tooltip?");
				// Reactivate the standard popup drawing area
				bae_popsetarea(0);
				}
			}
		else {
			if (fname==bae_planfname() && ename==bae_planename() &&
			 ddbcl==bae_planddbclass()) {
				dvflag=1;
				// Store window position
				varset(GV_TB_DVLX,wslx);
				varset(GV_TB_DVLY,wsly);
				varset(GV_TB_DVUX,wsux);
				varset(GV_TB_DVUY,wsuy);
				// Display design view window position
				ulsystem(UL_BAE_ZOOM,0);
				vardelete(GV_TB_DVLX);
				vardelete(GV_TB_DVLY);
				vardelete(GV_TB_DVUX);
				vardelete(GV_TB_DVUY);
				}
			// Display the design view info
			popupmessage(0,-1,-1,s1,s2,s3);
			// Remove design view window position
			if (dvflag)
				ulsystem(UL_BAE_ZOOM,0);
			}
		}
	// Undefine function-specific definitions
#undef	REPINFHEAD
#undef	REPINFFILE
#undef	REPINFELEM
#undef	ITMUNDEF
#undef	ITMVIEWHELP
}

static void text_dispws(int viewidx,int clrflag)
/*
// Display the current layout data text in design view
// Parameters :
//	int viewidx		: Design view window index
//	int clrflag		: Clear window contents flag
*/
{
	string namestr		/* File name string */;
	double cury		/* Current y-coordinate */;
	int len			/* File name length */;
	// Get the design view display area variables
	if (viewgetdvarea(viewidx))
		// Done
		return;
	// Get the design view characteristics
	if (viewgetwsdata(viewidx))
		// Done
		return;
	// Get the design view display area variables
	if (clrflag) {
		drawflag=0;
		varset(GV_VIEW_DF+itoa(viewidx),0);
		}
	// Check if already drawn
	if (drawflag==0) {
		// Get the scaling factor
		yscale=dvh/4.0;
		xscale=yscale*pop_aspectratio();
		// Activate the toolbar drawing area
		bae_popsetarea(1);
		// Set the dsign view clipping area
		bae_popcliparea(1,dvy,dvx,dvy+dvh,dvx+dvw);
		// Draw the window background
		pop_drawrect(dvx,dvy,dvw,dvh,TCOLOR_BLACK,COLOR_NONE);
		color=TCOLOR_WHITE;
		cury=4.0-0.7;
		cap_vecttext(0.0,cury,0.0,0,0.7,0,ename,tlinefunc);
		cury-=1.1;
		len=strlen(fname);
		namestr=strextract(fname,len>44 ? len-44 : 0,len-5);
		do {
			cap_vecttext(0.0,cury,0.0,0,0.7,0,
			 strextract(namestr,0,7),tlinefunc);
			namestr=strextract(namestr,8,len);
			cury-=0.7;
		 } while (namestr!="");
		// Restore the toolbar clipping area
		bae_popcliparea(1,0.0,0.0,tbrows,tbcols);
		bae_popcliparea(0,0.0,0.0,tbrows,tbcols);
		// Reactivate the standard popup drawing area
		bae_popsetarea(0);
		}
}

static void getattributes(int viewidx)
/*
// Get the attributes from mouse selectable part
// Parameters :
//	int viewidx		: Design view index
*/
{
	index C_FIGURE fig		/* Figure list element */;
	index C_NREF nref		/* Named reference index */;
	index C_REFTEXT rmod		/* Ref. text modifier index */;
	index C_ATTRIBUTE att		/* Attribute index */;
	string viewid	= itoa(viewidx) /* Design view id */;
	string pprefix			/* Plot visibility rule prefix */;
	int plen			/* Plot vis. rule prefix length */;
	int varafound	= 0		/* Variant attribute data found flag */;
	int varpfound	= 0		/* Variant plot vis. data found flag */;
	int i				/* Loop control variable */;
	// Abort if invalid plan class
	if (bae_planddbclass()!=DDBCLSCM)
		return;
	// Pick symbol
	bae_promptdialog(UPRSYMBOL);
	if (scm_pickelem(fig,C_FIGNREF)==0) {
		// Get symbol data
		nref=fig.NREF;
		// Init. attribute name list
		attrn=0;
		// Scan the attributes
		forall (att of nref where
		 scm_chkattrname(att.NAME)==0 && att.NAME!="$spname") {
			// Store attribute to list
			attnl[attrn]=att.NAME;
			attvl[attrn++]=att.VALUE;
			}
		// Scan unset attributes
		if (cap_scanfelem(fig,0.0,0.0,0.0,1,
		 amacfunc,NULL,NULL,atextfunc)!=0)
			error_scan();
		// Store the attribute data
		varset(GV_ATTR_N+viewid,attrn);
		// Get the attributes
		for (i=0;i<attrn;i++) {
			varset(GV_ATTR_NL+viewid+"_"+itoa(i),attnl[i]);
			varset(GV_ATTR_VL+viewid+"_"+itoa(i),attvl[i]);
			}
		// Store the rule data
		rulen= fig.RULEOBJID>=0 ? rsc_getfigrules(fig,rulel) : 0 ;
		for (i=0;i<rulen;i++)
			varset(GV_RULE_L+viewid+"_"+itoa(i),rulel[i]);
		varset(GV_RULE_N+viewid,rulen);
		// Check if variant specific symbol data
		if (bae_iniintval(PAR_VARATTRCHK,1)) {
			for (i=0;i<attrn;i++)
				if (attnl[i][strlen(attnl[i])-1]=='\003') {
					varafound=1;
					break;
					}
			// Scan for variant plot visibility flags
			sprintf(pprefix,":%s:%s",RS_SCMSUBJ,RS_VARPLOTDIS);
			plen=strlen(pprefix);
			for (i=0;i<rulen;i++)
				if (strextract(rulel[i],0,plen-1)==pprefix &&
				 rulel[i][plen]!='0') {
					varpfound=1;
					break;
					}
			// Check if variant data found
			if ((varafound || varpfound) &&
			 !bae_msgboxverify(UPRVDDCONF,"")) {
				for (i=0;i<attrn;i++)
				    if (attnl[i][strlen(attnl[i])-1]=='\003')
					varset(
					 GV_ATTR_NL+viewid+"_"+itoa(i),"");
				for (i=rulen-1;i>=0;i--)
				    if (
				     strextract(rulel[i],0,plen-1)==pprefix &&
				     rulel[i][plen]!='0') {
					varset(GV_RULE_L+viewid+"_"+itoa(i),"");
					rulen--;
					}
				if (rulen==0)
					varset(GV_RULE_N+viewid,0);
				}
			}
		// Store symbol placement data
		varset(GV_ATTR_SR+viewid,fig.ANGLE);
		varset(GV_ATTR_SM+viewid,fig.MIRROR);
		varset(GV_ATTR_SL+viewid,fig.NREF.MACRO.NAME);
		varset(GV_ATTR_SS+viewid,
		 fig.NREF.MACRO.CLASS==DDBCLSSYM ? 1 : 0);
		varset(GV_ATTR_SN+viewid,fig.NAME);
		// Transfer name moves
		attrn=0;
		forall (rmod of nref) {
			// Store the text position
			varset(GV_RMOD_T+viewid+"_"+itoa(attrn),rmod.STR);
			varset(GV_RMOD_X+viewid+"_"+itoa(attrn),rmod.X);
			varset(GV_RMOD_Y+viewid+"_"+itoa(attrn),rmod.Y);
			varset(GV_RMOD_A+viewid+"_"+itoa(attrn),rmod.ANGLE);
			varset(GV_RMOD_S+viewid+"_"+itoa(attrn),rmod.SIZE);
			varset(GV_RMOD_M+viewid+"_"+itoa(attrn),rmod.MIRROR);
			attrn++;
			}
		varset(GV_RMOD_N+viewid,attrn);
		// Store the view window data
		wslx=fig.RLX; wsly=fig.RLY;
		wsux=fig.RUX; wsuy=fig.RUY;
		dfig=fig;
		dflag=1;
		// Store the workspace data
		viewstorewsdata(viewidx);
		// Display the workspace
		scm_dispws(viewidx);
		dflag=0;
		// Update the the design view tooltip
		viewinfo(viewidx,1);
		}
	else
		error_abort();
}

static void setattributes(int viewidx,int grpmode)
/*
// Transfer the stored attributes to mouse selectible or group parts
// Parameters :
//	int viewidx		: Design view index
//	int grpmode		: Group process flag
*/
{
	index C_FIGURE fig		/* Figure list element */;
	string viewid	= itoa(viewidx) /* Design view id */;
	string symmacro			/* Symbol macro name */;
	string lastname	= ""		/* Last symbol name */;
	string msg			/* Message buffer */;
	int prompted	= 0		/* Replacement prompt flag */;
	int answer			/* Replacement answer */;
	int lastidx			/* Last used attribute index */;
	int first			/* First attribute set flag */;
	int firstsym	= 1		/* First symbol flag */;
	int i				/* Loop control variable */;
	// Abort if invalid plan class
	if (bae_planddbclass()!=DDBCLSCM)
		return;
	// Get the attribute count
	if (varget(GV_ATTR_SL+viewid,symmacro) ||
	 varget(GV_ATTR_N+viewid,attrn) || varget(GV_RULE_N+viewid,rulen) ||
	 (attrn+rulen)<=0)
		// No attributes/rules stored
		return;
	// Get the attributes
	for (i=0;i<attrn;i++) {
		varget(GV_ATTR_NL+viewid+"_"+itoa(i),attnl[i]);
		varget(GV_ATTR_VL+viewid+"_"+itoa(i),attvl[i]);
		}
	// Get the rules
	for (i=0;i<rulen;i++)
		varget(GV_RULE_L+viewid+"_"+itoa(i),rulel[i]);
	if (grpmode) {
	    // Save current state for undo
	    bae_callmenu(MNU_BAESAVESTATE);
	    // Loop for all group selected symbols
	    forall (fig where fig.GROUP && fig.TYP==C_FIGNREF) {
		// Transfer rules
		if (rulen) {
			if (cap_rulefigatt(fig,rulel))
				error(ERRSETRUL);
			}
		else {
			if (cap_rulefigdet(fig))
				error(ERRDELRUL);
			}
		// Test if label picked
		if (fig.NREF.MACRO.CLASS==DDBCLSLAB)
			continue;
		if (lastname==fig.NAME)
			continue;
		// Check if symbol macro matches stored data
		if (fig.NREF.MACRO.NAME!=symmacro) {
			if (!prompted) {
				// Verify attr. transfer to different macro
				sprintf(msg,WRNDIFFMAC,fig.NAME,
				 fig.NREF.MACRO.NAME,symmacro);
				answer=bae_msgboxverifyquit(msg,"");
				prompted=1;
				}
			switch (answer) {
				// Yes
				case 1 :
				break;
				// No
				case 0 :
				continue;
				// Abort
				default :
				return;
				}
			}
		lastname=fig.NAME;
		// Search last changed attribute index
		for (i=0;i<attrn;i++)
			if (attnl[i][0]!='\0')
				lastidx=i;
		// Transfer all attributes
		first=1;
		for (i=0;i<attrn;i++)
			if (attnl[i][0]!='\0') {
				if (scm_setpartattrib(
				 lastname,attnl[i],attvl[i],
				 4|(first ? 1 : 0)|(lastidx==i ? 2 : 0)))
					error(ERRSETATT);
				first=0;
				}
		}
	    }
	else {
	    // Pick symbol(s)
	    while (bae_promptdialog(UPRSYMBOL),scm_pickelem(fig,C_FIGNREF)==0) {
		// Check if first symbol
		if (firstsym) {
			// Save current state for undo
			bae_callmenu(MNU_BAESAVESTATE);
			firstsym=0;
			}
		// Transfer rules
		if (rulen) {
			if (cap_rulefigatt(fig,rulel))
				error(ERRSETRUL);
			}
		else {
			if (cap_rulefigdet(fig))
				error(ERRDELRUL);
			}
		// Test if label picked
		if (fig.NREF.MACRO.CLASS==DDBCLSLAB)
			continue;
		// Check if symbol macro matches stored data
		if (fig.NREF.MACRO.NAME!=symmacro) {
			// Verify attribute transfer to different macro
			sprintf(msg,WRNDIFFMAC,fig.NAME,fig.NREF.MACRO.NAME,
			 symmacro);
			switch (bae_msgboxverifyquit(msg,"")) {
				// Yes
				case 1 :
				break;
				// No
				case 0 :
				continue;
				// Abort
				default :
				return;
				}
			}
		// Search last changed attribute index
		for (i=0;i<attrn;i++)
			if (attnl[i][0]!='\0')
				lastidx=i;
		// Transfer all attributes
		first=1;
		for (i=0;i<attrn;i++)
			if (attnl[i][0]!='\0') {
				if (scm_setpartattrib(
				 fig.NAME,attnl[i],attvl[i],
				 4|(first ? 1 : 0)|(lastidx==i ? 2 : 0)))
					error(ERRSETATT);
				first=0;
				}
		}
	    }
}

static void plcnewsymbol(int viewidx)
/*
// Place new part and transfer the stored attributes to it
// Parameters :
//	int viewidx		: Design view index
*/
{
	index C_FIGURE newfig		/* New figure list element */;
	index C_MACRO macro		/* Macro index */;
	index C_FIGURE lastfig		/* Figure list element */;
	int lastflag			/* Last figure element known flag */;
	string newname			/* New reference name */;
	string viewid	= itoa(viewidx) /* Design view id */;
	string msg			/* Message string */;
	string str			/* Text string */;
	double tx, ty			/* Text position */;
	double ttx, tty			/* Temporary text coords. */;
	double btx, bty			/* Back transf. text coords. */;
	double tangle	= 0.0		/* Text rotation angle */;
	double size			/* Text size */;
	int tmirror	= 0		/* Text mirror flag */;
	double x, y			/* Symbol position */;
	int mirror	= 0		/* Symbol mirror flag */;
	int oldmirror	= 0		/* Symbol old mirror flag */;
	double rotangle	= 0.0		/* Symbol rotation angle */;
	double oldrotangle = 0.0	/* Symbol old rotation angle */;
	double asin, acos		/* Angle sin, cos values */;
	double mnx, mny			/* Macro origin coords. */;
	string symmacro			/* Symbol macro name */;
	string oldlabmacro		/* Old label macro name */;
	string netname			/* Symbol net name */;
	int symflag			/* Symbol flag */;
	int ksymtextpos			/* Keep symbol text pos. flag */;
	int first			/* First attribute set flag */;
	int i				/* Loop control variable */;
	// Get the stored data
	if (varget(GV_ATTR_SR+viewid,oldrotangle) ||
	 varget(GV_ATTR_SM+viewid,oldmirror) ||
	 varget(GV_ATTR_SL+viewid,symmacro) ||
	 varget(GV_ATTR_SS+viewid,symflag) ||
	 varget(GV_ATTR_SN+viewid,netname) ||
	 varget(GV_ATTR_N+viewid,attrn) ||
	 varget(GV_RULE_N+viewid,rulen))
		// No symbol data stored
		return;
	// Get the attributes
	for (i=0;i<attrn;i++) {
		varget(GV_ATTR_NL+viewid+"_"+itoa(i),attnl[i]);
		varget(GV_ATTR_VL+viewid+"_"+itoa(i),attvl[i]);
		}
	// Get the rules
	for (i=0;i<rulen;i++)
		varget(GV_RULE_L+viewid+"_"+itoa(i),rulel[i]);
	// Get last placed element
	lastflag= cap_lastfigelem(lastfig)==0 ? 1 : 0 ;
	bae_clriactqueue();
	if (symflag) {
		sprintf(msg,REPNEWSYM,viewidx+1);
		bae_setstrpar(7,msg);
		// Place symbol
		if (bae_iniintval(PAR_NAMEPROMPT,1))
			bae_storetextiact(1,"");
		bae_storetextiact(1,symmacro);
		bae_storemouseiact(1,0.0,0.0,1,RMB);
		bae_storemenuiact(1,oldmirror ? 8 : 7,LMB);
		bae_storemouseiact(1,0.0,0.0,1,RMB);
		bae_storemenuiact(1,6,LMB);
		bae_storetextiact(1,ftoa(cvtangle(oldrotangle,0,1),5));
		bae_callmenu(MNU_SCMADDSYM);
		}
	else {
		sprintf(msg,REPNEWLAB,netname);
		bae_setstrpar(7,msg);
		// Buffer old label macro
		oldlabmacro=baepar_strval(SCMPAR_LABELMACRO);
		// Set requested label macro
		bae_storetextiact(1,symmacro);
		bae_callmenu(809);
		// Place label
		bae_clriactqueue();
		bae_storetextiact(1,netname);
		bae_storemouseiact(1,0.0,0.0,1,RMB);
		bae_storemenuiact(1,oldmirror ? 8 : 7,LMB);
		bae_storemouseiact(1,0.0,0.0,1,RMB);
		bae_storemenuiact(1,6,LMB);
		bae_storetextiact(1,ftoa(cvtangle(oldrotangle,0,1),5));
		bae_callmenu(MNU_SCMADDLAB);
		// Restore old label macro
		bae_clriactqueue();
		bae_storetextiact(1,oldlabmacro);
		bae_callmenu(809);
		}
	// Check if symbol successfully placed
	scm_getstrpar(1,newname);
	if (cap_lastfigelem(newfig)==0 && (!lastflag || newfig!=lastfig) &&
	 cap_nrefsearch("",newfig)==0 && newfig.NAME==newname) {
		// Transfer rules
		if (rulen && cap_rulefigatt(newfig,rulel))
			error(ERRSETRUL);
		// Transfer all attributes
		first=1;
		for (i=0;i<attrn;i++) {
			if (attnl[i]=="" || attnl[i]=="$rpname" ||
			 attnl[i]=="$rbname" || attnl[i]=="$vgrp")
				continue;
			if (scm_setpartattrib(newname,attnl[i],attvl[i],
			 4|(first ? 1 : 0)|(i==(attrn-1) ? 2 : 0)))
				error(ERRSETATT);
			first=0;
			}
		// Test if text position preservation
		if ((ksymtextpos=baepar_intval(SCMPAR_KSYMTEXTPOS))==0 ||
		 ksymtextpos==3 || varget(GV_RMOD_N+viewid,attrn) ||
		 attrn==0)
			return;
		// Transfer text position changes
		x=newfig.X; y=newfig.Y;
		mirror=newfig.MIRROR;
		rotangle=newfig.ANGLE;
		macro=newfig.NREF.MACRO;
		mnx=macro.MNX; mny=macro.MNY;
		for (i=0;i<attrn;i++) {
			if (cap_nrefsearch("",newfig)!=0)
				return;
			varget(GV_RMOD_T+viewid+"_"+itoa(i),str);
			varget(GV_RMOD_X+viewid+"_"+itoa(i),tx);
			varget(GV_RMOD_Y+viewid+"_"+itoa(i),ty);
			varget(GV_RMOD_S+viewid+"_"+itoa(i),size);
			varget(GV_RMOD_A+viewid+"_"+itoa(i),tangle);
			varget(GV_RMOD_M+viewid+"_"+itoa(i),tmirror);
			ttx=tx-mnx;
			tty=ty-mny;
			tmirror= mirror!=tmirror ? 1 : 0 ;
			if (tmirror)
				tangle-=rotangle;
			else
				tangle+=rotangle;
			if (mirror)
				tty=(-tty);
			asin=sin(rotangle);
			acos=cos(rotangle);
			btx=acos*ttx-asin*tty;
			bty=asin*ttx+acos*tty;
			// Store the text position
			scm_attachtextpos(
			 newfig,str,x+btx,y+bty,tangle,size,tmirror);
			}
		}
	else {
		bae_clriactqueue();
		}
}

// SCM color definitions
static int COLOR_SCMDOC	= bae_getcolor(0);
static int COLOR_SCMCON	= bae_getcolor(1);
static int COLOR_SCMSYM	= bae_getcolor(2);
static int COLOR_SCMMRK	= bae_getcolor(3);
static int COLOR_SCMBRD	= bae_getcolor(4);
static int COLOR_SCMCAR	= bae_getcolor(7);
static int COLOR_SCMCTX	= bae_getcolor(11);

/*________________________________________________________________*/
// SCM scan functions

// Object types
#define TEXT		0		// Normal text
#define DOC		1
#define CONA		2		// Contact area
#define CON		3		// Connections
#define BUSWIDTH	0.002		// Bus line width [m]
#define BUSLWH		0.5*BUSWIDTH	// Half bus line width
#define MINTXT		0.1		// Min. display text height [char]

// Output objects info structure
struct outdes {				// Output object descriptor
	int obj				/* Object type */;
	int class			/* Object macro class */;
	};
static struct outdes outfield[]	= {	// Object output info field
	{DOC ,DDBCLSCM },	// Pln areas
	{DOC ,DDBCLSSYM},	// Prt areas
	{DOC ,DDBCLSLAB},	// Lab areas
	{DOC ,DDBCLSMRK},	// Mrk areas
	{TEXT,DDBCLSCM },	// Text
	{TEXT,DDBCLSSYM},	// Text
	{TEXT,DDBCLSLAB},	// Text
	{TEXT,DDBCLSMRK},	// Text
	{CON ,DDBCLSCM },	// Connections
	{CONA,DDBCLSMRK}	// Marker contact areas
	};
static int outfieldn=arylength(outfield)
					/* Obj. outp. info field length */;

// Globals
static int curobj			/* Cur. PostScript object */;
static int curclass			/* Cur. PostScript macro class */;
static int scanjunct			/* PostScript junction scan flag */;
static double lowx,lowy			/* Workspace lower boundary */;
static index C_POOL junct		/* Junction pool index */;

static void scm_dispws(int viewidx)
/*
// Display the current layout workspace in design view
// Parameters :
//	int viewidx		: Design view window index
*/
{
//	string name			/* Design view element namex */;
	double wscx,wscy		/* Workspace middle point */;
	double wsxdim,wsydim		/* Workspace dimensions */;
	// Get the design view display area variables
	if (viewgetdvarea(viewidx))
		// Done
		return;
	// Get the design view characteristics
	if (viewgetwsdata(viewidx))
		// Done
		return;
	// Get the window middle point
	wscx=0.5*(wslx+wsux);
	wscy=0.5*(wsly+wsuy);
	// Get the workspace dimensions
	wsxdim=wsux-wslx;
	wsydim=wsuy-wsly;
	// Do some zoom reduction
	wsxdim/=0.95;
	wsydim/=0.95;
	// Adjust the workspace size
	wslx=wscx-0.5*wsxdim;
	wsux=wscx+0.5*wsxdim;
	wsly=wscy-0.5*wsydim;
	wsuy=wscy+0.5*wsydim;
	// Get the scaling factor
	if (wsydim>wsxdim) {
		yscale=dvh/wsydim;
		xscale=yscale*pop_aspectratio();
		wsxdim=wsydim;
		wslx=wscx-0.5*wsxdim;
		wsux=wscx+0.5*wsxdim;
		}
	else {
		xscale=dvw/wsxdim;
		yscale=xscale/pop_aspectratio();
		wsydim=wsxdim;
		wsly=wscy-0.5*wsydim;
		wsuy=wscy+0.5*wsydim;
		}
	// Activate the toolbar drawing area
	bae_popsetarea(1);
	// Set the dsign view clipping area
	bae_popcliparea(1,dvy,dvx,dvy+dvh,dvx+dvw);
	// Draw the window background
	pop_drawrect(dvx,dvy,dvw,dvh,COLOR_BLACK,COLOR_NONE);
	// Display the schematic design view
	scm_view(wslx,wsly,wsux,wsuy);
	// Restore the toolbar clipping area
	bae_popcliparea(1,0.0,0.0,tbrows,tbcols);
	bae_popcliparea(0,0.0,0.0,tbrows,tbcols);
	// Reactivate the standard popup drawing area
	bae_popsetarea(0);
	varset(GV_VIEW_DF+itoa(viewidx),1);
}

void scm_view(double wlx,double wly,double wux,double wuy)
/*
// Display the schematic design view
// Parameters :
//	double wlx		: Design view window lower X coordinate
//	double wly		: Design view window lower Y coordinate
//	double wux		: Design view window upper X coordinate
//	double wuy		: Design view window upper Y coordinate
*/
{
	index C_FIGURE fig		/* Figure list index */;
	int i				/* Loop control variable */;
	// Select clipping window
	lowx=wlx;
	lowy=wly;
	// Get the junction point macro pool index
	junct=cap_pointpoolidx();
	// Loop for all display objects
	for (i=0;i<outfieldn;i++) {
		// Get object data
		curobj=outfield[i].obj;
		curclass=outfield[i].class;
		// Initialize scan flags
		scanjunct=0;
		// Scan object data
		if (dflag) {
			// Query net area name predicate
			netarea="";
			if (dfig.TYP==C_FIGPOLY &&
			 cap_rulequery(RS_OCFIG,dfig,RS_SCMSUBJ,
			  RS_TNETAREA,"?s",netarea)<1)
				netarea="";
			if (cap_scanfelem(dfig,lowx,lowy,0.0,1,
			 macfunc,confunc,polyfunc,textfunc)!=0)
				error_scan();
			}
		else {
			forall (fig where
			 cap_figboxtest(fig,wlx,wly,wux,wuy)==1) {
				// Query net area name predicate
				netarea="";
				if (fig.TYP==C_FIGPOLY &&
				 cap_rulequery(RS_OCFIG,fig,RS_SCMSUBJ,
				  RS_TNETAREA,"?s",netarea)<1)
					netarea="";
				if (cap_scanfelem(fig,lowx,lowy,0.0,1,
				 macfunc,confunc,polyfunc,textfunc)!=0)
					error_scan();
				}
			}
		// Stop on request
		if (kbhit()) {
			getchr();
			break;
			}
		}
}

int macfunc(index C_MACRO macro,index C_POOL pool,int macinws,
 string refname,index C_LEVEL level,index C_LEVEL buslevel)
/*
// Design window drawing macro function
// Return value :
//	0 if out of workspace, 1 if inside, 2 if unknown, or (-1) on error
// Parameters :
//	index C_MACRO macro	: Macro index
//	index C_POOL pool	: Macro pool index
//	int macinws		: Macro in workspace flag
//	string refname		: Macro reference name
//	index C_LEVEL level	: Macro level
//	index C_LEVEL buslevel	: Macro bus level
*/
{
	double x			/* Macro X coordinate */;
	double y			/* Macro Y coordinate */;
	double r			/* Macro rotation angle */;
	int m				/* Macro mirror mode */;
	// Abort scan if out of class
	if (macro.CLASS>curclass && curobj!=CON)
		return(0);
	// Check on symbol outline draw request
	if (COLOR_SCMBRD>0 && macro.CLASS==DDBCLSSYM) {
		// Get the macro coordinates
		cap_maccoords(x,y,r,m);
		// Avoid display if rotated and/or mirrored
		if (r!=0.0 || m)
			return(1);
		// Draw the macro outline
		pop_drawrect(
		 dvx+(x-macro.MNX+macro.MLX)*xscale,
		 dvy+dvh-(y-macro.MNY+macro.MUY)*yscale,
		 fabs(macro.MUX-macro.MLX)*xscale,
		 fabs(macro.MUY-macro.MLY)*yscale,
		 COLOR_NONE,COLOR_SCMBRD);
		}
	// Continue scan
	return(1);
}

int polyfunc(index C_POLY poly,int polyinws,
 index C_LEVEL level,int macclass,int bustapidx)
/*
// Design window drawing polygon function
// Return value :
//	zero if done or (-1) on file error
// Parameters :
//	index C_POLY poly	: Polygon
//	int polyinws		: Poly in workspace flag
//	index C_LEVEL level	: Polygon level
//	int macclass		: Polygon macro class
//	int bustapidx		: Polygon bustap index
*/
{
	index C_POINT point		/* Polygon point */;
	int fillmode			/* Popup polygon fill mode */;
	// Abort if out of class
	if (macclass!=curclass && !scanjunct)
		return(0);
	// Init the color
	color=COLOR_NONE;
	// Test if the polygon type is requested for output
	switch (poly.TYP) {
		// Documentary line
		case C_POLYDOCLINE :
		// Dotted documentary line
		case C_POLYDOTLINE :
		// Documentary area
		case C_POLYDOCAREA :
		fillmode= poly.TYP==C_POLYDOCAREA ? (netarea=="" ? 1 : 0) : 2;
		switch (macclass) {
			case bae_planddbclass() :
			color=COLOR_SCMDOC;
			break;
			case DDBCLSSYM :
			case DDBCLSLAB :
			color=COLOR_SCMSYM;
			break;
			case DDBCLSMRK :
			color=COLOR_SCMMRK;
			break;
			default :
			color=COLOR_SCMDOC;
			break;
			}
		if (curobj!=DOC && !scanjunct)
			return(0);
		break;
		// Contact area
		case C_POLYCONAREA :
		color=COLOR_SCMCAR;
		fillmode=1;
		if ((curobj!=CONA || level>=0) && !scanjunct)
			return(0);
		break;
		// Internal
		case 2 :
		color=15;
		fillmode=1;
		break;
		case 3 :
		color=13;
		fillmode=1;
		if (!scanjunct)
			return(0);
		break;
		// No output area
		default :
		return(0);
		}
	// Abort if invisible
	if (color<=0)
		return(0);
	// Display the polygon
	bae_clearpoints();
	forall (point of poly)
		bae_storepoint(
		 dvx+point.X*xscale,dvy+dvh-point.Y*yscale,
		 point.TYP ? 3-point.TYP : 0);
	bae_popdrawpoly(color,DM_SET,fillmode);
	// Return without errors
	return(0);
}

int confunc(index C_CONBASE conbase,int segidx,
 int contyp,double lx,double ly,double ux,double uy,
 int busconflag,int coninws,index C_LEVEL level)
/*
// Design window drawing connection function
// Return value :
//	zero if done or (-1) on file error
// Parameters :
//	index C_CONBASE conbase	: Connection base
//	int segidx		: Connection segment index
//	int contyp		: Connection type
//	double lx		: Lower X coordinate
//	double ly		: Lower Y coordinate
//	double ux		: Upper X coordinate
//	double uy		: Upper Y coordinate
//	int busconflag		: Connection bus flag
//	int coninws		: Connection in workspace flag
//	index C_LEVEL level	: Connection level
*/
{
	// Abort if not connection output
	if (curobj!=CON)
		return(0);
	// Check if connection crosspoint
	if (contyp==1) {
		// Check if junction defined
		if (junct!=(-1)) {
			// Set the junction scan flag
			scanjunct=1;
			// Scan cross marker
			if (cap_scanpool(junct,lowx-lx,lowy-ly,
			 0.0,coninws,macfunc,confunc,polyfunc,textfunc))
				return(-1);
			// Reset the junction scan flag
			scanjunct=0;
			}
		// Return without errors
		return(0);
		}
	// Check if bus segment
	if (busconflag) {
		// Draw bus segment
		bae_clearpoints();
		bae_storepoint(
		 dvx+(lx-BUSLWH-lowx)*xscale,
		 dvy+dvh-(ly-BUSLWH-lowy)*yscale,0);
		bae_storepoint(
		 dvx+(ux+BUSLWH-lowx)*xscale,
		 dvy+dvh-(ly-BUSLWH-lowy)*yscale,0);
		bae_storepoint(
		 dvx+(ux+BUSLWH-lowx)*xscale,
		 dvy+dvh-(uy+BUSLWH-lowy)*yscale,0);
		bae_storepoint(
		 dvx+(lx-BUSLWH-lowx)*xscale,
		 dvy+dvh-(uy+BUSLWH-lowy)*yscale,0);
		bae_popdrawpoly(COLOR_SCMCON,DM_SET,PPFM_CLINE);
		}
	else {
		// Draw normal segment
		bae_clearpoints();
		bae_storepoint(
		 dvx+(lx-lowx)*xscale,dvy+dvh-(ly-lowy)*yscale,0);
		bae_storepoint(
		 dvx+(ux-lowx)*xscale,dvy+dvh-(uy-lowy)*yscale,0);
		bae_popdrawpoly(COLOR_SCMCON,DM_SET,PPFM_LINE);
		}
	// Return without errors
	return(0);
}

int textfunc(index C_TEXT textp,double tx,double ty,double tangle,
 int mirrflag,double tsize,string tstr,int textinws,int macclass,int varattr)
/*
// Vectorize a text data block
// Return value :
//	zero if done or (-1) on error
//	index C_TEXT textp	: Text index
//	double tx		: Text X coordinate
//	double ty		: Text Y coordinate
//	double tangle		: Text rotation angle
//	int mirrflag		: Text mirror flag
//	double tsize		: Text size
//	string tstr		: Text string
//	int textinws		: Text in workspace flag
//	int macclass		: Text macro class
//	int varattr		: Text variant attribute flag
*/
{
	double len			/* Text base line length */;
	double vx,vy			/* Text angle vector */;
	// Abort scan if out of class or empty string
	if (macclass!=curclass || curobj!=TEXT || tstr=="" || tsize<=0.0)
		return(0);
	// Get the text color
	if (textp.MODE&TEXTCOMM) {
		// Comment text
		color=COLOR_SCMCTX;
		}
	else {
		// Standard text
		// Set color according to macro class
		switch (macclass) {
			case DDBCLSSYM :
			case DDBCLSLAB :
			color=COLOR_SCMSYM;
			break;
			case DDBCLSMRK :
			color=COLOR_SCMMRK;
			break;
			default :
			color=COLOR_SCMDOC;
			break;
			}
		}
	// Ignore if not visible
	if (color<=0)
		return(0);
	if (tsize*yscale<MINTXT) {
		// Get base line length
		len=strlen(tstr)*tsize*2.0/3.0;
		// Get the text angle vector
		vx=cos(tangle)*len;
		vy=sin(tangle)*len;
		// Draw the simplified text line
		bae_clearpoints();
		bae_storepoint(dvx+tx*xscale,dvy+dvh-ty*yscale,0);
		bae_storepoint(dvx+(tx+vx)*xscale,dvy+dvh-(ty+vy)*yscale,0);
		bae_popdrawpoly(color,DM_SET,PPFM_LINE);
		}
	else if (cap_vecttext(
	 tx,ty,tangle,mirrflag,tsize,textp.MODE,tstr,tlinefunc)==(-1))
		// Vectorization failed
		return(-1);
	// Return without errors
	return(0);
}

int amacfunc(index C_MACRO macro,index C_POOL pool,int macinws,
 string refname,index C_LEVEL level,index C_LEVEL buslevel)
/*
// Attribute scan  macro function
// Return value :
//	0 if out of workspace, 1 if inside, 2 if unknown, or (-1) on error
// Parameters :
//	index C_MACRO macro	: Macro index
//	index C_POOL pool	: Macro pool index
//	int macinws		: Macro in workspace flag
//	string refname		: Macro reference name
//	index C_LEVEL level	: Macro level
//	index C_LEVEL buslevel	: Macro bus level
*/
{
	// Abort scan if out of class
	return(macro.CLASS!=DDBCLSSYM ? 0 : 1);
}

int atextfunc(index C_TEXT textp,double tx,double ty,double tangle,
 int mirrflag,double tsize,string tstr,int textinws,int macclass,int varattr)
/*
// Vectorize a text data block
// Return value :
//	zero if done or (-1) on error
//	index C_TEXT textp	: Text index
//	double tx		: Text X coordinate
//	double ty		: Text Y coordinate
//	double tangle		: Text rotation angle
//	int mirrflag		: Text mirror flag
//	double tsize		: Text size
//	string tstr		: Text string
//	int textinws		: Text in workspace flag
//	int macclass		: Text macro class
//	int varattr		: Text variant attribute flag
*/
{
	int i				/* Loop control variable */;
	if (scm_chkattrname(tstr)==0) {
		for (i=0;i<attrn;i++)
			if (attnl[i]==tstr)
				return(0);
		attnl[attrn]=tstr;
		attvl[attrn]=PA_NILVAL;
		attrn++;
		}
	// Return without errors
	return(0);
}

static int tlinefunc(double x1,double y1,double x2,double y2)
/*
// Draw a text line as path
// Return value :
//	zero if done or (-1) on error
// Parameters :
//	double x1		: First line point X coordinate
//	double y1		: First line point Y coordinate
//	double x2		: Second line point X coordinate
//	double y2		: Second line point Y coordinate
*/
{
	// Draw the line
	bae_clearpoints();
	bae_storepoint(dvx+x1*xscale,dvy+dvh-y1*yscale,0);
	bae_storepoint(dvx+x2*xscale,dvy+dvh-y2*yscale,0);
	bae_popdrawpoly(color,DM_SET,PPFM_LINE);
	// Return without errors
	return(0);
}

string textinput(double textsize,double textang,int textmirr,int textmode,
 int frame1,int frame2,int openframe,int norot,int texthcent,int textvcent,
 double textw)
/*
// Get new text
// Return value :
//	Text string
// Parameters :
//	double textsize			: Text size
//	double textang			: Text angle
//	int textmirr			: Text mirror flag
//	int textmode			: Text mode
//	int frame1			: Text 1st frame
//	int frame2			: Text 2nd frame
//	int openframe			: Text open frame
//	int norot			: Text no rotation
//	int texthcent			: Text horizontal center alignment
//	int textvcent			: Text vertical center alignment
//	double textw			: Text plot width
*/
{
	string textstr			/* Text string */;
	double pcol = 12.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			/* Dialog box repeat flag */;
	int res				/* Dialog box result buffer */;
	int emask			/* Element class mask */;
	int editidx			/* Edit field dialog box item idx. */;
	int hidx			/* Text height param. index */;
	int aidx			/* Angle parameter index */;
	int midx			/* Mirror parameter index */;
	int nridx			/* Text norotate param. index */;
	int fr1idx			/* 1st frame param. index */;
	int fr2idx			/* 2nd frame param. index */;
	int froidx			/* Frame open param. index */;
	int cidx			/* Commentary text param. index */;
	int zidx			/* Center param. index */;
	int widx			/* Text width param. index */;
	int i				/* Loop control variable */;
	// Get the text list
	for (TEXTN=0;TEXTN<100;TEXTN++) {
		if ((TEXTL[TEXTN].txt=bae_inistrval(
		 bae_inifieldvarname(PAR_DEFTEXTLST,TEXTN,0),""))=="") {
			// Check if list defined at all
			if (TEXTN==0) {
				// Use default text list
				TEXTL=DEFTEXTL;
				TEXTN=arylength(TEXTL);
				}
			break;
			}
		TEXTL[TEXTN].efield=bae_iniintval(
		 bae_inifieldvarname(PAR_DEFTEXTLST,TEXTN,1),0);
		}
	if (scm_getstrpar(6,textstr))
		textstr="";
	// Check for dialog support
	if (bae_dialclr()) {
		if ((textstr=bae_readedittext(UPRTEXT,"",MAXTEXTLEN))=="" ||
		 textstr==UINPOPABORT)
			error_abort();
		}
	else {
		baseheight=DIAL_TOPMARG+2.0*DIAL_SEPVSTEP+DIAL_BUTVSTEP+
		 6.0*DIAL_CTRVSTEP;
		// Perform the dialog input loop
		repflag=1;
		do {
			bae_dialclr();
			dial_getboxsizemin(3049,dialwidth,dialheight,
			 DIAL_LEFTMARG+60.0+DIAL_RIGHTSMARG,baseheight+12.0,
			 DIAL_LEFTMARG+60.0+DIAL_RIGHTSMARG,baseheight+2.0);
			// Get element class mask
			emask=1<<(bae_planddbclass()-DDBCLSCM);
			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,"");
			cy+=DIAL_BUTVSTEP;
			dial_hsep(cy);
			// Store edit control
			editidx=bae_dialaddcontrol(PA_STR|PA_FOCUS|PA_HBRDREL,
			 0,0,0,0.0,0.0,0.0,textstr,MAXTEXTLEN,
			 DIAL_LEFTMARG,cy,DIAL_RIGHTSMARG,"");
			cy+=DIAL_CTRVSTEP;
			cidx=bae_dialaddcontrol(PA_RBF,0,0,textmode,0.0,0.0,
			 0.0,"",0,DIAL_LEFTMARG,cy,0.0,UPRSTANDARD);
			bae_dialaddcontrol(PA_RBN,1,0,0,0.0,0.0,0.0,
			 "",0,DIAL_LEFTMARG+pcol,cy,0.0,UPRCOMMENT);
			nridx=bae_dialaddcontrol(PA_TOGGLE,0,0,norot,0.0,0.0,
			 0.0,"",0,DIAL_LEFTMARG+pcol+21.0,cy,0.0,UPRNOROT);
			cy+=DIAL_CTRVSTEP;
			dial_label(0.0,cy,UPRHEIGHT);
			hidx=bae_dialaddcontrol(PA_DBL|PA_DIST|PA_CHKLL,0,4,0,
			 0.0,0.0,textsize,"",0,DIAL_LEFTMARG+pcol,cy,12.0,"");
			dial_label(DIAL_LEFTMARG+pcol+14.0,cy,UPRANG);
			aidx=bae_dialaddcontrol(PA_DBL,0,2,0,0.0,0.0,
			 cvtangle(textang,0,1),"",0,
			 DIAL_LEFTMARG+pcol+21.0,cy,12.0,"");
			midx=bae_dialaddcontrol(PA_TOGGLE,0,0,textmirr,0.0,0.0,
			 0.0,"",0,DIAL_LEFTMARG+pcol+35.0,cy,0.0,UPRMIRROR);
			cy+=DIAL_CTRVSTEP;
			dial_label(0.0,cy,UPRCENTER);
			zidx=bae_dialaddcontrol(PA_RBF,0,0,
			 (texthcent ? 1 : 0)|(textvcent ? 2 : 0),0.0,0.0,0.0,
			 "",0,DIAL_LEFTMARG+pcol,cy,0.0,UPRCENTN);
			bae_dialaddcontrol(PA_RBN,1,0,0,0.0,0.0,0.0,"",0,
			 DIAL_LEFTMARG+pcol+7.0,cy,0.0,UPRCENTH);
			bae_dialaddcontrol(PA_RBN,2,0,0,0.0,0.0,0.0,"",0,
			 DIAL_LEFTMARG+pcol+14.0,cy,0.0,UPRCENTV);
			bae_dialaddcontrol(PA_RBN,3,0,0,0.0,0.0,0.0,"",0,
			 DIAL_LEFTMARG+pcol+21.0,cy,0.0,UPRCENTHV);
			cy+=DIAL_CTRVSTEP;
			dial_label(0.0,cy,UPRFRAME);
			fr1idx=bae_dialaddcontrol(PA_TOGGLE,0,0,frame1,0.0,0.0,
			 0.0,"",0,DIAL_LEFTMARG+pcol,cy,0.0,UPRFRAME1);
			fr2idx=bae_dialaddcontrol(PA_TOGGLE,0,0,frame2,0.0,0.0,
			 0.0,"",0,DIAL_LEFTMARG+pcol+7.0,cy,0.0,UPRFRAME2);
			froidx=bae_dialaddcontrol(PA_TOGGLE,0,0,openframe,0.0,
			 0.0,0.0,"",0,DIAL_LEFTMARG+pcol+14.0,cy,0.0,UPRFRAMEO);
			cy+=DIAL_CTRVSTEP;
			dial_label(0.0,cy,UPRPWIDTH);
			widx=bae_dialaddcontrol(PA_DBL|PA_DIST,0,4,0,
			 0.0,0.0,textw,"",0,DIAL_LEFTMARG+pcol,cy,12.0,"");
			cy+=DIAL_CTRVSTEP;
			// Store text list box
			bae_dialadvcontrol(
			 PA_LB|PA_OKSEL|PA_HSCROLL|PA_HBRDREL|PA_VBRDREL,
			 editidx,0,(-1),0.0,0.0,0.0,"",0,
			 DIAL_LEFTMARG,cy,DIAL_RIGHTSMARG,DIAL_SEPVSTEP,"");
			// Store list box entries
			for (i=0;i<TEXTN;i++)
				if (emask&TEXTL[i].efield)
					// Add the text
					bae_dialaddcontrol(PA_LBE,0,0,0,0.0,0.0,
					 0.0,"",0,0.0,0.0,0.0,TEXTL[i].txt);
			cy+=dialheight-baseheight+DIAL_SEPVSTEP;
			// Display dialog box
			bae_setintpar(16,3049);
			res=bae_dialaskparams("!"+UPRTEXT,0,dialwidth,cy);
			switch (res) {
				// Done
				case 0 :
				// Resize
				case (-2) :
				bae_dialgetdata(editidx,0,0.0,textstr);
				if (res==0 && textstr=="")
					error_abort();
				bae_dialgetdata(hidx,0,textsize,"");
				bae_dialgetdata(widx,0,textw,"");
				varset(VAR_PLOTW,textw);
				bae_dialgetdata(aidx,0,textang,"");
				textang=cvtangle(textang,1,0);
				bae_dialgetdata(midx,textmirr,0.0,"");
				bae_dialgetdata(fr1idx,frame1,0.0,"");
				bae_dialgetdata(fr2idx,frame2,0.0,"");
				bae_dialgetdata(froidx,openframe,0.0,"");
				bae_dialgetdata(zidx,texthcent,0.0,"");
				bae_dialgetdata(nridx,norot,0.0,"");
				if ((texthcent&2)!=0) {
					textvcent=1;
					texthcent&=1;
					}
				else {
					textvcent=0;
					}
				if (cidx!=(-1))
					bae_dialgetdata(cidx,textmode,0.0,"");
				if (res==0)
					repflag=0;
				break;
				default :
				error_abort();
				}
			// Stop if no further repeat requests
			} while (repflag);
		}
	// Extract pure name from attribute string
	if (textstr[0]=='$') {
		for (i=1;textstr[i]!='\0';i++)
			if (textstr[i]==' ')
				break;
		textstr=strextract(textstr,0,i-1);
		}
	// Return the text string
	return(textstr);
}

// User Language program end