From 7b358424ebad9349421acd533c2fa1cbf6cf3e3e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?J=C3=B6rg=20Frings-F=C3=BCrst?= Date: Wed, 28 Dec 2016 16:52:56 +0100 Subject: Initial import of xtrkcad version 1:4.0.2-2 --- app/bin/cstruct.c | 922 ++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 922 insertions(+) create mode 100644 app/bin/cstruct.c (limited to 'app/bin/cstruct.c') diff --git a/app/bin/cstruct.c b/app/bin/cstruct.c new file mode 100644 index 0000000..1f86217 --- /dev/null +++ b/app/bin/cstruct.c @@ -0,0 +1,922 @@ +/* + * $Header: /home/dmarkle/xtrkcad-fork-cvs/xtrkcad/app/bin/cstruct.c,v 1.4 2008-03-06 19:35:06 m_fischer Exp $ + * + * T_STRUCTURE + * + */ + +/* 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 +#include "track.h" +#include "compound.h" +#include "i18n.h" + +#include + +EXPORT TRKTYP_T T_STRUCTURE = -1; + +#define STRUCTCMD + +EXPORT dynArr_t structureInfo_da; + +typedef struct compoundData extraData; + + +static wIndex_t pierListInx; +EXPORT turnoutInfo_t * curStructure = NULL; +static int log_structure = 0; + +static wMenu_p structPopupM; + +#ifdef STRUCTCMD +static drawCmd_t structureD = { + NULL, + &screenDrawFuncs, + 0, + 1.0, + 0.0, + {0.0,0.0}, {0.0,0.0}, + Pix2CoOrd, CoOrd2Pix }; + +static wIndex_t structureHotBarCmdInx; +static wIndex_t structureInx; +static long hideStructureWindow; +static void RedrawStructure(void); + +static wPos_t structureListWidths[] = { 80, 80, 220 }; +static const char * structureListTitles[] = { N_("Manufacturer"), N_("Part No"), N_("Description") }; +static paramListData_t listData = { 13, 400, 3, structureListWidths, structureListTitles }; +static const char * hideLabels[] = { N_("Hide"), NULL }; +static paramDrawData_t structureDrawData = { 490, 200, (wDrawRedrawCallBack_p)RedrawStructure, NULL, &structureD }; +static paramData_t structurePLs[] = { +#define I_LIST (0) +#define structureListL ((wList_p)structurePLs[I_LIST].control) + { PD_LIST, &structureInx, "list", PDO_NOPREF|PDO_DLGRESIZEW, &listData, NULL, BL_DUP }, +#define I_DRAW (1) + { PD_DRAW, NULL, "canvas", PDO_NOPSHUPD|PDO_DLGUNDERCMDBUTT|PDO_DLGRESIZE, &structureDrawData, NULL, 0 }, +#define I_HIDE (2) + { PD_TOGGLE, &hideStructureWindow, "hide", PDO_DLGCMDBUTTON, /*CAST_AWAY_CONST*/(void*)hideLabels, NULL, BC_NOBORDER }, +#define I_MSGSCALE (3) + { PD_MESSAGE, NULL, NULL, 0, (void*)80 }, +#define I_MSGWIDTH (4) + { PD_MESSAGE, NULL, NULL, 0, (void*)80 }, +#define I_MSGHEIGHT (5) + { PD_MESSAGE, NULL, NULL, 0, (void*)80 } }; +static paramGroup_t structurePG = { "structure", 0, structurePLs, sizeof structurePLs/sizeof structurePLs[0] }; +#endif + + +/**************************************** + * + * STRUCTURE LIST MANAGEMENT + * + */ + + + + +EXPORT turnoutInfo_t * CreateNewStructure( + char * scale, + char * title, + wIndex_t segCnt, + trkSeg_p segData, + BOOL_T updateList ) +{ + turnoutInfo_t * to; +#ifdef REORIGSTRUCT + coOrd orig; +#endif + + if (segCnt == 0) + return NULL; + to = FindCompound( FIND_STRUCT, scale, title ); + if (to == NULL) { + DYNARR_APPEND( turnoutInfo_t *, structureInfo_da, 10 ); + to = (turnoutInfo_t*)MyMalloc( sizeof *to ); + structureInfo(structureInfo_da.cnt-1) = to; + to->title = MyStrdup( title ); + to->scaleInx = LookupScale( scale ); + } + to->segCnt = segCnt; + to->segs = (trkSeg_p)memdup( segData, (sizeof *segData) * segCnt ); + GetSegBounds( zero, 0.0, to->segCnt, to->segs, &to->orig, &to->size ); +#ifdef REORIGSTRUCT + GetSegBounds( zero, 0.0, to->segCnt, to->segs, &orig, &to->size ); + orig.x = - orig.x; + orig.y = - orig.y; + MoveSegs( to->segCnt, to->segs, orig ); + to->orig = zero; +#endif + to->paramFileIndex = curParamFileIndex; + if (curParamFileIndex == PARAM_CUSTOM) + to->contentsLabel = "Custom Structures"; + else + to->contentsLabel = curSubContents; + to->endCnt = 0; + to->pathLen = 0; + to->paths = (PATHPTR_T)""; +#ifdef STRUCTCMD + if (updateList && structureListL != NULL) { + FormatCompoundTitle( LABEL_TABBED|LABEL_MANUF|LABEL_PARTNO|LABEL_DESCR, to->title ); + if (message[0] != '\0') + wListAddValue( structureListL, message, NULL, to ); + } +#endif + + to->barScale = curBarScale>0?curBarScale:-1; + return to; +} + + +static BOOL_T ReadStructureParam( + char * firstLine ) +{ + char scale[10]; + char *title; + turnoutInfo_t * to; + char * cp; +static dynArr_t pierInfo_da; +#define pierInfo(N) DYNARR_N( pierInfo_t, pierInfo_da, N ) + + if ( !GetArgs( firstLine+10, "sq", scale, &title ) ) + return FALSE; + ReadSegs(); + to = CreateNewStructure( scale, title, tempSegs_da.cnt, &tempSegs(0), FALSE ); + if (to == NULL) + return FALSE; + if (tempSpecial[0] != '\0') { + if (strncmp( tempSpecial, PIER, strlen(PIER) ) == 0) { + DYNARR_RESET( pierInfo_t, pierInfo_da ); + to->special = TOpierInfo; + cp = tempSpecial+strlen(PIER); + while (cp) { + DYNARR_APPEND( pierInfo_t, pierInfo_da, 10 ); + GetArgs( cp, "fqc", &pierInfo(pierInfo_da.cnt-1).height, &pierInfo(pierInfo_da.cnt-1).name, &cp ); + } + to->u.pierInfo.cnt = pierInfo_da.cnt; + to->u.pierInfo.info = (pierInfo_t*)MyMalloc( pierInfo_da.cnt * sizeof *(pierInfo_t*)NULL ); + memcpy( to->u.pierInfo.info, &pierInfo(0), pierInfo_da.cnt * sizeof *(pierInfo_t*)NULL ); + } else { + InputError("Unknown special case", TRUE); + } + } + if (tempCustom[0] != '\0') { + to->customInfo = MyStrdup( tempCustom ); + } + MyFree( title ); + return TRUE; +} + + +EXPORT turnoutInfo_t * StructAdd( long mode, SCALEINX_T scale, wList_p list, coOrd * maxDim ) +{ + wIndex_t inx; + turnoutInfo_t * to, *to1=NULL; + for ( inx = 0; inx < structureInfo_da.cnt; inx++ ) { + to = structureInfo(inx); + if ( IsParamValid(to->paramFileIndex) && + to->segCnt > 0 && + CompatibleScale( FALSE, to->scaleInx, scale ) && + to->segCnt != 0 ) { + if (to1 == NULL) + to1 = to; + FormatCompoundTitle( mode, to->title ); + if (message[0] != '\0') { + wListAddValue( list, message, NULL, to ); + if (maxDim) { + if (to->size.x > maxDim->x) + maxDim->x = to->size.x; + if (to->size.y > maxDim->y) + maxDim->y = to->size.y; + } + } + } + } + return to1; +} + + +/**************************************** + * + * GENERIC FUNCTIONS + * + */ + +static void DrawStructure( + track_p t, + drawCmd_p d, + wDrawColor color ) +{ + struct extraData *xx = GetTrkExtraData(t); + coOrd p00, px0, pxy, p0y, orig, size; + + if (d->options&DC_QUICK) { + GetSegBounds( zero, 0.0, xx->segCnt, xx->segs, &orig, &size ); + p00.x = p0y.x = orig.x; + p00.y = px0.y = orig.y; + px0.x = pxy.x = orig.x + size.x; + p0y.y = pxy.y = orig.y + size.y; + REORIGIN1( p00, xx->angle, xx->orig ) + REORIGIN1( px0, xx->angle, xx->orig ) + REORIGIN1( p0y, xx->angle, xx->orig ) + REORIGIN1( pxy, xx->angle, xx->orig ) + DrawLine( d, p00, px0, 0, color ); + DrawLine( d, px0, pxy, 0, color ); + DrawLine( d, pxy, p0y, 0, color ); + DrawLine( d, p0y, p00, 0, color ); + } else { + DrawSegs( d, xx->orig, xx->angle, xx->segs, xx->segCnt, 0.0, color ); + if ( ((d->funcs->options&wDrawOptTemp)==0) && + (labelWhen == 2 || (labelWhen == 1 && (d->options&DC_PRINT))) && + labelScale >= d->scale && + ( GetTrkBits( t ) & TB_HIDEDESC ) == 0 ) { + DrawCompoundDescription( t, d, color ); + } + } +} + + +static void ReadStructure( + char * line ) +{ + ReadCompound( line+10, T_STRUCTURE ); +} + + +static ANGLE_T GetAngleStruct( + track_p trk, + coOrd pos, + EPINX_T * ep0, + EPINX_T * ep1 ) +{ + struct extraData * xx = GetTrkExtraData(trk); + ANGLE_T angle; + + pos.x -= xx->orig.x; + pos.y -= xx->orig.y; + Rotate( &pos, zero, -xx->angle ); + angle = GetAngleSegs( xx->segCnt, xx->segs, pos, NULL ); + if ( ep0 ) *ep0 = -1; + if ( ep1 ) *ep1 = -1; + return NormalizeAngle( angle+xx->angle ); +} + + +static BOOL_T QueryStructure( track_p trk, int query ) +{ + switch ( query ) { + case Q_HAS_DESC: + return TRUE; + default: + return FALSE; + } +} + + +static trackCmd_t structureCmds = { + "STRUCTURE", + DrawStructure, + DistanceCompound, + DescribeCompound, + DeleteCompound, + WriteCompound, + ReadStructure, + MoveCompound, + RotateCompound, + RescaleCompound, + NULL, + GetAngleStruct, + NULL, /* split */ + NULL, /* traverse */ + EnumerateCompound, + NULL, /* redraw */ + NULL, /* trim */ + NULL, /* merge */ + NULL, /* modify */ + NULL, /* getLength */ + NULL, /* getTrkParams */ + NULL, /* moveEndPt */ + QueryStructure, + UngroupCompound, + FlipCompound }; + +static paramData_t pierPLs[] = { + { PD_DROPLIST, &pierListInx, "inx", 0, (void*)50, N_("Pier Number") } }; +static paramGroup_t pierPG = { "structure-pier", 0, pierPLs, sizeof pierPLs/sizeof pierPLs[0] }; +#define pierL ((wList_p)pierPLs[0].control) + +static void ShowPierL( void ) +{ + int inx; + wIndex_t currInx; + wControl_p controls[2]; + char * labels[1]; + + if ( curStructure->special==TOpierInfo && curStructure->u.pierInfo.cnt > 1) { + if (pierL == NULL) { + ParamCreateControls( &pierPG, NULL ); + } + currInx = wListGetIndex( pierL ); + wListClear( pierL ); + for (inx=0;inxu.pierInfo.cnt; inx++) { + wListAddValue( pierL, curStructure->u.pierInfo.info[inx].name, NULL, NULL ); + } + if ( currInx < 0 ) + currInx = 0; + if ( currInx >= curStructure->u.pierInfo.cnt ) + currInx = curStructure->u.pierInfo.cnt-1; + wListSetIndex( pierL, currInx ); + controls[0] = (wControl_p)pierL; + controls[1] = NULL; + labels[0] = N_("Pier Number"); + InfoSubstituteControls( controls, labels ); + } else { + InfoSubstituteControls( NULL, NULL ); + } +} + + +#ifdef STRUCTCMD +/***************************************** + * + * Structure Dialog + * + */ + +static void NewStructure(); +static coOrd maxStructureDim; +static wWin_p structureW; + + +static void RescaleStructure( void ) +{ + DIST_T xscale, yscale; + wPos_t ww, hh; + DIST_T w, h; + wDrawGetSize( structureD.d, &ww, &hh ); + w = ww/structureD.dpi - 0.2; + h = hh/structureD.dpi - 0.2; + if (curStructure) { + xscale = curStructure->size.x/w; + yscale = curStructure->size.y/h; + } else { + xscale = yscale = 0; + } + structureD.scale = ceil(max(xscale,yscale)); + structureD.size.x = (w+0.2)*structureD.scale; + structureD.size.y = (h+0.2)*structureD.scale; + return; +} + + +static void structureChange( long changes ) +{ + static char * lastScaleName = NULL; + if (structureW == NULL) + return; + wListSetIndex( structureListL, 0 ); + if ( (!wWinIsVisible(structureW)) || + ( ((changes&CHANGE_SCALE) == 0 || lastScaleName == curScaleName) && + (changes&CHANGE_PARAMS) == 0 ) ) + return; + lastScaleName = curScaleName; + curStructure = NULL; + wControlShow( (wControl_p)structureListL, FALSE ); + wListClear( structureListL ); + maxStructureDim.x = maxStructureDim.y = 0.0; + if (structureInfo_da.cnt <= 0) + return; + curStructure = StructAdd( LABEL_TABBED|LABEL_MANUF|LABEL_PARTNO|LABEL_DESCR, curScaleInx, structureListL, &maxStructureDim ); + wControlShow( (wControl_p)structureListL, TRUE ); + if (curStructure == NULL) { + wDrawClear( structureD.d ); + return; + } + maxStructureDim.x += 2*trackGauge; + maxStructureDim.y += 2*trackGauge; + /*RescaleStructure();*/ + RedrawStructure(); + return; +} + + + +static void RedrawStructure() +{ + RescaleStructure(); +LOG( log_structure, 2, ( "SelStructure(%s)\n", (curStructure?curStructure->title:"") ) ) + wDrawClear( structureD.d ); + if (curStructure == NULL) { + return; + } + structureD.orig.x = -0.10*structureD.scale + curStructure->orig.x; + structureD.orig.y = (curStructure->size.y + curStructure->orig.y) - structureD.size.y + trackGauge; + DrawSegs( &structureD, zero, 0.0, curStructure->segs, curStructure->segCnt, + 0.0, wDrawColorBlack ); + sprintf( message, _("Scale %d:1"), (int)structureD.scale ); + ParamLoadMessage( &structurePG, I_MSGSCALE, message ); + sprintf( message, _("Width %s"), FormatDistance(curStructure->size.x) ); + ParamLoadMessage( &structurePG, I_MSGWIDTH, message ); + sprintf( message, _("Height %s"), FormatDistance(curStructure->size.y) ); + ParamLoadMessage( &structurePG, I_MSGHEIGHT, message ); +} + + +static void StructureDlgUpdate( + paramGroup_p pg, + int inx, + void * valueP ) +{ + turnoutInfo_t * to; + if ( inx != I_LIST ) return; + to = (turnoutInfo_t*)wListGetItemContext( (wList_p)pg->paramPtr[inx].control, (wIndex_t)*(long*)valueP ); + NewStructure(); + curStructure = to; + ShowPierL(); + RedrawStructure(); + ParamDialogOkActive( &structurePG, FALSE ); +} + + +static void DoStructOk( void ) +{ + NewStructure(); + Reset(); +} + +#endif + +/**************************************** + * + * GRAPHICS COMMANDS + * + */ + +/* + * STATE INFO + */ +static struct { + int state; + coOrd pos; + ANGLE_T angle; + } Dst; + +static track_p pierTrk; +static EPINX_T pierEp; + +static ANGLE_T PlaceStructure( + coOrd p0, + coOrd p1, + coOrd origPos, + coOrd * resPos, + ANGLE_T * resAngle ) +{ + coOrd p2 = p1; + if (curStructure->special == TOpierInfo) { + pierTrk = OnTrack( &p1, FALSE, TRUE ); + if (pierTrk != NULL) { + if (GetTrkType(pierTrk) == T_TURNOUT) { + pierEp = PickEndPoint( p1, pierTrk ); + if (pierEp >= 0) { + *resPos = GetTrkEndPos(pierTrk, pierEp); + *resAngle = NormalizeAngle(GetTrkEndAngle(pierTrk, pierEp)-90.0); + return TRUE; + } + } + *resAngle = NormalizeAngle(GetAngleAtPoint( pierTrk, p1, NULL, NULL )+90.0); + if ( NormalizeAngle( FindAngle( p1, p2 ) - *resAngle + 90.0 ) > 180.0 ) + *resAngle = NormalizeAngle( *resAngle + 180.0 ); + *resPos = p1; + return TRUE; + } + } + resPos->x = origPos.x + p1.x - p0.x; + resPos->y = origPos.y + p1.y - p0.y; + return FALSE; +} + + +static void NewStructure( void ) +{ + track_p trk; + struct extraData *xx; + wIndex_t titleLen; + wIndex_t pierInx; + + if (curStructure->segCnt < 1) { + AbortProg( "newStructure: bad cnt" ); + } + if (Dst.state == 0) + return; + if (curStructure->special == TOpierInfo && + curStructure->u.pierInfo.cnt>1 && + wListGetIndex(pierL) == -1) { + return; + } + DrawSegs( &tempD, Dst.pos, Dst.angle, + curStructure->segs, curStructure->segCnt, 0.0, wDrawColorBlack ); + UndoStart( _("Place Structure"), "newStruct" ); + titleLen = strlen( curStructure->title ); + trk = NewCompound( T_STRUCTURE, 0, Dst.pos, Dst.angle, curStructure->title, 0, NULL, 0, "", curStructure->segCnt, curStructure->segs ); + xx = GetTrkExtraData(trk); +#ifdef LATER + trk = NewTrack( 0, T_STRUCTURE, 0, sizeof (*xx) + 1 ); + xx->orig = Dst.pos; + xx->angle = Dst.angle; + xx->segs = MyMalloc( (curStructure->segCnt)*sizeof curStructure->segs[0] ); + + /* + * copy data */ + xx->segCnt = curStructure->segCnt; + memcpy( xx->segs, curStructure->segs, xx->segCnt * sizeof *(trkSeg_p)0 ); + xx->title = curStructure->title; + xx->pathLen = 0; + xx->paths = ""; +#endif + switch(curStructure->special) { + case TOnormal: + xx->special = TOnormal; + break; + case TOpierInfo: + xx->special = TOpier; + if (curStructure->u.pierInfo.cnt>1) { + pierInx = wListGetIndex(pierL); + if (pierInx < 0 || pierInx >= curStructure->u.pierInfo.cnt) + pierInx = 0; + } else { + pierInx = 0; + } + xx->u.pier.height = curStructure->u.pierInfo.info[pierInx].height; + xx->u.pier.name = curStructure->u.pierInfo.info[pierInx].name; + if (pierTrk != NULL && xx->u.pier.height >= 0 ) { + UpdateTrkEndElev( pierTrk, pierEp, ELEV_DEF, xx->u.pier.height, NULL ); + } + break; + default: + AbortProg("bad special"); + } + + SetTrkVisible( trk, TRUE ); +#ifdef LATER + ComputeCompoundBoundingBox( trk ); + + SetDescriptionOrig( trk ); + xx->descriptionOff = zero; + xx->descriptionSize = zero; +#endif + + DrawNewTrack( trk ); + /*DrawStructure( trk, &mainD, wDrawColorBlack, 0 );*/ + + UndoEnd(); + Dst.state = 0; + Dst.angle = 0.0; +} + + +static void StructRotate( void * pangle ) +{ + ANGLE_T angle = (ANGLE_T)(long)pangle; + if (Dst.state == 1) + DrawSegs( &tempD, Dst.pos, Dst.angle, + curStructure->segs, curStructure->segCnt, 0.0, wDrawColorBlack ); + else + Dst.pos = cmdMenuPos; + Rotate( &Dst.pos, cmdMenuPos, angle ); + Dst.angle += angle; + DrawSegs( &tempD, Dst.pos, Dst.angle, + curStructure->segs, curStructure->segCnt, 0.0, wDrawColorBlack ); + Dst.state = 1; +} + + +EXPORT STATUS_T CmdStructureAction( + wAction_t action, + coOrd pos ) +{ + + ANGLE_T angle; + static BOOL_T validAngle; + static ANGLE_T baseAngle; + static coOrd origPos; + static ANGLE_T origAngle; + static coOrd rot0, rot1; + + switch (action & 0xFF) { + + case C_START: + Dst.state = 0; + Dst.angle = 00.0; + ShowPierL(); + return C_CONTINUE; + + case C_DOWN: + if ( curStructure == NULL ) return C_CONTINUE; + ShowPierL(); + if (Dst.state == 1) { + DrawSegs( &tempD, Dst.pos, Dst.angle, + curStructure->segs, curStructure->segCnt, 0.0, wDrawColorBlack ); + } else { + Dst.pos = pos; + } + rot0 = pos; + origPos = Dst.pos; + PlaceStructure( rot0, pos, origPos, &Dst.pos, &Dst.angle ); + Dst.state = 1; + DrawSegs( &tempD, Dst.pos, Dst.angle, + curStructure->segs, curStructure->segCnt, 0.0, wDrawColorBlack ); + InfoMessage( _("Drag to place") ); + return C_CONTINUE; + + case C_MOVE: + if ( curStructure == NULL ) return C_CONTINUE; + DrawSegs( &tempD, Dst.pos, Dst.angle, + curStructure->segs, curStructure->segCnt, 0.0, wDrawColorBlack ); + PlaceStructure( rot0, pos, origPos, &Dst.pos, &Dst.angle ); + DrawSegs( &tempD, Dst.pos, Dst.angle, + curStructure->segs, curStructure->segCnt, 0.0, wDrawColorBlack ); + MainRedraw(); + InfoMessage( "[ %0.3f %0.3f ]", pos.x - origPos.x, pos.y - origPos.y ); + return C_CONTINUE; + + case C_RDOWN: + if ( curStructure == NULL ) return C_CONTINUE; + if (Dst.state == 1) + DrawSegs( &tempD, Dst.pos, Dst.angle, + curStructure->segs, curStructure->segCnt, 0.0, wDrawColorBlack ); + else + Dst.pos = pos; + rot0 = rot1 = pos; + DrawLine( &tempD, rot0, rot1, 0, wDrawColorBlack ); + Dst.state = 1; + DrawSegs( &tempD, Dst.pos, Dst.angle, + curStructure->segs, curStructure->segCnt, 0.0, wDrawColorBlack ); + origPos = Dst.pos; + origAngle = Dst.angle; + InfoMessage( _("Drag to rotate") ); + validAngle = FALSE; + return C_CONTINUE; + + case C_RMOVE: + if ( curStructure == NULL ) return C_CONTINUE; + DrawSegs( &tempD, Dst.pos, Dst.angle, + curStructure->segs, curStructure->segCnt, 0.0, wDrawColorBlack ); + DrawLine( &tempD, rot0, rot1, 0, wDrawColorBlack ); + rot1 = pos; + if ( FindDistance( rot0, rot1 ) > (6.0/75.0)*mainD.scale ) { + angle = FindAngle( rot0, rot1 ); + if (!validAngle) { + baseAngle = angle; + validAngle = TRUE; + } + angle -= baseAngle; + Dst.pos = origPos; + Dst.angle = NormalizeAngle( origAngle + angle ); + Rotate( &Dst.pos, rot0, angle ); + } + InfoMessage( _("Angle = %0.3f"), Dst.angle ); + DrawLine( &tempD, rot0, rot1, 0, wDrawColorBlack ); + DrawSegs( &tempD, Dst.pos, Dst.angle, + curStructure->segs, curStructure->segCnt, 0.0, wDrawColorBlack ); + return C_CONTINUE; + + case C_RUP: + DrawLine( &tempD, rot0, rot1, 0, wDrawColorBlack ); + case C_UP: + MainRedraw(); + return C_CONTINUE; + + case C_CMDMENU: + if ( structPopupM == NULL ) { + structPopupM = MenuRegister( "Structure Rotate" ); + AddRotateMenu( structPopupM, StructRotate ); + } + wMenuPopupShow( structPopupM ); + return C_CONTINUE; + + case C_REDRAW: + if (Dst.state == 1) + DrawSegs( &tempD, Dst.pos, Dst.angle, + curStructure->segs, curStructure->segCnt, 0.0, wDrawColorBlack ); + return C_CONTINUE; + + case C_CANCEL: + if (Dst.state == 1) + DrawSegs( &tempD, Dst.pos, Dst.angle, + curStructure->segs, curStructure->segCnt, 0.0, wDrawColorBlack ); + Dst.state = 0; + InfoSubstituteControls( NULL, NULL ); + HotBarCancel(); + /*wHide( newTurn.reg.win );*/ + return C_TERMINATE; + + case C_TEXT: + if ((action>>8) != ' ') + return C_CONTINUE; + case C_OK: + NewStructure(); + InfoSubstituteControls( NULL, NULL ); + return C_TERMINATE; + + case C_FINISH: + if (Dst.state != 0) + CmdStructureAction( C_OK, pos ); + else + CmdStructureAction( C_CANCEL, pos ); + return C_TERMINATE; + + default: + return C_CONTINUE; + } +} + + +static STATUS_T CmdStructure( + wAction_t action, + coOrd pos ) +{ + + wIndex_t structureIndex; + turnoutInfo_t * structurePtr; + + switch (action & 0xFF) { + + case C_START: + if (structureW == NULL) { + structureW = ParamCreateDialog( &structurePG, MakeWindowTitle(_("Structure")), _("Ok"), (paramActionOkProc)DoStructOk, (paramActionCancelProc)Reset, TRUE, NULL, F_RESIZE, StructureDlgUpdate ); + RegisterChangeNotification( structureChange ); + } + ParamDialogOkActive( &structurePG, FALSE ); + structureIndex = wListGetIndex( structureListL ); + structurePtr = curStructure; + wShow( structureW ); + structureChange( CHANGE_PARAMS ); + if (curStructure == NULL) { + NoticeMessage( MSG_STRUCT_NO_STRUCTS, _("Ok"), NULL ); + return C_TERMINATE; + } + if (structureIndex > 0 && structurePtr) { + curStructure = structurePtr; + wListSetIndex( structureListL, structureIndex ); + RedrawStructure(); + } + InfoMessage( _("Select Structure and then drag to place")); + ParamLoadControls( &structurePG ); + ParamGroupRecord( &structurePG ); + return CmdStructureAction( action, pos ); + + case C_DOWN: + case C_RDOWN: + ParamDialogOkActive( &structurePG, TRUE ); + if (hideStructureWindow) + wHide( structureW ); + case C_MOVE: + case C_RMOVE: + return CmdStructureAction( action, pos ); + + case C_RUP: + case C_UP: + if (hideStructureWindow) + wShow( structureW ); + InfoMessage( _("Left drag to move, right drag to rotate, or press Return or click Ok to finalize") ); + return CmdStructureAction( action, pos ); + return C_CONTINUE; + + case C_CANCEL: + wHide( structureW ); + case C_TEXT: + case C_OK: + case C_FINISH: + case C_CMDMENU: + case C_REDRAW: + return CmdStructureAction( action, pos ); + + default: + return C_CONTINUE; + } +} + + + +static char * CmdStructureHotBarProc( + hotBarProc_e op, + void * data, + drawCmd_p d, + coOrd * origP ) +{ + turnoutInfo_t * to = (turnoutInfo_t*)data; + switch ( op ) { + case HB_SELECT: + CmdStructureAction( C_FINISH, zero ); + curStructure = to; + DoCommandB( (void*)(intptr_t)structureHotBarCmdInx ); + return NULL; + case HB_LISTTITLE: + FormatCompoundTitle( listLabels, to->title ); + if (message[0] == '\0') + FormatCompoundTitle( listLabels|LABEL_DESCR, to->title ); + return message; + case HB_BARTITLE: + FormatCompoundTitle( hotBarLabels<<1, to->title ); + return message; + case HB_FULLTITLE: + return to->title; + case HB_DRAW: + DrawSegs( d, *origP, 0.0, to->segs, to->segCnt, trackGauge, wDrawColorBlack ); + return NULL; + } + return NULL; +} + + +EXPORT void AddHotBarStructures( void ) +{ + wIndex_t inx; + turnoutInfo_t * to; + for ( inx=0; inx < structureInfo_da.cnt; inx ++ ) { + to = structureInfo(inx); + if ( !( IsParamValid(to->paramFileIndex) && + to->segCnt > 0 && + CompatibleScale( FALSE, to->scaleInx, curScaleInx ) ) ) + /*( (strcmp( to->scale, "*" ) == 0 && strcasecmp( curScaleName, "DEMO" ) != 0 ) || + strncasecmp( to->scale, curScaleName, strlen(to->scale) ) == 0 ) ) )*/ + continue; + AddHotBarElement( to->contentsLabel, to->size, to->orig, FALSE, to->barScale, to, CmdStructureHotBarProc ); + } +} + +static STATUS_T CmdStructureHotBar( + wAction_t action, + coOrd pos ) +{ + switch (action & 0xFF) { + + case C_START: + structureChange( CHANGE_PARAMS ); + if (curStructure == NULL) { + NoticeMessage( MSG_STRUCT_NO_STRUCTS, _("Ok"), NULL ); + return C_TERMINATE; + } + FormatCompoundTitle( listLabels|LABEL_DESCR, curStructure->title ); + InfoMessage( _("Place %s and draw into position"), message ); + ParamLoadControls( &structurePG ); + ParamGroupRecord( &structurePG ); + return CmdStructureAction( action, pos ); + + case C_RUP: + case C_UP: + InfoMessage( _("Left drag to move, right drag to rotate, or press Return or click Ok to finalize") ); + return CmdStructureAction( action, pos ); + + case C_TEXT: + if ((action>>8) != ' ') + return C_CONTINUE; + case C_OK: + CmdStructureAction( action, pos ); + return C_CONTINUE; + + case C_CANCEL: + HotBarCancel(); + default: + return CmdStructureAction( action, pos ); + } +} + + +#ifdef STRUCTCMD +#include "bitmaps/struct.xpm" + +EXPORT void InitCmdStruct( wMenu_p menu ) +{ + AddMenuButton( menu, CmdStructure, "cmdStructure", _("Structure"), wIconCreatePixMap(struct_xpm), LEVEL0_50, IC_STICKY|IC_CMDMENU|IC_POPUP2, ACCL_STRUCTURE, NULL ); + structureHotBarCmdInx = AddMenuButton( menu, CmdStructureHotBar, "cmdStructureHotBar", "", NULL, LEVEL0_50, IC_STICKY|IC_CMDMENU|IC_POPUP2, 0, NULL ); + ParamRegister( &structurePG ); +} +#endif + + +EXPORT void InitTrkStruct( void ) +{ + T_STRUCTURE = InitObject( &structureCmds ); + + log_structure = LogFindIndex( "Structure" ); + AddParam( "STRUCTURE ", ReadStructureParam ); + ParamRegister( &pierPG ); +} -- cgit v1.2.3