/* SCMSETUP (SCM) -- Schematic Editor Setup */
/* SCMSETUP (SCM) -- Schematic Editor Setup */
/* -- INTENDED FOR SCM-STARTUP-CALL USE -- */
/*
// Copyright (c) 1994-2012 Oliver Bartels F+E, Muenchen
// Author: Manfred Baumeister
// Changes History:
//	rl (120427) RELEASED FOR BAE V7.8.
//	rl (101019) RELEASED FOR BAE V7.6.
//	rl (091021) RELEASED FOR BAE V7.4.
//	rl (081014) RELEASED FOR BAE V7.2.
//	rl (071203) ENHANCEMENT:
//		Added several plot parameters.
//	rl (071029) RELEASED FOR BAE V7.0.
//	rl (060829) RELEASED FOR BAE V6.8.
//	rl (051222) ENHANCEMENT:
//		Added symbol name prompt mode setting.
//	rl (051012) ENHANCEMENT:
//		Added warning mode setting.
//	rl (050906) RELEASED FOR BAE V6.6.
//	rl (040909) ENHANCEMENT:
//		Added plotline width setting.
//	rl (040811) RELEASED FOR BAE V6.4.
//	rl (030904) RELEASED FOR BAE V6.2.
//	rl (021209) RELEASED FOR BAE V6.0.
//	rl (020618) RELEASED FOR BAE V5.4.
//	rl (010625) RELEASED FOR BAE V5.0.
//	rl (010220) ENHANCEMENT:
//		Added optional parameter settings from bae.ini file.
//	rl (000509) RELEASED FOR BAE V4.6.
//	rl (990625) RELEASED FOR BAE V4.4.
//	rl (980910) RELEASED FOR BAE V4.2.
//	mb (980713) ENHANCEMENT:
//		Dynamic multi-language support introduced.
//	rl (970929) RELEASED FOR BAE V4.0.
//	mb (960919) RELEASED FOR BAE V3.4.
//	mb (95) RELEASED FOR BAE V3.2.
//	mb (941117) ORIGINAL CODING.
//
// DESCRIPTION
//
// The scmsetup User Language program sets a series of default
// SCM parameters and display modes. scmsetup also starts the
// uifsetup User Language program in order to activate predefined
// Schematic Editor menu assignments and key bindings.
*/

// Enforce SCM caller type
#pragma ULCALLERSCM

// Includes
#include "std.ulh"			// User Language standard include

// Messages
string REPDONE		= M("SCMSETUP: Schaltplaneditor Parameter gesetzt.",
			    "SCMSETUP: Schematic Editor parameter setup done.");
string ERRPARAM		= M("SCMSETUP: Ungueltige Parameter spezifiziert!",
			    "SCMSETUP: Invalid parameters specified!");

// INI file parameter name definitions
#define PAR_BACKGRID	"BACKGRID_SCM"	// Background grid
#define PAR_INPUTGRID	"INPUTGRID_SCM"	// Input grid
#define PAR_GRIDLOCK	"GRIDLOCK_SCM"	// Input grid lock
#define PAR_ANGLELOCK	"ANGLELOCK_SCM"	// Input angle lock
#define PAR_ANGLETOGG	"ANGLETOGGLE_SCM"	// Input angle toggle flag
#define PAR_COORDDISP	"COORDDISP_SCM"	// Coordinate display mode
#define PAR_AUTOCORN	"AUTOCORN_SCM"	// Automatic corner insertion
#define PAR_AUTOTAP	"AUTOTAPCON_SCM"// Automatic bus tap connection
#define PAR_AUTOCOMPL	"PAUTOCOMPL_SCM"	// Polygon autocomplete mode
#define PAR_PICKMODE	"PICKMODE_SCM"	// Element pick mode
#define PAR_PICKPDISP	"PICKPDISP_SCM"	// Pick point display mode
#define PAR_ERRORDISP	"ERRORDISP_SCM"	// Error display mode
#define PAR_INFODISP	"INFODISP_SCM"	// Info display mode
#define PAR_PLOTPDISP	"PLOTPDISP_SCM"	// Plot preview mode
#define PAR_FONTNAME	"FONTNAME_SCM"	// Font name
#define PAR_AUTOSAVEI	"AUTOSAVEI_SCM"	// Autosave intervall
#define PAR_NAMEPROMPT	"NAMEPROMPT_SCM"// Name prompt mode
#define PAR_NOPLCPVIS	"NOPLCPVIS_SCM"	// $noplc/plot visibilty relationship
#define PAR_STDLINE	"STDLINE_SCM"	// Standard line width
#define PAR_PLOTSCALE	"PLOTSCALE_SCM"	// HPGL plot scale factor
#define PAR_HPGLFILL	"HPGLFILL_SCM"	// HPGL fill mode
#define PAR_HPGLSPEED	"HPGLSPEED_SCM"	// HPGL pen speed
#define PAR_WARNMODE	"WARNMODE_SCM"	// Warning mode
#define PAR_GENPSCALE	"GENPSCALE_SCM"	// Generic printer scale mode
#define PAR_GENPCOLOR	"GENPCOLOR_SCM"	// Generic printer color mode
#define PAR_SUBSYMNUM	"SUBSYMNUM_SCM"	// Sub symbol rename number start
#define PAR_CLINEEDIT	"CLINEEDIT_SCM"	// Closed documentary line edit mode
#define PAR_GRPDMODE	"GRPDISPMODE_SCM"	// Group display mode
#define PAR_GRPAMODE	"GRPANGMODE_SCM"// Group angle release mode
#define PAR_NETPLDISP	"NETPLDISP_SCM"	// Max. net page list display length

// Main program
void main()
{
	// Set SCM parameters (grid 1mm)
	if (bae_setbackgrid(		 // Display grid
	  bae_inidblval(PAR_BACKGRID,cvtlength(1.0,2,0)),
	  bae_inidblval(PAR_BACKGRID,cvtlength(1.0,2,0)))
	 || bae_setinpgrid(		// Input grid
	  bae_inidblval(PAR_INPUTGRID,cvtlength(1.0,2,0)),
	  bae_inidblval(PAR_INPUTGRID,cvtlength(1.0,2,0)))
	 || bae_setgridlock(		// Input grid locked
	  bae_iniintval(PAR_GRIDLOCK,1))
	 || bae_setanglelock(		// Angle locked
	  bae_iniintval(PAR_ANGLELOCK,1))
	 || scm_setintpar(22,		// Angle lock toggle mode
	  bae_iniintval(PAR_ANGLETOGG,0))
	 || scm_setintpar(21,		// Automatic connection corner mode
	  bae_iniintval(PAR_AUTOCORN,0))
	 || scm_setintpar(27,		// Automatic bustap connection mode
	  bae_iniintval(PAR_AUTOTAP,1))
	 || scm_setintpar(5,		// Element pick mode
	  bae_iniintval(PAR_PICKMODE,0))
	 || scm_setintpar(37,		// Polygon autocomplete mode
	  bae_iniintval(PAR_AUTOCOMPL,0))
	 || scm_setintpar(19,           // Plot preview mode
	  bae_iniintval(PAR_PLOTPDISP,0))
	 || scm_setintpar(0,            // Pick point display mode
	  bae_iniintval(PAR_PICKPDISP,0))
	 || scm_setintpar(38,            // Error display mode
	  bae_iniintval(PAR_ERRORDISP,0))
	 || scm_setintpar(9,            // Info display mode
	  bae_iniintval(PAR_INFODISP,1))
	 || bae_setcoorddisp(		// mm coordinate display
	  bae_iniintval(PAR_COORDDISP,0)))
		// Parameter set error
		bae_msgbox(2,ERRPARAM,"");
	// Load default font
	if (bae_loadfont(bae_inistrval(PAR_FONTNAME,"standard")))
		bae_loadfont("standard");
	// Set autosave intervall
	bae_clriactqueue();
	bae_storetextiact(1,bae_inistrval(PAR_AUTOSAVEI,"0"));
	bae_callmenu(808);
	// Plot line width 0.3 mm
	bae_clriactqueue();
	bae_storetextiact(1,bae_inistrval(PAR_STDLINE,"0.3 mm"));
	bae_callmenu(901);
	// Plot scale factor
	scm_setdblpar(0,bae_inidblval(PAR_PLOTSCALE,1.0));
	// Generic printer scale mode
	scm_setintpar(13,bae_iniintval(PAR_GENPSCALE,0));
	// Generic printer color mode
	scm_setintpar(14,bae_iniintval(PAR_GENPCOLOR,0));
	// HPGL fill mode
	scm_setintpar(15,bae_iniintval(PAR_HPGLFILL,1));
	// HPGL speed
	scm_setdblpar(1,bae_inidblval(PAR_HPGLSPEED,-1.0));
	// Enable all warnings
	scm_setintpar(7,bae_iniintval(PAR_WARNMODE,0));
	// Activate symbol name prompt
	scm_setintpar(8,bae_iniintval(PAR_NAMEPROMPT,1));
	// Activate symbol $noplc plot visibility relationship
	scm_setintpar(33,bae_iniintval(PAR_NOPLCPVIS,3));
	// Set sub symbol rename number start
	scm_setintpar(12,bae_iniintval(PAR_SUBSYMNUM,-1));
	// Closed line edit with query
	scm_setintpar(16,bae_iniintval(PAR_CLINEEDIT,2));
	// Set the group display mode
	scm_setintpar(24,bae_iniintval(PAR_GRPDMODE,0));
	// Set the group angle mode
	scm_setintpar(30,bae_iniintval(PAR_GRPAMODE,0));
	// Set the max. net page list display length
	scm_setintpar(34,bae_iniintval(PAR_NETPLDISP,200));
	// Print parameter set message
	bae_prtdialog(REPDONE);
}

// User Language program end