Initial import of xtrkcad version 1:4.0.2-2

1 files changed, 266 insertions, 0 deletions

diff --git a/app/bin/dease.c b/app/bin/dease.c
new file mode 100644
index 0000000..9b07129
--- /dev/null
+++ b/app/bin/dease.c
@@ -0,0 +1,266 @@
+/*
+ * $Header: /home/dmarkle/xtrkcad-fork-cvs/xtrkcad/app/bin/dease.c,v 1.3 2008-03-06 19:35:08 m_fischer Exp $
+ *
+ * Easement Button Hdlrs
+ *
+ */
+
+/*  XTrkCad - Model Railroad CAD
+ *  Copyright (C) 2005 Dave Bullis
+ *
+ *  This program is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License as published by
+ *  the Free Software Foundation; either version 2 of the License, or
+ *  (at your option) any later version.
+ *
+ *  This program is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public License
+ *  along with this program; if not, write to the Free Software
+ *  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+ */
+
+
+#include "track.h"
+#include "ccurve.h"
+#include "cstraigh.h"
+#include "cjoin.h"
+#include "i18n.h"
+
+static wButton_p easementB;
+
+static DIST_T easeX = 0.0;
+
+static DIST_T Rvalues[3];
+static DIST_T Lvalues[3];
+
+static DIST_T oldEasementVal;
+
+static wIcon_p enone_bm;
+static wIcon_p esharp_bm;
+static wIcon_p egtsharp_bm;
+static wIcon_p enormal_bm;
+static wIcon_p eltbroad_bm;
+static wIcon_p ebroad_bm;
+static wIcon_p egtbroad_bm;
+
+/****************************************
+ *
+ * EASEMENTW
+ *
+ */
+
+static wWin_p easementW;
+
+static void EasementSel( long );
+static void SetEasement( DIST_T, void * );
+static void EasementOk( void );
+static void EasementCancel( void );
+
+static char *easementChoiceLabels[] = { N_("None"), N_("Sharp"), N_("Normal"), N_("Broad"), NULL };
+static paramFloatRange_t r0o5_2 = { 0.5, 2.0, 60 };
+static paramFloatRange_t r0_100 = { 0.0, 100.0, 60 };
+static paramFloatRange_t r0_10 = { 0.0, 10.0, 60 };
+static long easeM;
+static paramData_t easementPLs[] = {
+#define I_EASEVAL		(0)
+	{	PD_FLOAT, &easementVal, "val", PDO_NOPSHUPD, &r0o5_2, N_("Value") },
+	{	PD_FLOAT, &easeR, "r", PDO_DIM|PDO_DLGRESETMARGIN, &r0_100, N_("R"), BO_READONLY },
+	{	PD_FLOAT, &easeX, "x", PDO_DIM|PDO_DLGHORZ, &r0_10, N_("X"), BO_READONLY },
+	{	PD_FLOAT, &easeL, "l", PDO_DIM|PDO_DLGHORZ, &r0_100, N_("L"), BO_READONLY },
+#define I_EASESEL		(4)
+	{	PD_RADIO, &easeM, "radio", PDO_DIM|PDO_NORECORD|PDO_NOPREF|PDO_DLGRESETMARGIN, easementChoiceLabels, NULL, BC_HORZ|BC_NONE } };
+static paramGroup_t easementPG = { "easement", PGO_RECORD, easementPLs, sizeof easementPLs/sizeof easementPLs[0] };
+
+
+static void SetEasement(
+		DIST_T val,
+		void * update )
+/*
+ * Set transition-curve parameters (R and L).
+ */
+{
+	DIST_T z;
+	long selVal = -1;
+	wIcon_p bm;
+
+	if (val == 0.0) {
+		easeX = easeR = easeL = 0.0;
+		selVal = 0;
+		bm = enone_bm;
+	} else if (val <= 1.0) {
+		z = 1.0/val - 1.0;
+		easeR = Rvalues[1] - z * (Rvalues[1] - Rvalues[0]);
+		easeL = Lvalues[1] - z * (Lvalues[1] - Lvalues[0]);
+		if (easeR != 0.0)
+			easeX = easeL*easeL/(24*easeR);
+		else
+			easeX = 0.0;
+		if (val == 1.0) {
+			selVal = 2;
+			bm = enormal_bm;
+		} else if (val == 0.5) {
+			selVal = 1;
+			bm = esharp_bm;
+		} else {
+			bm = egtsharp_bm;
+		}
+	} else {
+		z = val - 1.0;
+		easeR = Rvalues[1] + z * (Rvalues[2] - Rvalues[1]);
+		easeL = Lvalues[1] + z * (Lvalues[2] - Lvalues[1]);
+		if (easeR != 0.0)
+			easeX = easeL*easeL/(24*easeR); 
+		else
+			easeX = 0.0;
+		if (val == 2.0) {
+			selVal = 3;
+			bm = ebroad_bm;
+		} else if (val < 2.0) {
+			bm = eltbroad_bm;
+		} else {
+			bm = egtbroad_bm;
+		}
+	}
+
+	easeR = (floor(easeR*100.0))/100.0;
+	easementVal = val;
+	if (easementW && wWinIsVisible(easementW)) {
+		ParamLoadControls( &easementPG );
+		if (update) {
+			easeM = selVal;
+			ParamLoadControl( &easementPG, I_EASESEL );
+		}
+	}
+	/*ParamChange( &easeValPD );*/
+
+	if (easementB)
+		wButtonSetLabel( easementB, (char*)bm );
+}
+
+
+static void EasementOk( void )
+{
+	ParamLoadData( &easementPG );
+	SetEasement( easementVal, (void*)FALSE );
+	wHide( easementW );
+}
+
+
+static void EasementCancel( void )
+{
+	SetEasement( easementVal = oldEasementVal, (void*)FALSE );
+	wHide( easementW );
+}
+
+
+static void EasementSel(
+		long arg )
+/*
+ * Handle transition-curve parameter selection.
+ */
+{
+	DIST_T val;
+	switch (arg) {
+	case 0:
+		val = 0;
+		break;
+	case 1:
+		val = 0.5;
+		break;
+	case 2:
+		val = 1.0;
+		break;
+	case 3:
+		val = 2.0;
+		break;
+	default:
+		AbortProg( "easementSel: bad value %ld", arg);
+		val = 0.0;
+		break;
+	}
+	SetEasement( val, (void*)FALSE );
+}
+
+
+static void EasementDlgUpdate(
+		paramGroup_p pg,
+		int inx,
+		void * valueP )
+{
+	switch (inx) {
+	case I_EASEVAL:
+		SetEasement( *(FLOAT_T*)valueP, (void*)1 );
+		break;
+	case I_EASESEL:
+		EasementSel( *(long*)valueP );
+		break;
+	}
+}
+
+
+static void LayoutEasementW(
+		paramData_t * pd,
+		int inx,
+		wPos_t colX,
+		wPos_t * x,
+		wPos_t * y )
+{
+	if ( inx == 2 )
+		wControlSetPos( easementPLs[0].control, *x, wControlGetPosY(easementPLs[0].control) );
+}
+
+
+static void DoEasement( void * junk )
+{
+	if (easementW == NULL) {
+		easementW = ParamCreateDialog( &easementPG, MakeWindowTitle(_("Easement")), _("Ok"), (paramActionOkProc)EasementOk, (paramActionCancelProc)EasementCancel, TRUE, LayoutEasementW, 0, EasementDlgUpdate );
+		SetEasement( easementVal, (void*)TRUE );
+	}
+	oldEasementVal = easementVal;
+	wShow( easementW );
+	SetEasement( easementVal, (void*)TRUE );
+}
+
+
+static void EasementChange( long changes )
+/*
+ * Handle change of scale. Load new parameters.
+ */
+{
+	if (changes&(CHANGE_SCALE|CHANGE_UNITS)) {
+		GetScaleEasementValues( Rvalues, Lvalues );
+		SetEasement( easementVal, (void*)TRUE );
+	}
+}
+
+
+#include "bitmaps/enone.xpm"
+#include "bitmaps/esharp.xpm"
+#include "bitmaps/egtsharp.xpm"
+#include "bitmaps/enormal.xpm"
+#include "bitmaps/eltbroad.xpm"
+#include "bitmaps/ebroad.xpm"
+#include "bitmaps/egtbroad.xpm"
+
+
+EXPORT addButtonCallBack_t EasementInit( void )
+{
+	ParamRegister( &easementPG );
+
+	enone_bm = wIconCreatePixMap( enone_xpm );
+	esharp_bm = wIconCreatePixMap( esharp_xpm );
+	egtsharp_bm = wIconCreatePixMap( egtsharp_xpm );
+	enormal_bm = wIconCreatePixMap( enormal_xpm );
+	eltbroad_bm = wIconCreatePixMap( eltbroad_xpm );
+	ebroad_bm = wIconCreatePixMap( ebroad_xpm );
+	egtbroad_bm = wIconCreatePixMap( egtbroad_xpm );
+	easementB = AddToolbarButton( "cmdEasement", enone_bm, 0, (addButtonCallBack_t)DoEasementRedir, NULL );
+
+	RegisterChangeNotification( EasementChange );
+	return &DoEasement;
+}
+