void deletedep (char* state)
{
while(getorigin(state)!=NULL)
eraselink(getorigin(state)->origen, getorigin(state)->destino);
while(getdestiny(state)!=NULL)
eraselink(getdestiny(state)->origen, getdestiny(state)->destino);
}
void makeframe()
{
reshapeviewport();
getsize(&xsize,&ysize);
getorigin(&xorg,&yorg);
clearscreen();
}
void
rubberRectZoid (void *v, int device, int mouseDown)
{
static WmjAct backAct;
pWmj cW = (pWmj)v;
WmjAct *Ap = (device == LEFTMOUSE ? cW->lefMouse : cW->midMouse);
/* Tetra *trp = Ap->data; */
flt zX = cW->zX, zY = cW->zY;
long bxA, byA, nxA, nyA, oxA,oyA, wx,ww,wy,wh;
long widA = winget();
if (! mouseDown) return;
getorigin(&wx,&wy);
getsize( &ww,&wh); ww -= 1; wh -= 1;
oxA = bxA = (getvaluator(MOUSEX) - wx);
oyA = byA = (getvaluator(MOUSEY) - wy);
cursoff();
drawmode(OVERDRAW);
while(getbutton(device)) {
nxA = getvaluator(MOUSEX) - wx; if (nxA < 0) nxA = 0; else if (nxA > ww) nxA = ww;
nyA = getvaluator(MOUSEY) - wy; if (nyA < 0) nyA = 0; else if (nyA > wh) nyA = wh;
if (nxA != oxA || nyA != oyA) {
winset(widA);
color(BLACK); /* black erases */
sboxi(bxA,byA,oxA,oyA);
color(RED); /* set color of new circle */
sboxi(bxA,byA,nxA,nyA);
oxA = nxA, oyA = nyA;
}
}
color(BLACK);
sboxi(bxA,byA,oxA,oyA);
drawmode(NORMALDRAW);
cpack(FcGRN);
sboxi(bxA,byA,nxA,nyA);
if (bxA > nxA) nxA = bxA, bxA = oxA;
if (byA > nyA) nyA = byA, byA = oyA;
wrn("rubberRectZ B4 showSub: %4d %4d %4d %4d zX:%.2f zY:%.2f",bxA,byA,nxA,nyA, zX, zY);
backAct = *Ap;
backAct.func = &testChain;
cW->next = showSub(cW, bxA/zX,byA/zY,nxA/zX,nyA/zY,"subA",zX*2.0,zY*2.0,5);
cW->next->lefMouse = &backAct;
cW->next->prev = cW;
winset(widA);
curson();
}
void
backTrack (void *v, int device, int mouseDown)
{
pWmj cW = (pWmj)v, pW = cW->prev;
/* WmjAct *Ap = (device == LEFTMOUSE ? cW->lefMouse : cW->midMouse); */
pDmj cD = &cW->D;
long bxA, byA, nxA, nyA, oxA,oyA, wx,ww,wy,wh;
long widA = winget();
if (! mouseDown) return;
getorigin(&wx,&wy);
getsize( &ww,&wh); ww -= 1; wh -= 1;
oxA = bxA = (getvaluator(MOUSEX) - wx);
oyA = byA = (getvaluator(MOUSEY) - wy);
cursoff();
drawmode(OVERDRAW);
while(getbutton(device)) {
nxA = getvaluator(MOUSEX) - wx; if (nxA < 0) nxA = 0; else if (nxA > ww) nxA = ww;
nyA = getvaluator(MOUSEY) - wy; if (nyA < 0) nyA = 0; else if (nyA > wh) nyA = wh;
if (nxA != oxA || nyA != oyA) {
/* winset(widA); */
color(BLACK); /* black erases */
sboxi(bxA,byA,oxA,oyA); /* NB: sbox is faster than rect, but less flex */
color(RED); /* set color of new circle */
sboxi(bxA,byA,nxA,nyA);
oxA = nxA, oyA = nyA;
}
}
color(BLACK);
sboxi(bxA,byA,oxA,oyA);
drawmode(NORMALDRAW);
cpack(FcGRN);
sboxi(bxA,byA,nxA,nyA);
if (pW) {
pDmj pD = &pW->D;
flt pzX = pW->zX, zX = pzX/cW->zX;
flt pzY = pW->zY, zY = pzY/cW->zY;
long L = cD->l*pzX, B = cD->b*pzY;
wrn("bT: id: %d pD->lb: %3d %3d zXY: %.1f %.1f", pW->id, pD->l, pD->b, zX, zY);
wrn("bT: id: %d cD->lb: %3d %3d czXY: %.1f %.1f", cW->id, cD->l, cD->b,cW->zX,cW->zY);
winset(pW->id);
drawmode(OVERDRAW);
color(YELLOW);
sboxi(L + bxA*zX, B + byA*zY, L + oxA*zX, B + oyA*zY);
drawmode(NORMALDRAW);
}
winset(widA);
curson();
}
static void drawslider(gl_slider *sl) {
Int32 lw = getlwidth();
Int32 cl = getcolor();
Int32 oriwin = winget();
long co;
int i;
Screencoord x, y;
Int32 xo, yo;
winset(sl->win);
linewidth(1);
update_slider_value(sl);
locate_slider(sl);
if (sl->txbg == -1) {
/* first time, get bg color */
cmov2(sl->x + sl->len + sl->thick, sl->y);
getcpos(&x, &y);
getorigin(&xo, &yo);
x -= xo;
y -= yo;
i = lrectread(x, y, x, y, &co);
sl->txbg = co;
#ifdef DEBUG
printf("textbg = %d, bytes = %d x %d (soll %g) y %d (soll %g)\n",
co,i,x,sl->x + sl->len + sl->thick,
y,sl->y);
#endif
}
color(sl->bg);
rectf(sl->x, sl->y, sl->x+sl->thick+sl->len, sl->y+sl->height);
color(sl->fg);
rect (sl->x, sl->y, sl->x+sl->thick+sl->len, sl->y+sl->height);
rectf(sl->x + sl->len * (sl->value - sl->min)/(sl->max - sl->min),
sl->y,
sl->x + sl->len * (sl->value - sl->min)/(sl->max - sl->min) + sl->thick,
sl->y + sl->height);
if (sl->buf != NULL) {
color(sl->txbg);
cmov2(sl->x + sl->len + sl->thick, sl->y);
charstr(sl->buf);
color(sl->fg);
sprintf(sl->buf + 1, sl->format, sl->value);
cmov2(sl->x + sl->len + sl->thick, sl->y);
charstr(sl->buf);
}
winset(oriwin);
color(cl);
linewidth(lw);
sleep(0);
}
static void
_dxf_GET_WINDOW_ORIGIN (void *ctx, int *x, int *y)
{
/*
* return lower left corner of window relative to screen in pixels
*/
ENTRY(("_dxf_GET_WINDOW_ORIGIN(0x%x, 0x%x, 0x%x)",ctx, x, y));
getorigin ((long *)x, (long *)y) ;
EXIT(("x = %d y = %d", *x, *y));
}
STATE* statelinked (STATE* clon)
{
LINK* linkclon;
if (clon == NULL) return NULL;
linkclon= getorigin( clon->nombre );
if( linkclon != NULL ) return(getstate(linkclon->destino));
linkclon=getdestiny( clon->nombre );
if(linkclon != NULL) return(getstate(linkclon->origen));
return NULL;
}
static void locate_button(gl_button *bt) {
/* awful hacks to get coordinates in screencoords */
Screencoord xs, ys;
Int32 xo, yo;
getorigin(&xo, &yo);
cmov2(bt->x, bt->y);
getcpos(&xs, &ys);
bt->scx0 = (int)xs - xo;
bt->scy1 = (int)ys - yo;
#ifdef DEBUG
printf("locate_button: getcpos gives x = %d y = %d for %g, %g\n",
(int)xs, (int)ys, bt->x, bt->y);
#endif
cmov2(bt->x + bt->width, bt->y + bt ->height);
getcpos(&xs, &ys);
bt->scx1 = (int)xs - xo;
bt->scy0 = (int)ys - yo;
}
static void locate_slider(gl_slider *sl) {
/* awful hacks to get coordinates in screencoords */
Screencoord xs, ys;
Int32 xo, yo;
getorigin(&xo, &yo);
cmov2(sl->x, sl->y);
getcpos(&xs, &ys);
sl->scx0 = (int)xs - xo;
sl->scy1 = (int)ys - yo;
cmov2(sl->x + sl->len, sl->y + sl ->height);
getcpos(&xs, &ys);
sl->scx1 = (int)xs - xo;
sl->scy0 = (int)ys - yo;
cmov2(sl->x + sl->thick, sl->y);
getcpos(&xs, &ys);
sl->sc_thick = (int)xs - xo - sl->scx0;
}
void movemenubar(MenuBar *mb)
{
int i, tx = MENUXENDGAP-9, totaltwidth = 0;
int xsize, ysize, width;
getorigin(&mb->xorg, &mb->yorg);
getsize(&xsize, &ysize);
mb->xmin = mb->xorg;
mb->xmax = mb->xorg+xsize-1;
mb->ymin = mb->yorg+ysize-MENUBARHEIGHT;
mb->ymax = mb->yorg+ysize-1;
width = mb->xmax - mb->xmin + 1;
font(PULLDOWNFONT); /* for correct strwidths */
for (i = 0; i < mb->count; i++)
totaltwidth += strwidth(mb->pds[i]->title) + 2*MENUXENDGAP;
for (i = 0; i < mb->count; i++) {
if (mb->pds[i]->title)
mb->pds[i]->twidth = strwidth(mb->pds[i]->title);
if ((mb->pds[i]->title) && (!strcmp(mb->pds[i]->title,"Help")))
mb->pds[i]->txorg = mb->xmax-MENUXENDGAP-mb->pds[i]->twidth-MENUXGAP;
else
mb->pds[i]->txorg = mb->xmin + tx;
mb->pds[i]->xorg = mb->pds[i]->txorg;
mb->pds[i]->yorg = mb->ymin-TITLESEP;
mb->pds[i]->orglocked = 1;
mb->pds[i]->mb = mb;
if (totaltwidth > width)
tx += (width-2*MENUXENDGAP)/mb->count-2;
else
tx += mb->pds[i]->twidth+24;
}
}
void TransformDlgCreate(void *data,void (*transfunc)(void *,real *,int,BVTFunc *,enum fvtrans_flags),
int (*getorigin)(void *,BasePoint *,int), enum transdlg_flags flags,
enum cvtools cvt) {
GRect pos;
GWindow gw;
GWindowAttrs wattrs;
GGadgetCreateData gcd[12+TCnt*25], boxes[4], *subarray[TCnt*27], *array[2*(TCnt+8)+4], *buttons[13], *origarray[4];
GTextInfo label[9+TCnt*24];
static TransData td;
int i, y, gci, subai, ai;
int32 len;
GGadget *orig;
BasePoint junk;
GTextInfo **ti;
static int done = false;
if ( !done ) {
int i;
for ( i=0; transformtypes[i].text!=NULL; ++i )
transformtypes[i].text = (unichar_t *) _((char *) transformtypes[i].text);
for ( i=0; origin[i].text!=NULL; ++i )
origin[i].text = (unichar_t *) _((char *) origin[i].text);
done = true;
}
td.userdata = data;
td.transfunc = transfunc;
td.getorigin = getorigin;
td.done = false;
if ( td.gw==NULL ) {
memset(&wattrs,0,sizeof(wattrs));
wattrs.mask = wam_events|wam_cursor|wam_utf8_wtitle|wam_undercursor|wam_isdlg|wam_restrict;
wattrs.event_masks = ~(1<<et_charup);
wattrs.restrict_input_to_me = 1;
wattrs.undercursor = 1;
wattrs.cursor = ct_pointer;
wattrs.utf8_window_title = _("Transform");
wattrs.is_dlg = true;
pos.x = pos.y = 0;
pos.width = GGadgetScale(GDrawPointsToPixels(NULL,TBlock_Width));
pos.height = GDrawPointsToPixels(NULL,TBlock_Top+TCnt*TBlock_Height+110);
td.gw = gw = GDrawCreateTopWindow(NULL,&pos,trans_e_h,&td,&wattrs);
memset(&label,0,sizeof(label));
memset(&gcd,0,sizeof(gcd));
memset(&boxes,0,sizeof(boxes));
label[0].text = (unichar_t *) _("Origin:");
label[0].text_is_1byte = true;
label[0].text_in_resource = true;
gcd[0].gd.label = &label[0];
gcd[0].gd.pos.x = 5; gcd[0].gd.pos.y = 4;
gcd[0].gd.flags = (getorigin==NULL) ? gg_visible : (gg_visible | gg_enabled);
gcd[0].creator = GLabelCreate;
gcd[1].gd.pos.x = 5; gcd[1].gd.pos.y = 4;
gcd[1].gd.flags = (getorigin==NULL) ? gg_visible : (gg_visible | gg_enabled);
gcd[1].gd.label = &origin[1];
gcd[1].gd.u.list = origin;
gcd[1].gd.cid = CID_Origin;
gcd[1].creator = GListButtonCreate;
origin[1].selected = true;
origarray[0] = &gcd[0]; origarray[1] = &gcd[1]; origarray[2] = GCD_Glue; origarray[3] = NULL;
boxes[3].gd.flags = gg_enabled|gg_visible;
boxes[3].gd.u.boxelements = origarray;
boxes[3].creator = GHBoxCreate;
array[0] = &boxes[3]; array[1] = NULL;
gci = 2; subai = 0; ai = 2;
for ( i=0; i<TCnt; ++i ) {
array[ai++] = MakeTransBlock(&td,i,gcd+gci,label+gci,subarray+subai);
array[ai++] = NULL;
gci += 23; subai += 27;
}
y = TBlock_Top+TCnt*TBlock_Height+4;
gcd[gci].gd.pos.x = 10; gcd[gci].gd.pos.y = y;
gcd[gci].gd.flags = (flags&tdf_enableback) ? (gg_visible | gg_enabled) : gg_visible;
label[gci].text = (unichar_t *) _("Transform _All Layers");
label[gci].text_is_1byte = true;
label[gci].text_in_resource = true;
gcd[gci].gd.label = &label[gci];
gcd[gci].gd.cid = CID_AllLayers;
gcd[gci++].creator = GCheckBoxCreate;
array[ai++] = &gcd[gci-1]; array[ai++] = NULL;
y += 16;
gcd[gci].gd.pos.x = 10; gcd[gci].gd.pos.y = y;
gcd[gci].gd.flags = (flags&tdf_enableback) ? (gg_visible | gg_enabled) : gg_visible;
label[gci].text = (unichar_t *) _("Transform _Guide Layer Too");
label[gci].text_is_1byte = true;
label[gci].text_in_resource = true;
gcd[gci].gd.label = &label[gci];
gcd[gci].gd.cid = CID_DoGrid;
gcd[gci++].creator = GCheckBoxCreate;
array[ai++] = &gcd[gci-1]; array[ai++] = NULL;
y += 16;
gcd[gci].gd.pos.x = 10; gcd[gci].gd.pos.y = y;
gcd[gci].gd.flags = (flags&tdf_enableback) ? (gg_visible | gg_enabled | gg_cb_on) : gg_visible;
label[gci].text = (unichar_t *) _("Transform _Width Too");
label[gci].text_is_1byte = true;
label[gci].text_in_resource = true;
gcd[gci].gd.label = &label[gci];
gcd[gci].gd.cid = CID_DoWidth;
gcd[gci++].creator = GCheckBoxCreate;
array[ai++] = &gcd[gci-1]; array[ai++] = NULL;
y += 16;
gcd[gci].gd.pos.x = 10; gcd[gci].gd.pos.y = y;
gcd[gci].gd.flags = gg_visible | (flags&tdf_enablekerns ? gg_enabled : 0) |
(flags&tdf_defaultkerns ? gg_cb_on : 0);
label[gci].text = (unichar_t *) _("Transform kerning _classes too");
label[gci].text_is_1byte = true;
label[gci].text_in_resource = true;
gcd[gci].gd.label = &label[gci];
gcd[gci].gd.cid = CID_DoKerns;
gcd[gci++].creator = GCheckBoxCreate;
array[ai++] = &gcd[gci-1]; array[ai++] = NULL;
y += 16;
gcd[gci].gd.pos.x = 10; gcd[gci].gd.pos.y = y;
gcd[gci].gd.flags = gg_visible |
(flags&tdf_enableback ? gg_enabled : 0) |
(flags&tdf_enablekerns ? gg_cb_on : 0);
label[gci].text = (unichar_t *) _("Transform simple positioning features & _kern pairs");
label[gci].text_is_1byte = true;
label[gci].text_in_resource = true;
gcd[gci].gd.label = &label[gci];
gcd[gci].gd.cid = CID_DoSimplePos;
gcd[gci++].creator = GCheckBoxCreate;
array[ai++] = &gcd[gci-1]; array[ai++] = NULL;
y += 16;
gcd[gci].gd.pos.x = 10; gcd[gci].gd.pos.y = y;
gcd[gci].gd.flags = gg_visible | gg_enabled;
label[gci].text = (unichar_t *) _("Round To _Int");
label[gci].text_is_1byte = true;
label[gci].text_in_resource = true;
gcd[gci].gd.label = &label[gci];
gcd[gci].gd.cid = CID_Round2Int;
gcd[gci++].creator = GCheckBoxCreate;
array[ai++] = &gcd[gci-1]; array[ai++] = NULL;
y += 24;
array[ai++] = GCD_Glue; array[ai++] = NULL;
gcd[gci].gd.pos.x = 30-3; gcd[gci].gd.pos.y = y;
gcd[gci].gd.flags = gg_visible | gg_enabled | gg_but_default;
label[gci].text = (unichar_t *) _("_OK");
label[gci].text_is_1byte = true;
label[gci].text_in_resource = true;
gcd[gci].gd.mnemonic = 'O';
gcd[gci].gd.label = &label[gci];
gcd[gci].gd.handle_controlevent = Trans_OK;
gcd[gci++].creator = GButtonCreate;
buttons[0] = GCD_Glue; buttons[1] = &gcd[gci-1]; buttons[2] = GCD_Glue; buttons[3] = GCD_Glue;
gcd[gci].gd.flags = gg_visible | gg_enabled;
label[gci].text = (unichar_t *) _("_Apply");
label[gci].text_is_1byte = true;
label[gci].text_in_resource = true;
gcd[gci].gd.label = &label[gci];
gcd[gci].gd.handle_controlevent = Trans_OK;
gcd[gci].gd.cid = CID_Apply;
gcd[gci++].creator = GButtonCreate;
buttons[4] = GCD_Glue; buttons[5] = &gcd[gci-1]; buttons[6] = GCD_Glue; buttons[7] = GCD_Glue;
gcd[gci].gd.pos.x = -30; gcd[gci].gd.pos.y = gcd[gci-1].gd.pos.y+3;
gcd[gci].gd.flags = gg_visible | gg_enabled | gg_but_cancel;
label[gci].text = (unichar_t *) _("_Cancel");
label[gci].text_is_1byte = true;
label[gci].text_in_resource = true;
gcd[gci].gd.label = &label[gci];
gcd[gci].gd.mnemonic = 'C';
gcd[gci].gd.handle_controlevent = Trans_Cancel;
gcd[gci++].creator = GButtonCreate;
buttons[8] = GCD_Glue; buttons[9] = &gcd[gci-1]; buttons[10] = GCD_Glue;
buttons[11] = NULL;
boxes[2].gd.flags = gg_enabled|gg_visible;
boxes[2].gd.u.boxelements = buttons;
boxes[2].creator = GHBoxCreate;
array[ai++] = &boxes[2]; array[ai++] = NULL; array[ai++] = NULL;
boxes[0].gd.pos.x = boxes[0].gd.pos.y = 2;
boxes[0].gd.flags = gg_enabled|gg_visible;
boxes[0].gd.u.boxelements = array;
boxes[0].creator = GHVGroupCreate;
GGadgetsCreate(gw,boxes);
GHVBoxSetExpandableRow(boxes[0].ret,gb_expandglue);
GHVBoxSetExpandableCol(boxes[2].ret,gb_expandgluesame);
GHVBoxSetExpandableCol(boxes[3].ret,gb_expandglue);
for ( i=0; i<TCnt; ++i ) {
GHVBoxSetPadding( GWidgetGetControl(gw,CID_ClockBox+i*TBlock_CIDOffset),0,0);
GHVBoxSetPadding( GWidgetGetControl(gw,CID_HVBox+i*TBlock_CIDOffset),0,0);
GHVBoxSetExpandableCol( GWidgetGetControl(gw,CID_HBox+i*TBlock_CIDOffset),gb_expandglue);
}
GGadgetSelectOneListItem( GWidgetGetControl(gw,CID_Type), 1);
GWidgetToDesiredSize(gw);
} else
GDrawSetTransientFor(td.gw,(GWindow) -1);
gw = td.gw;
GGadgetSetEnabled( GWidgetGetControl(gw,CID_AllLayers), flags&tdf_enableback);
GGadgetSetEnabled( GWidgetGetControl(gw,CID_DoGrid), flags&tdf_enableback);
GGadgetSetEnabled( GWidgetGetControl(gw,CID_DoSimplePos), flags&tdf_enableback);
GGadgetSetEnabled( GWidgetGetControl(gw,CID_DoKerns), flags&tdf_enablekerns);
GGadgetSetVisible( GWidgetGetControl(gw,CID_Apply), flags&tdf_addapply);
if ( !(flags&tdf_enableback) ) {
GGadgetSetChecked( GWidgetGetControl(gw,CID_AllLayers), false );
GGadgetSetChecked( GWidgetGetControl(gw,CID_DoGrid), false );
}
GGadgetSetChecked( GWidgetGetControl(gw,CID_DoKerns),
!(flags&tdf_enablekerns)?false:(flags&tdf_defaultkerns)?true:false );
/* Yes, this is set differently from the previous, that's intended */
GGadgetSetChecked( GWidgetGetControl(gw,CID_DoSimplePos),
!(flags&tdf_enableback)?false:(flags&tdf_enablekerns)?true:false );
orig = GWidgetGetControl(gw,CID_Origin);
GGadgetSetEnabled( orig, getorigin!=NULL );
ti = GGadgetGetList(orig,&len);
for ( i=0; i<len; ++i ) {
ti[i]->disabled = !getorigin(data,&junk,i);
if ( ti[i]->disabled && ti[i]->selected ) {
ti[i]->selected = false;
ti[0]->selected = true;
GGadgetSetTitle(orig,ti[0]->text);
}
}
if ( cvt!=cvt_none ) {
int index = cvt == cvt_scale ? 4 :
cvt == cvt_flip ? 5 :
cvt == cvt_rotate ? 2 :
cvt == cvt_skew ? 6 :
/* 3d rot*/ 7 ;
GGadget *firstoption = GWidgetGetControl(td.gw,CID_Type);
GEvent dummy;
GGadgetSelectOneListItem( firstoption, index );
memset(&dummy,0,sizeof(dummy));
dummy.type = et_controlevent; dummy.u.control.subtype = et_listselected;
Trans_TypeChange( firstoption, &dummy );
}
for ( i=0; i<TCnt; ++i ) {
int index = GGadgetGetFirstListSelectedItem(GWidgetGetControl(td.gw,CID_Type+i*TBlock_CIDOffset));
if ( selcid[index]!=0 ) {
GGadget *tf = GWidgetGetControl(td.gw,selcid[index]+i*TBlock_CIDOffset);
GWidgetIndicateFocusGadget(tf);
GTextFieldSelect(tf,0,-1);
break;
}
}
GWidgetHidePalettes();
GDrawSetVisible(gw,true);
while ( !td.done )
GDrawProcessOneEvent(NULL);
GDrawSetVisible(gw,false);
}
main()
{
float ship[XY];
long org[XY];
long size[XY];
Device dev;
short val;
Device mdev[XY];
short mval[XY];
long nhits;
short buffer[BUFSIZE];
Boolean run;
prefsize(400, 400);
winopen("select1");
getorigin(&org[X], &org[Y]);
getsize(&size[X], &size[Y]);
mmode(MVIEWING);
ortho2(-0.5, size[X] - 0.5, -0.5, size[Y] - 0.5);
qdevice(LEFTMOUSE);
qdevice(ESCKEY);
color(BLACK);
clear();
mdev[X] = MOUSEX;
mdev[Y] = MOUSEY;
drawplanet();
run = TRUE;
while (run) {
dev = qread(&val);
if (val == 0) { /* on upstroke */
switch (dev) {
case LEFTMOUSE:
getdev(XY, mdev, mval);
ship[X] = mval[X] - org[X];
ship[Y] = mval[Y] - org[Y];
color(BLUE);
sbox(ship[X], ship[Y],
ship[X] + SHIPWIDTH, ship[Y] + SHIPHEIGHT);
/*
* specify the selecting region to be a box surrounding the
* rocket ship
*/
ortho2(ship[X], ship[X] + SHIPWIDTH,
ship[Y], ship[Y] + SHIPHEIGHT);
initnames();
gselect(buffer, BUFSIZE);
loadname(PLANET);
/* no actual drawing takes place */
drawplanet();
nhits = endselect(buffer);
/*
* restore the Projection matrix; NB. can't use push/popmatrix
* since they only work for the ModelView matrix stack
* when in MVIEWING mode
*/
ortho2(-0.5, size[X] - 0.5, -0.5, size[Y] - 0.5);
/*
* check to see if PLANET was selected; NB. nhits is NOT the
* number of buffer elements written
*/
if (nhits < 0) {
fprintf(stderr, "gselect buffer overflow\n");
run = FALSE;
}
else if (nhits >= 1 && buffer[0] == 1 && buffer[1] == PLANET)
ringbell();
break;
case ESCKEY:
run = FALSE;
break;
}
}
}
gexit();
return 0;
}
static int updatebutton(int x, int y, gl_button *bt) {
Int32 xo, yo;
Int16 xx, yy;
Int32 oriwin = winget();
int oldstate;
#ifdef DEBUG
printf("updatebutton: button with label %s - ", bt->label);
#endif
winset(bt->win);
locate_button(bt);
getorigin(&xo, &yo);
x -= xo;
y -= yo;
if (x < bt->scx0 || y > bt->scy0 ||
x > bt->scx1 || y < bt->scy1) {
winset(oriwin);
bt->changed = FALSE;
#ifdef DEBUG
printf("x = %d y = %d, btscx0 = %d btscx1 = %d btscy0 = %d btscy1 = %d\n",
x, y, bt->scx0, bt->scx1, bt->scy0, bt->scy1);
puts("click not inside - return(FALSE)");
#endif
return(FALSE);
}
oldstate = *(bt->state);
*(bt->state) = (bt->type == BUTTON)?TRUE:!oldstate;
drawbutton(bt);
while (qread(&xx) != LEFTMOUSE); /* wait for LEFTMOUSE release */
if (qtest()) qread(&xx); else {
xx = getvaluator(MOUSEX);
fprintf(stderr,
"updatebutton: This should not happen, tie() seems to fail.\n");
}
if (qtest()) qread(&yy); else {
yy = getvaluator(MOUSEY);
fprintf(stderr,
"updatebutton: This should not happen, tie() seems to fail.\n");
}
getorigin(&xo, &yo);
x = xx - xo;
y = yy - yo;
if (!(bt->changed = !(
x < bt->scx0 || y > bt->scy0 ||
x > bt->scx1 || y < bt->scy1
)
)) *(bt->state) = oldstate;
if (bt->type == BUTTON) {
*(bt->state) = FALSE;
usleep(50000);
}
drawbutton(bt);
if (oriwin != bt->win) winset(oriwin);
if (bt->callback != NULL && bt->changed) {
bt->callback(bt, *(bt->state));
}
#ifdef DEBUG
printf("return(%s)\n", bt->changed?"true":"false");
#endif
return(bt->changed);
}
static int updateslider(int x, int y, gl_slider *sl) {
Int32 xo, yo;
Int16 xx, yy;
double orival;
Int32 oriwin = winget();
int dev;
orival = sl->value;
update_slider_value(sl);
winset(sl->win);
getorigin(&xo, &yo);
x -= xo;
y -= yo;
#ifdef DEBUG
printf("updateslider: slider label %s - ", sl->buf);
#endif
locate_slider(sl);
if (x < sl->scx0 || y > sl->scy0 ||
x > sl->scx1 + sl->sc_thick || y < sl->scy1) {
winset(oriwin);
if (orival != sl->value) {
/* This is used when the click is not for this slider, but
update_slider_value() has changed the value... */
if (sl->callback != NULL) sl->callback(sl, sl->value);
#ifdef DEBUG
puts("return(-1)");
#endif
return(-1);
} else {
#ifdef DEBUG
puts("return(FALSE)");
#endif
return(FALSE);
}
}
while (qtest() == 0 || (dev = qread(&xx)) != LEFTMOUSE) {
/* getorigin(&xo, &yo); */
setslider(getvaluator(MOUSEX) - xo, sl);
usleep(100000);
}
#ifdef DEBUG
printf("updateslider: got an event, dev = %d val = %d\n", dev, (int)xx);
if (qtest()) {
int dev;
dev = qread(&xx);
printf("updateslider: qtest() for x is true. dev = %d, val = %d\n",
dev, (int)xx);
} else {
xx = getvaluator(MOUSEX);
printf("updateslider: qtest() for x is FALSE!. x = %d\n", (int)xx);
}
if (qtest()) {
int dev;
dev = qread(&yy);
printf("updateslider: qtest() for y is true. dev = %d, val = %d\n",
dev, (int)yy);
} else {
yy = getvaluator(MOUSEY);
printf("updateslider: qtest() for y is FALSE!. y = %d\n", (int)yy);
}
setslider((int)(xx-xo), sl);
#else
if (qtest()) qread(&xx);
if (qtest()) {
qread(&yy);
setslider((int)(xx-xo), sl);
} else
fprintf(stderr,
"updateslider: This should not happen, tie() seems to fail.\n");
#endif
winset(oriwin);
if (sl->value != orival) {
if (sl->callback != NULL) sl->callback(sl, sl->value);
return(TRUE);
#ifdef DEBUG
puts("return(TRUE)");
#endif
} else {
#ifdef DEBUG
puts("return(FALSE)");
#endif
return(FALSE);
}
}
/*---------------------------------------------------------------------------
main play loop
---------------------------------------------------------------------------*/
void p1EventLoop() {
short sVal;
long lDevice;
Matrix mNewMat;
int reset = TRUE, i;
static OKMode = FALSE;
PMode = TRUE;
strcpy(Message, "");
while (TRUE)
{
if (qtest())
{
lDevice = qread(&sVal);
switch (lDevice)
{
case INPUTCHANGE:
#ifdef DOFF
printf(" %d, %d, %d\n", Win_ids[0], Win_ids[1], sVal);
#endif
if ( sVal != 0 )
Input_win = sVal;
else
Input_win = -1;
break;
case REDRAW:
if ( sVal == Win_ids[1] && Win_ids[1] != -1 )
vDrawHelpScene();
else if ( sVal == Win_ids[0] )
{
winset(Win_ids[0]);
reshapeviewport();
getsize(&nWinWidth, &nWinHeight);
getorigin(&nXWinOrigin, &nYWinOrigin);
/*
vDrawScene();
*/
}
break;
case ESCKEY:
if ( OKMode != TRUE)
return;
break;
case QKEY:
if ( Input_win == Win_ids[1] )
{
winclose(Input_win);
Win_ids[1] != -1;
}
else if ( Input_win == Win_ids[0] )
{
winclose(Win_ids[0]);
if ( Win_ids[1] != -1 )
winclose(Win_ids[1]);
exit(0);
}
break;
}
}
getdev(DR_NUM_BUT, Devs, Last_Actions);
if ( Time == Time/REDRAW_RATE*REDRAW_RATE )
{
if ( Energy <= 0 )
{
EMode = TRUE;
return;
}
else if ( Time >= END_TIME )
{
OKMode = TRUE;
last_mesg();
}
else
vDrawScene();
}
for ( i=0; i<DR_NUM_BUT; i++)
{
Last_Actions[i] = FALSE;
}
Time++;
}
}
/*
OK w95
*/
void mainEventLoop() {
short sVal, sXCurrent, sYCurrent;
long lDevice;
int i=0;
int state = FALSE;
short attached = 1;
short value;
int dev;
int pupval;
// make_all();
//init_menu();
nCurrentDir = DIR_NONE;
czclear(0x404040, getgdesc(GD_ZMAX));
while (TRUE) {
if (qtest()) {
lDevice = qread(&sVal);
switch (lDevice) {
case INPUTCHANGE:
#ifdef DOFF
printf(" %d, %d, %d\n", Win_ids[0], Win_ids[1], sVal);
#endif
if ( sVal != 0 )
Input_win = sVal;
else
Input_win = -1;
break;
case REDRAW:
if ( sVal == Win_ids[1] && Win_ids[1] != -1 )
vDrawHelpScene();
else if ( sVal == Win_ids[0] )
{
reshapeviewport();
getsize(&nWinWidth, &nWinHeight);
getorigin(&nXWinOrigin, &nYWinOrigin);
}
break;
case RIGHTMOUSE:
pupval = dopup(mainmenu);
break;
case SPACEKEY:
state = TRUE;
i++;
if ( i == 4 )
subEventLoop();
break;
case RKEY:
if ( Last_Actions[FIRE] == TRUE )
vEventLoop(&vDrawTitle);
break;
case QKEY:
if ( Input_win == Win_ids[1] )
{
winclose(Input_win);
Win_ids[1] != -1;
}
else if ( Input_win == Win_ids[0] )
{
winclose(Win_ids[0]);
if ( Win_ids[1] != -1 )
winclose(Win_ids[1]);
exit(0);
}
break;
default:
break;
}
}
getdev(DR_NUM_BUT, Devs, Last_Actions);
vDrawTitle(state);
}
}
/*
half OK w95
*/
void subEventLoop()
{
short sVal, sXCurrent, sYCurrent;
long lDevice;
float tmp;
nCurrentDir = DIR_NONE;
czclear(0x404040, getgdesc(GD_ZMAX));
strcpy(Message, ReadyMesg);
vDrawScene();
qreset();
while (TRUE) {
if (qtest()) {
lDevice = qread(&sVal);
switch (lDevice)
{
case INPUTCHANGE:
#ifdef DOFF
printf(" %d, %d, %d\n", Win_ids[0], Win_ids[1], sVal);
#endif
if ( sVal != 0 )
Input_win = sVal;
else
Input_win = -1;
break;
case REDRAW:
if ( sVal == Win_ids[1] && Win_ids[1] != -1 )
vDrawHelpScene();
else if ( sVal == Win_ids[0] )
{
winset(Win_ids[0]);
reshapeviewport();
getsize(&nWinWidth, &nWinHeight);
getorigin(&nXWinOrigin, &nYWinOrigin);
tmp = Speed;
Speed = 0.0;
vDrawScene();
Speed = tmp;
}
break;
case RIGHTMOUSE:
dopup(mainmenu);
break;
case SPACEKEY:
if ( EMode == FALSE )
{
p1EventLoop();
strcpy(Message, "");
}
if ( EMode == TRUE ) /* game over */
{
vDrawOverScene();
}
break;
case RKEY:
if ( Last_Actions[FIRE] == TRUE )
vEventLoop((&vDrawScene));
break;
case QKEY:
if ( Input_win == Win_ids[1] )
{
winclose(Input_win);
Win_ids[1] != -1;
}
else if ( Input_win == Win_ids[0] )
{
winclose(Win_ids[0]);
if ( Win_ids[1] != -1 )
winclose(Win_ids[1]);
exit(0);
}
break;
default:
break;
}
}
else
getdev(DR_NUM_BUT, Devs, Last_Actions);
}
}
