/* GEDSETUP (GED) -- Layout Editor Setup */
/* GEDSETUP (GED) -- Layout Editor Setup */
/* -- INTENDED FOR GED-STARTUP-CALL USE -- */
/*
// Copyright (c) 1993-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 (071029) RELEASED FOR BAE V7.0.
//	rl (060829) RELEASED FOR BAE V6.8.
//	rl (050906) RELEASED FOR BAE V6.6.
//	rl (040811) RELEASED FOR BAE V6.4.
//	rl (030909) 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 (010209) ENHANCEMENT:
//		Added optional parameter settings from bae.ini file.
//	rl (000509) RELEASED FOR BAE V4.6.
//	rl (990625) RELEASED FOR BAE V4.4.
//	rl (990324) ENHANCEMENT:
//		Added auto corner insert parameter.
//	rl (980910) RELEASED FOR BAE V4.2.
//	rl (980901) ENHANCEMENT:
//		Changed lay_setplanchkparam parameters 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 (941116) ENHANCEMENT:
//		Introduced key assignment function.
//		Introduced menu setup function.
//	mb (94) RELEASED FOR BAE V3.0.
//	mb (93) RELEASED FOR BAE V2.6.
//	mb (93) ORIGINAL CODING.
//
// DESCRIPTION
//
// The gedsetup User Language program sets a series of
// default Layout Editor parameters and display modes.
// gedsetup also starts the uifsetup User Language program
// in order to activate predefined Layout Editor menu
// assignments and key bindings.
*/

// Includes
#include "lay.ulh"			// User Language layout utilities

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

// INI file parameter name definitions
#define PAR_WARNMODE	"WARNMODE_LAY"	// Warning mode
#define PAR_BACKGRID	"BACKGRID_GED"	// Background grid
#define PAR_INPUTGRID	"INPUTGRID_GED"	// Input grid
#define PAR_GRIDLOCK	"GRIDLOCK_GED"	// Input grid lock
#define PAR_ANGLELOCK	"ANGLELOCK_GED"	// Input angle lock
#define PAR_ANGLETOGG	"ANGLETOGGLE_GED"	// Input angle toggle flag
#define PAR_AUTOCORN	"AUTOCORN_GED"	// Automatic corner insertion
#define PAR_COORDDISP	"COORDDISP_GED"	// Coordinate display mode
#define PAR_COLTABSAVE	"COLTABSAVE_LAY"// Color table save flag
#define PAR_PICKPLAY	"PICKPLAY_GED"	// Pick prefered layer
#define PAR_WIDEDRAW	"WIDEDRAW_GED"	// Wide draw width
#define PAR_DRCDISTPAT	"DRCDISTPATT_GED"	// DRC distance display pattern
#define PAR_PATHPICKM	"PATHPICKM_GED"	// Path pick mode
#define PAR_PATHWIDTH1	"PATHWIDTH1_GED"// First (small) path width
#define PAR_PATHWIDTH2	"PATHWIDTH2_GED"// Second (wide) path width
#define PAR_MINCON	"MINCON_GED"	// Mincon mode
#define PAR_MINCONAREA	"MINCONAREA_GED"// Mincon area flags
#define PAR_MINCONDISP	"MINCONDISP_GED"// Mincon display mode
#define PAR_MINCONCLIP	"MINCONCLIP_GED"// Mincon display clipping mode
#define PAR_GRPDMODE	"GRPDISPMODE_GED"	// Group display mode
#define PAR_GRPAMODE	"GRPANGMODE_GED"// Group angle release mode
#define PAR_GRPVMODE	"GRPVISMODE_GED"// Group visibility mode
#define PAR_GRPBALTLAY	"GRPBRDALTLAY_GED"// Group board outline alternate layer
#define PAR_PARTAIRLM	"PARTAIRLM_GED"	// Part airline mode
#define PAR_PARTTRCM	"PARTTRCM_GED"	// Part pin trace move mode
#define PAR_DRCDEF	"DRCDEF_GED"	// DRC default clearance value
#define PAR_AUTOSAVEI	"AUTOSAVEI_GED"	// Autosave intervall
#define PAR_PICKMODE	"PICKMODE_GED"	// Element pick mode
#define PAR_AUTOCOMPL	"PAUTOCOMPL_GED"// Polygon autocomplete mode
#define PAR_LAYDEFM	"LAYDEFM_GED"	// Layer default mode
#define PAR_DRCDISPM	"DRCDISPM_GED"	// DRC error display mode
#define PAR_DRCTEXTH	"DRCTEXTH_GED"	// DRC error text height
#define PAR_PICKPDISP	"PICKPDISP_GED"	// Pick point display mode
#define PAR_INFODISP	"INFODISP_GED"	// Info display mode
#define PAR_PLOTPDISP	"PLOTPDISP_GED"	// Plot preview mode
#define PAR_MIRRDISP	"MIRRDISP_GED"	// Mirror display mode
#define PAR_DRCDISTM	"DRCDISTM_GED"	// DRC distance display mode
#define PAR_LAUTOSCAN	"LAUTOSCAN_GED"	// Automatic layer scan mode
#define PAR_TSEGMOVM	"TSEGMOVM_GED"	// Trace segment move mode
#define PAR_TRCNQRYLIM	"TRCNQRYLIM_GED"// Trace net deletion query limit
#define PAR_TRCLMERGEQRY "TRCLMERGEQRY_GED"	// Layout trace merge query mode
#define PAR_TRCPMERGEQRY "TRCPMERGEQRY_GED"	// Part trace merge query mode
#define PAR_TRCJOINQRY	"TRCJOINQRY_GED"// Trace join query mode
#define PAR_TRCCOLLQRY	"TRCCOLLQRY_GED"// Trace collision query mode
#define PAR_VIAOPTM	"VIAOPTM_GED"	// Via optimization mode
#define PAR_FONTNAME	"FONTNAME_GED"	// Font name
#define PAR_CLINEEDIT	"CLINEEDIT_GED"	// Closed documentary line edit mode
#define PAR_TXTLAYMIRR	"TXTLAYMIRR_GED"// Text layer mirroring mode
#define PAR_LBROWSEBOX	"LBROWSEBOX_GED"// Layer browse box  flag
#define PAR_DRLNAMEBASE	"DRLNAMEBASE_GED"	// Drill naming base
#define PAR_DRLPMACRO	"DRLPMACRO_GED"	// Drill part macro name pattern
#define PAR_DRLSMACRO	"DRLSMACRO_GED"	// Drill padstack macro name pattern
#define PAR_CFISOL	"CFISOLATION_GED" // Copper fill isolation distance
#define PAR_CFMINAREA	"CFMINAREA_GED"	// Copper fill min. area size
#define PAR_CFTRCMODE	"CFTRCMODE_GED"	// Copper fill trace mode
#define PAR_CFISLAND	"CFISLAND_GED"	// Copper fill island mode
#define PAR_CFINKEEPO	"CFINKEEPOUT_GED" // Copper fill inside area mode
#define PAR_CFAANGMODE	"CFAANGMODE_GED"// Copper fill acute angle mode
#define PAR_CFHTMODE	"CFHTMODE_GED"	// Copper fill heat trap mode
#define PAR_CFHTWIDTH	"CFHTWIDTH_GED"	// Copper fill heat trap width
#define PAR_CFHTISOL	"CFHTISOL_GED"	// Copper fill heat trap iso. distance
#define PAR_CFMAXHTCNT	"CFMAXHTCNT_GED"// Copper fill max. heat trap junctions
#define PAR_CFHATSPACE	"CFHATSPACE_GED" // Copper fill hatch spacing
#define PAR_CFHATWIDTH	"CFHATWIDTH_GED" // Copper fill hatch width
#define PAR_CFHATANG	"CFHATANG_GED"	// Copper fill hatch angle
#define PAR_CFHATMODE	"CFHATMODE_GED"	// Copper fill hatch mode
#define PAR_NETVISBW	"NETVISBW_LAY"	// Net visibility box width
#define PAR_NETVISBT	"NETVISBT_LAY"	// Net visibility box type
#define PAR_APPARTEXP	"APPARTEXP_GED"	// Autoplacement part expansion
#define PAR_APPARTORD	"APPARTORD_GED"	// Autoplacement part order
#define PAR_APSEGFIT	"APSEGMFIT_GED"	// Autoplacement segment fit
#define PAR_APBASEOFF	"APBASEOFF_GED"	// Autoplacement part size base offset
#define PAR_APOPTCNT	"APOPTCNT_GED"	// Autoplacement optimization count
#define PAR_APPARTSWAP	"APPARTSWAP_GED"// Autoplacement part swap flag
#define PAR_APPGSWAP	"APPGSWAP_GED"	// Autoplacement pin/gate swap flag
#define PAR_APMIRR	"APMIRRMODE_GED"// Autoplacement part mirror mode
#define PAR_APROT	"APROTMODE_GED"	// Autoplacement part rotation mode
#define PAR_APRETRYCNT	"APRETRYCNT_GED"// Autoplacement retry count
#define PAR_APSMDROT	"APSROTMODE_GED"// Autoplacement SMD part rotation mode
#define PAR_APOUTLLAY	"APOUTLLAY_GED"	// Autoplacement part outline layer
#define PAR_CLEANROUT	"CLEANROUT_AR"	// Router cleaning run enable
#define PAR_CLEANOPT	"CLEANOPT_AR"	// Optim. cleaning run enable
#define PAR_OPTCOUNT	"OPTCOUNT_AR"	// Number of optimization runs
#define PAR_MAXROCON	"MAXROCON_AR"	// Max. rip-ups per connection
#define PAR_MAXROLEVEL	"MAXROLEVEL_AR"	// Max. rip-up level
#define PAR_MAXRORET	"MAXRORET_AR"	// Max. num. of rip-up retries
#define PAR_SMDVIAPASS	"SMDVIAPASS_AR"	// SMD via fanout pass
#define PAR_BGAFANOUT	"BGAFANOUT_AR"	// BGA fanout mode
#define PAR_MICVIAMODE	"MICVIAMODE_AR"	// Micro via mode
#define PAR_POWLVIAMODE	"POWLVIAMODE_AR"// Power layer via mode
#define PAR_PGSWAPMODE	"PGSWAPMODE_AR"	// Pin/gate swap mode
#define PAR_AUTOSAVE	"AUTOSAVE_AR"	// Automatic save enable
#define PAR_OPTCHAR	"OPTCHAR_AR"	// Optimizer characteristic
#define PAR_VIADELAY	"VIADELAY_AR"	// Router via delay at 1/10"
#define PAR_CHANNELDLY	"CHANNELDLY_AR"	// Router pin channel delay
#define PAR_CROSSDLY	"CROSSDLY_AR"	// Cross direction delay
#define PAR_DIRCHGDLY	"DIRCHGDLY_AR"	// Direction change delay
#define PAR_PACKDLY	"PACKDLY_AR"	// Path packing delay
#define PAR_STATDLY	"STATDLY_AR"	// Statistical delay base
#define PAR_BUSSTRDLY	"BUSSTRDLY_AR"	// Bus structure delay
#define PAR_RRAREA1DLY	"RRAREA1DLY_AR"	// Re-route area 1 delay
#define PAR_RRAREA2DLY	"RRAREA2DLY_AR"	// Re-route area 2 delay
#define PAR_SKIPPDLY	"SKIPPDLY_AR"	// Skip existing path delay
#define PAR_OFFGRIDDLY	"OFFGRIDDLY_AR"	// Router off-grid delay
#define PAR_PGRIDSHIFT	"PGRIDSHIFT_AR"	// Router prefered grid shift
#define PAR_PGRIDDLY	"PGRIDDLY_AR"	// Router prefered grid delay
#define PAR_NAREADLY	"NAREADLY_AR"	// Router outside net area delay
#define PAR_FULLVIAEVL	"FULLVIAEVL_AR"	// Full via evaluation mode
#define PAR_STDLINE	"STDLINE_CAM"	// Standard line width
#define PAR_POWHTMD	"POWHTMDIST_CAM"// Heat trap to drilling min. dist.
#define PAR_POWHTANG	"POWHTANG_CAM"	// Heat trap angle
#define PAR_POWISMD	"POWISMDIST_CAM"// Isolation to drilling min. dist.
#define PAR_POWHTRNG	"POWHTRANGE_CAM"// Heat trap to drilling dist. range
#define PAR_POWISRNG	"POWISRANGE_CAM"// Isolation to drilling dist. range
#define PAR_POWBORDWD	"POWBORDERWD_CAM"// Isolation border width
#define PAR_POWPLANEWD	"POWPLANEWD_CAM"// Split power plane isolation width

// Standard definitions
#define GRID		0.00127		// Standard grid (1/20" = 1.27mm)
#define PW1		0.0003		// Standard path width 1 (0.3mm)
#define PW2		0.001		// Standard path width 2 (1.0mm)

// Main program
void main()
{
	// Set default layout checking parameters if no layout plan loaded
	if (bae_planddbclass()!=DDBCLLAY) {
		// 0.3 mm for trace-trace, trace-copper, copper-copper
		if (lay_setplanchkparam(
		 bae_inidblval(PAR_DRCDEF,0.0003),
		 bae_inidblval(PAR_DRCDEF,0.0003),
		 bae_inidblval(PAR_DRCDEF,0.0003),0.0,"",(-1),0))
			// Parameter set error
			error(ERRPARAM);
		}
	// Enable all warnings
	ged_setintpar(10,bae_iniintval(PAR_WARNMODE,0));
	// Set GED parameters
	if (bae_setbackgrid(		 // Display grid
	  bae_inidblval(PAR_BACKGRID,GRID),bae_inidblval(PAR_BACKGRID,GRID))
	 || bae_setinpgrid(		// Input grid
	  bae_inidblval(PAR_INPUTGRID,GRID),bae_inidblval(PAR_INPUTGRID,GRID))
	 || bae_setgridlock(		// Input grid locked
	  bae_iniintval(PAR_GRIDLOCK,1))
	 || bae_setanglelock(		// Angle locked
	  bae_iniintval(PAR_ANGLELOCK,1))
	 || ged_setintpar(23,		// Angle lock toggle mode
	  bae_iniintval(PAR_ANGLETOGG,0))
	 || ged_setautocornins(		// Automatic traces corner ins. enabled
	  bae_iniintval(PAR_AUTOCORN,1))
	 || bae_setcoorddisp(		// mm coordinate display
	  bae_iniintval(PAR_COORDDISP,0))
	 || ged_setintpar(128,		// Color table save flag
	  bae_iniintval(PAR_COLTABSAVE,0))
	 || ged_setpickpreflay(		// Signal layer 1 pick pref.
	  bae_iniintval(PAR_PICKPLAY,0))
	 || ged_setpickmode(		// Element pick by prefered layer
	  bae_iniintval(PAR_PICKMODE,0))
	 || ged_setwidedraw(		// Wide draw width 1.5 mm
	  bae_inidblval(PAR_WIDEDRAW,0.0015))
	 || ged_setlaydefmode(		// Layer default mode
	  bae_iniintval(PAR_LAYDEFM,0))
	 || ged_setdrcmarkmode(		// DRC error display mode
	  bae_iniintval(PAR_DRCDISPM,0))
	 || ged_setdblpar(12,		// DRC error text height
	  bae_inidblval(PAR_DRCTEXTH,0.0))
	 || ged_setintpar(0,		// Pick point display mode
	  bae_iniintval(PAR_PICKPDISP,0))
	 || ged_setintpar(114,		// Polygon autocomplete mode
	  bae_iniintval(PAR_AUTOCOMPL,0))
	 || ged_setintpar(3,		// Info display mode
	  bae_iniintval(PAR_INFODISP,1))
	 || ged_setintpar(17,		// Plot preview mode
	  bae_iniintval(PAR_PLOTPDISP,0))
	 || bae_setintpar(24,		// Mirrored display mode
	  bae_iniintval(PAR_MIRRDISP,0))
	 || ged_setintpar(18,		// DRC distance display mode
	  bae_iniintval(PAR_DRCDISTM,0))
	 || ged_setpathwidth(		// Path width defaults
	  bae_inidblval(PAR_PATHWIDTH1,PW1),bae_inidblval(PAR_PATHWIDTH2,PW2))
	 || ged_setmincon(		// Mincon pins H+V sum
	  bae_iniintval(PAR_MINCON,3))
	 || ged_setintpar(37,		// Mincon no copper areas
	  bae_iniintval(PAR_MINCONAREA,0))
	 || ged_setintpar(129,		// Mincon display mode
	  bae_iniintval(PAR_MINCONDISP,0))
	 || ged_setintpar(130,		// Mincon display clipping mode
	  bae_iniintval(PAR_MINCONCLIP,0))
	 || ged_setsegmovmode(		// Trace seg. move without neighbours
	  bae_iniintval(PAR_TSEGMOVM,0))
	 || ged_setintpar(12,		// Closed line edit with query
	  bae_iniintval(PAR_CLINEEDIT,2))
	 || ged_setviaoptmode(		// Via optimization on
	  bae_iniintval(PAR_VIAOPTM,0))
	 || ged_setintpar(22,		// Part airline mode
	  bae_iniintval(PAR_PARTAIRLM,2))
	 || ged_setintpar(113,		// Part pin trace move mode
	  bae_iniintval(PAR_PARTTRCM,2))
	 || ged_setintpar(19,		// Text layer mirroring mode
	  bae_iniintval(PAR_TXTLAYMIRR,0))
	 || ged_setdblpar(13,		// Autoplacement part expansion
	  bae_inidblval(PAR_APPARTEXP,0.0))
	 || ged_setdblpar(14,		// Autoplacement part order
	  bae_inidblval(PAR_APPARTORD,0.1))
	 || ged_setdblpar(15,		// Autoplacement segment fit
	  bae_inidblval(PAR_APSEGFIT,0.9))
	 || ged_setintpar(39,		// Autoplacement optimization count
	  bae_iniintval(PAR_APOPTCNT,2))
	 || ged_setintpar(40,		// Autoplacement part swap flag
	  bae_iniintval(PAR_APPARTSWAP,1))
	 || ged_setintpar(41,		// Autoplacement pin/gate swap flag
	  bae_iniintval(PAR_APPGSWAP,1))
	 || ged_setintpar(42,		// Autoplacement part mirror mode
	  bae_iniintval(PAR_APMIRR,0))
	 || ged_setintpar(43,		// Autoplacement part rotation mode
	  bae_iniintval(PAR_APROT,1))
	 || ged_setintpar(44,		// Autoplacement retry count
	  bae_iniintval(PAR_APRETRYCNT,2))
	 || ged_setintpar(45,		// Autoplacement SMD part rotation mode
	  bae_iniintval(PAR_APSMDROT,1))
	 || ged_setintpar(46,		// Autoplacement part outline layer
	  bae_iniintval(PAR_APOUTLLAY,-2))
	 || ged_setdblpar(16,		// Autoplacement part base size offset
	  bae_inidblval(PAR_APBASEOFF,0.0))
	 || ged_setintpar(25,		// Copper fill trace mode
	  bae_iniintval(PAR_CFTRCMODE,1))
	 || ged_setintpar(26,		// Copper fill island mode
	  bae_iniintval(PAR_CFISLAND,1))
	 || ged_setintpar(27,		// Copper fill inside area mode
	  bae_iniintval(PAR_CFINKEEPO,0))
	 || ged_setintpar(29,		// Copper fill acute angle mode
	  bae_iniintval(PAR_CFAANGMODE,0))
	 || ged_setintpar(24,		// Copper fill heat trap mode
	  bae_iniintval(PAR_CFHTMODE,1))
	 || ged_setintpar(28,		// Copper fill max. heat trap junctions
	  bae_iniintval(PAR_CFMAXHTCNT,4))
	 || ged_setintpar(30,		// Copper fill hatch mode
	  bae_iniintval(PAR_CFHATMODE,0))
	 || ged_setdblpar(3,		// Copper fill isolation distance
	  bae_inidblval(PAR_CFISOL,0.0003))
	 || ged_setdblpar(4,		// Copper fill min. area size
	  bae_inidblval(PAR_CFMINAREA,0.0001))
	 || ged_setdblpar(5,		// Copper fill heat trap width
	  bae_inidblval(PAR_CFHTWIDTH,0.0003))
	 || ged_setdblpar(6,		// Copper fill heat trap isolation
	  bae_inidblval(PAR_CFHTISOL,0.0))
	 || ged_setdblpar(7,		// Copper fill hatch spacing
	  bae_inidblval(PAR_CFHATSPACE,0.00127))
	 || ged_setdblpar(8,		// Copper fill hatch width
	  bae_inidblval(PAR_CFHATWIDTH,0.0003))
	 || ged_setdblpar(9,		// Copper fill hatch angle
	  cvtangle(bae_inidblval(PAR_CFHATANG,135.0),1,0)))
		// Parameter set error
		error(ERRPARAM);
	// Load default font
	if (bae_loadfont(bae_inistrval(PAR_FONTNAME,"standard")))
		bae_loadfont("standard");
	// Set automatic layer scan mode
	if (bae_iniintval(PAR_LAUTOSCAN,0))
		ged_setintpar(11,2);
	// Display layer browser
	if (bae_iniintval(PAR_LBROWSEBOX,0))
		ulsystem("geddisp:sl10",0);
	// Set DRC distance display pattern
	ged_setintpar(13,bae_iniintval(PAR_DRCDISTPAT,9));
	// Set path pick mode
	ged_setintpar(14,bae_iniintval(PAR_PATHPICKM,0));
	// Set trace net deletion query limit
	ged_setintpar(16,bae_iniintval(PAR_TRCNQRYLIM,20));
	// Set trace join query mode
	ged_setintpar(116,bae_iniintval(PAR_TRCJOINQRY,2));
	// Set trace merge query modes
	ged_setintpar(132,bae_iniintval(PAR_TRCLMERGEQRY,1));
	ged_setintpar(133,bae_iniintval(PAR_TRCPMERGEQRY,2));
	// Set trace collision query mode
	ged_setintpar(131,bae_iniintval(PAR_TRCCOLLQRY,-1));
	// Set net visibility box width and type
	ged_setdblpar(10,bae_inidblval(PAR_NETVISBW,13.0));
	ged_setintpar(31,bae_iniintval(PAR_NETVISBT,0));
	// Set drill naming parameters
	ged_setstrpar(5,bae_inistrval(PAR_DRLNAMEBASE,"drill1"));
	ged_setstrpar(6,bae_inistrval(PAR_DRLPMACRO,"*hole*"));
	ged_setstrpar(7,bae_inistrval(PAR_DRLSMACRO,"d*"));
	// Set autosave intervall
	bae_clriactqueue();
	bae_storetextiact(1,bae_inistrval(PAR_AUTOSAVEI,"0"));
	bae_callmenu(812);
	// Set the group display mode
	ged_setintpar(81,bae_iniintval(PAR_GRPDMODE,2));
	// Set the group angle mode
	ged_setintpar(87,bae_iniintval(PAR_GRPAMODE,0));
	// Set the group visibility mode
	ged_setintpar(96,bae_iniintval(PAR_GRPVMODE,0));
	// Set the group visibility mode
	ged_setintpar(115,bae_iniintval(PAR_GRPBALTLAY,LAYERINV));
	// Set router control parameters
	ged_setintpar(66,bae_iniintval(PAR_CLEANROUT,1));
	ged_setintpar(67,bae_iniintval(PAR_CLEANOPT,1));
	ged_setintpar(49,bae_iniintval(PAR_OPTCOUNT,2));
	ged_setintpar(58,bae_iniintval(PAR_MAXROCON,2));
	ged_setintpar(59,bae_iniintval(PAR_MAXROLEVEL,50));
	ged_setintpar(60,bae_iniintval(PAR_MAXRORET,2));
	ged_setintpar(83,bae_iniintval(PAR_SMDVIAPASS,0));
	ged_setintpar(96,bae_iniintval(PAR_BGAFANOUT,1));
	ged_setintpar(101,bae_iniintval(PAR_MICVIAMODE,0));
	ged_setintpar(104,bae_iniintval(PAR_POWLVIAMODE,0));
	ged_setintpar(84,bae_iniintval(PAR_PGSWAPMODE,0));
	ged_setintpar(69,bae_iniintval(PAR_AUTOSAVE,1));
	// Set router strategy parameters
	ged_setintpar(52,bae_iniintval(PAR_VIADELAY,10));
	ged_setintpar(53,bae_iniintval(PAR_CHANNELDLY,3));
	ged_setintpar(54,bae_iniintval(PAR_CROSSDLY,1));
	ged_setintpar(55,bae_iniintval(PAR_DIRCHGDLY,2));
	ged_setintpar(56,bae_iniintval(PAR_PACKDLY,1));
	ged_setintpar(57,bae_iniintval(PAR_STATDLY,10));
	ged_setintpar(62,bae_iniintval(PAR_BUSSTRDLY,2));
	ged_setintpar(50,bae_iniintval(PAR_OPTCHAR,0));
	ged_setintpar(63,bae_iniintval(PAR_RRAREA1DLY,5));
	ged_setintpar(64,bae_iniintval(PAR_RRAREA2DLY,2));
	ged_setintpar(65,bae_iniintval(PAR_SKIPPDLY,20));
	ged_setintpar(81,bae_iniintval(PAR_OFFGRIDDLY,2));
	ged_setintpar(87,bae_iniintval(PAR_PGRIDSHIFT,0));
	ged_setintpar(88,bae_iniintval(PAR_PGRIDDLY,1));
	ged_setintpar(89,bae_iniintval(PAR_NAREADLY,1));
	ged_setintpar(99,bae_iniintval(PAR_FULLVIAEVL,1));
	// Set plot paramaters
	ged_setdblpar(27,bae_inidblval(PAR_STDLINE,0.0003));
	ged_setdblpar(28,bae_inidblval(PAR_POWHTMD,0.0004));
	ged_setdblpar(29,bae_inidblval(PAR_POWISMD,0.0004));
	ged_setdblpar(30,bae_inidblval(PAR_POWHTRNG,0.0005));
	ged_setdblpar(31,bae_inidblval(PAR_POWISRNG,0.0005));
	ged_setdblpar(32,bae_inidblval(PAR_POWBORDWD,0.0021));
	ged_setdblpar(33,bae_inidblval(PAR_POWPLANEWD,0.0003));
	ged_setintpar(108,bae_iniintval(PAR_POWHTANG,1));
	// Print parameter set message
	bae_prtdialog(REPDONE);
}

// User Language program end