void gem_prgm()
{
OBJECT *tree;
int box_x, box_y, box_w, box_h, button, end = FALSE;
int work_in[11], work_out[57], count, dummy;
for (count = 0; count < 10; count++) work_in[count] = 1;
work_in[10] = 2;
vdi_handle = graf_handle (& dummy, & dummy, & dummy, & dummy);
v_opnvwk (work_in, & vdi_handle, work_out);
vq_extnd (vdi_handle, 1, work_out);
planes = work_out[4];
rsrc_gaddr (R_TREE, LOGCTRL, & tree);
form_center (tree, & box_x, & box_y, & box_w, & box_h);
form_dial (FMD_START, 0,0,0,0, box_x, box_y, box_w, box_h);
objc_draw (tree, ROOT, MAX_DEPTH, box_x, box_y, box_w, box_h);
do {
button = form_do (tree, 0) & 0x7fffu;
evnt_timer (60, 0);
tree[button].ob_state &= ~SELECTED;
objc_draw (tree, button, 1, box_x, box_y, box_w, box_h);
switch (button) {
case FILENAM :
modify_fname();
objc_draw (tree, ROOT, MAX_DEPTH, box_x, box_y, box_w, box_h);
break;
case CLIENT :
case MODULE :
form_dial (FMD_FINISH, 0,0,0,0, box_x, box_y, box_w, box_h);
do_dialog ((button == CLIENT) ? CLI_API : MOD_API);
form_dial (FMD_START, 0,0,0,0, box_x, box_y, box_w, box_h);
objc_draw (tree, ROOT, MAX_DEPTH, box_x, box_y, box_w, box_h);
break;
case TERM :
if (form_alert (1, "[2][ | Remove LogSTinG and | leave LogCTRL ?][ Yes | No ]") == 1) {
if ((long) (*sting_drivers->get_dftab) ("LOGSTING : REMOVE") == 'OkOk')
end = TRUE;
else
form_alert (1, "[1][ | Could not remove LogSTinG ! ][ Hmmm ]");
}
break;
case FIX :
if (form_alert (1, "[2][ | Activate new settings ? ][ Yes | No ]") == 1)
do_settings();
break;
case CANCEL :
if (form_alert (1, "[2][ | Leave LogCTRL ? ][ Yes | No ]") == 1)
end = TRUE;
break;
}
} while (! end);
form_dial (FMD_FINISH, 0,0,0,0, box_x, box_y, box_w, box_h);
v_clsvwk (vdi_handle);
}
open_vwork()
{
int i;
for(i=0;i<10;work_in[i++]=1);
work_in[10]=2;
v_handle = phys_handle;
v_opnvwk( work_in, &v_handle, work_out );
}
/* Standard code to set up GEM arrays and open work area.
* In particular, this gets app_handle, which is needed to use the screen.
*/
void open_vwork (void) {
int i;
int dum;
app_handle = graf_handle (&dum, &dum, &dum, &dum);
work_in[0] = 2 + Getrez ();
for (i = 1; i < 10; work_in[i++] = 1);
work_in[10] = 2;
v_opnvwk (work_in, &app_handle, work_out);
}
int vdihandle(void)
{
int work_in[11], work_out[57], i ;
for ( i = 0; i < 10; work_in[i++] = 1 ) ;
work_in[10] = 2 ;
v_opnvwk( work_in, &i, work_out ) ;
return( i ) ;
}
void gsx_vopen(void)
{
WORD i;
for(i=0; i<10; i++)
intin[i] = 1;
intin[10] = 2; /* device coordinate space */
v_opnvwk( intin, &gl_handle, (WORD *)&gl_ws);
}
VOID gsx_vopen(VOID)
{
WORD i;
for(i=0; i<10; i++)
intin[i] = 1;
intin[10] = 2; /* device coordinate space */
v_opnvwk( &intin[0], &gl_handle, (WORD *)&gl_ws );
}
/* ---------------------------- */
void open_vwork(void)
{
register int i;
int dummy;
vdi_handle = graf_handle(&dummy, &dummy, &dummy, &dummy);
for(i = 0; i < 10; work_in[i++] = 1);
work_in[10] = 2;
v_opnvwk(work_in, &vdi_handle, work_out);
}
/* ------------------------------------------------------------------- */
static bool init_wkstn( bool is_prn )
{
int work_in[12], work_out[57];
int i;
handle = GRAF_HANDLE; /* ttf-gdos can use handle 0 to represent the gem AES handle */
work_in[0] = is_prn? 21: (Getrez()+1);
for(i=1; i<10; i++) work_in[i]=1;
work_in[10] = 2;
if( is_prn ) v_opnwk(work_in, &handle, work_out);
else v_opnvwk(work_in, &handle, work_out);
dprintf(( "\033Hopened wk %d, handle is %d\n", work_in[0], handle )); dgetchar();
return handle != 0;
} /* init_wkstn() */
int gem_init(int *px, int *py, int *pw, int *ph, int *aes_screenhandle, int *screenhandle, int work_in[], int work_out[])
{
int ap_id;
int wc, hc, wb, hb;
ap_id = appl_init();
if (ap_id == -1)
{
fprintf(stderr, "Error initialising AES process\n");
getchar();
exit(1);
}
#ifdef WND_DEBUG
wdebug_report = fopen("wndhndlr.dbg", "w");
sprintf(wdbg_tmpbuf, "wind_set(%1d, WF_NEWDESK, p%p, %d)", 0, (void *) NULL, 0);
wnd_report(wdbg_tmpbuf);
#endif
/* wind_set(0, WF_NEWDESK, NULL, 0); */
#ifdef WND_DEBUG
wnd_report("wind_get");
#endif
wind_get(0, WF_WORKXYWH, px, py, pw, ph);
_wndh_gl.dw_x = *px;
_wndh_gl.dw_y = *py;
_wndh_gl.dw_w = *pw;
_wndh_gl.dw_h = *ph;
*aes_screenhandle = graf_handle(&wc, &hc, &wb, &hb);
_wndh_gl.aes_screen = *aes_screenhandle;
work_in[0] = 1; /* current screen driver */
work_in[1] = LT_SOLID; /* line type */
work_in[2] = BLACK; /* line color */
work_in[3] = MT_DOT; /* marker type */
work_in[4] = BLACK; /* marker color */
work_in[5] = 1; /* font number (?) */
work_in[6] = BLACK; /* text color */
work_in[7] = FIS_SOLID; /* fill pattern */
work_in[8] = 1; /* fill pattern index */
work_in[9] = BLACK; /* fill color */
work_in[10] = 2; /* RC coordinate system */
*screenhandle = *aes_screenhandle;
v_opnvwk(work_in, screenhandle, work_out);
if (*screenhandle == 0)
{
fprintf(stderr, "Error initialising VDI screen workstation\n");
getchar();
exit(1);
}
_wndh_gl.vwk_screen = *screenhandle;
graf_mouse(ARROW, NULL);
return (ap_id);
}
/*
** Description
** Initialize application specific variables
*/
void
init_global_appl (int apid,
int physical_vdi_id,
char * appl_name)
{
GLOBAL_APPL * globals;
int work_in[] = {1,1,1,1,1,1,1,1,1,1,2};
int work_out[57];
int temp_vid;
globals = get_globals(apid);
globals->pid = getpid();
work_in[0] = 5;
DEBUG3 ("lib_global.c: init_global_appl: physical_vdi_id = %d",
physical_vdi_id);
/* FIXME: change vid types to int and remove temp_vid */
temp_vid = physical_vdi_id;
v_opnvwk (work_in, &temp_vid, work_out);
globals->vid = temp_vid;
DEBUG2("lib_global.c: apid = %d globals->vid = %d", apid, globals->vid);
/* There is no default desktop background */
globals->desktop_background = NULL;
/* There is no default menu */
globals->menu = NULL;
/* Setup resource header */
globals->rshdr = NULL;
/* Setup path mode: MiNT or Unix */
globals->path_mode = default_path_mode;
/* Initialize application and accessory list as empty */
globals->appl_menu.count = 0;
globals->appl_menu.size = 10;
globals->appl_menu.entries =
(APPL_ENTRY *)malloc (sizeof (APPL_ENTRY) * 10);
globals->acc_menu.count = 0;
globals->acc_menu.size = 10;
globals->acc_menu.entries =
(APPL_ENTRY *)malloc (sizeof (APPL_ENTRY) * 10);
strcpy(globals->application_name, appl_name);
globals->common = &global_common;
DEBUG3 ("lib_global.c: Leaving global_init");
}
/************************************************
* open the vdi workstation
*/
static int16 init_wkstn( int16 dev_nr )
{
int work_in[12], work_out[57];
int handle;
int i;
handle = 0; /* ttf-gdos can use handle 0 to represent the gem AES handle */
work_in[0] = dev_nr;
for(i=1; i<10; i++) work_in[i]=1;
work_in[10] = 2;
if( dev_nr>10 ) v_opnwk(work_in, &handle, work_out);
else v_opnvwk(work_in, &handle, work_out);
/* printf( "opened wk %d, handle is %d\n", work_in[0], handle ); getchar(); */
return handle;
} /* init_wkstn() */
/*
* Open virtual workstation
*/
void
open_vwork(void)
{
int i;
if (hcnt == 0) {
for (i = 1; i < 10;)
work_in[i++] = 1;
work_in[0] = currez + 2;
work_in[10] = 2;
vhandle = xcpb->handle;
v_opnvwk(work_in, &vhandle, work_out);
}
hcnt++;
}
void gem_init() /* Appel‚ une fois au d‚but */
{
int work_in[11], /* Ces tableaux sont n‚cessaires … v_opnvwk */
work_out[57],
i; /* Variable de stockage temporaire */
ap_id = appl_init(); /* Initialise l'AES */
for (i=0; i<10; work_in[i++] = 1); /* [0-9] mis … 1 */
work_in[10] = 2; /* Drapeau de coordonn‚es, doit toujours ˆtre 2 */
v_opnvwk (work_in, &handle, work_out); /* Initialise la VDI */
x_max = work_out[0]; /* Stocker la r‚solution */
y_max = work_out[1];
}
void app_set_up(short *workstation) {
short work_in[11];
short work_out[57];
short dummy;
appl_init();
*workstation = graf_handle(&dummy, &dummy, &dummy, &dummy);
for (short loop = 0; loop < 10; loop++) {
work_in[loop] = 1;
}
work_in[10] = 2;
v_opnvwk(work_in, workstation, work_out);
}
short
V_Opnvwk(VDI_Workstation *dev)
{
short i, in[11];
in[0] = Getrez() + 2;
dev->dev_id = in[0];
for(i=1;i<10;in[i++]=1);
in[10]=2;
i=graf_handle(&dev->wchar,&dev->hchar,&dev->wbox,&dev->hbox);
v_opnvwk(in,&i,&dev->xres);
dev->handle=i;
if(i)
vq_extnd(i,1,&dev->screentype);
return(i);
}
/* main()
* ================================================================
*/
void
main( void )
{
int i;
appl_init();
AES_Version = _AESglobal[0]; /* Get the AES version number */
vhandle = graf_handle( &gl_wchar, &gl_hchar, &gl_wbox, &gl_hbox );
work_in[0] = Getrez()+2; /* let's not gag GDOS */
for( i = 1; i < 10; work_in[i++] = 1 );
work_in[10] = 2;
v_opnvwk( work_in, &vhandle, work_out );
xres = work_out[0];
yres = work_out[1];
num_pens = work_out[13];
gl_screen.g_x = gl_screen.g_y = 0;
gl_screen.g_w = xres + 1;
gl_screen.g_h = yres + 1;
/* We're too wide for ST LOW Rez */
if(( work_in[0] == STLOW ) || ( work_in[0] == TTLOW ))
{
form_alert( 1, alow );
v_clsvwk( vhandle );
appl_exit();
exit( 0 );
}
wind_get( 0, WF_WORKXYWH, &gl_full.g_x, &gl_full.g_y,
&gl_full.g_w, &gl_full.g_h );
initialize();
if( !rsrc_init())
{
form_alert( 1, arsc );
Gem_Exit( -1 );
}
do_main();
Gem_Exit( 0 );
}
/*-----------------------------------------------------------------------
* Initialize GEM application:
* open virtual workstation and get desktop extent.
*/
void
gem_init(void)
{
WORD i, wsin[11], hch;
appl_init();
if (!isAES4())
{
form_alert(1, "[3][ |Viewer can't run on |this TOS version.][ Quit ]");
gem_exit(-1);
}
AES_Version = _AESglobal[0];
MultiFlag = _AESglobal[1]; /* -1 == MULTITOS, else single tasking */
if( AES_Version >= 0x0410 ) /* CJG 06/24/93 */
IconFlag = SMALLER;
else
IconFlag = 0;
shel_grok(G_AP_TERM);
wsid = aesid = graf_handle(&wchar, &hchar, &wbox, &hbox);
wsin[0] = Getrez()+2;
for (i = 1; i < 10; i++)
wsin[i] = 1;
wsin[i] = 2;
v_opnvwk(wsin, &wsid, wsout);
if (!wsid)
{
form_error(8); /* not enough memory */
gem_exit(-1);
}
/* Get default AES point size */
vqt_attributes(aesid, &aes_t_attr.font);
vst_font(wsid, 1);
hch = def_pts = 0;
while (hch < aes_t_attr.hchar)
vst_point(wsid, ++def_pts, &i, &hch, &i, &i);
wind_grect(0, WF_WORKXYWH, &desk);
}
int
main(void)
{
int x,y,w,h;
int vid;
int work_in[] = {1,7,1,1,1,1,1,1,1,1,2};
int work_out[57];
OBJECT * dial;
appl_init();
vid = graf_handle(&vid,&vid,&vid,&vid);
v_opnvwk(work_in,&vid,work_out);
if(rsrc_load("test2rsc.rsc"))
{
rsrc_gaddr(R_TREE,TESTDIAL,&dial);
form_center(dial,&x,&y,&w,&h);
form_dial(FMD_START,0,0,0,0,x,y,w,h);
objc_draw(dial,0,9,x,y,w,h);
own_form_do(dial,0);
form_dial(FMD_FINISH,0,0,0,0,x,y,w,h);
rsrc_free();
}
else
{
form_alert(1,"[1][Couldn't load resource file!][Bummer!]");
}
v_clsvwk(vid);
appl_exit();
return 0;
}
short main(int argc, char *argv[])
{
MFDB dest;
short my_AppId, x, y, w, h;
short work_in[11] = {1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2};
short work_out[57], msg[16], w_id1;
short open_windows = 1, dummy;
short wx, wy, ww, wh, clip[4], pnt[4];
char win1_name[20];
unsigned short logo_trnfrm[LOGO_DATASIZE];
GRECT dirty, walk;
short e = 0, evx, evy, a, kc_shstate, kc_key, click_count;
my_AppId = appl_init();
my_handle = graf_handle(&x, &y, &w, &h); /* Open a virtual workstation */
v_opnvwk(work_in, &my_handle, work_out);
logo_bm.fd_w = LOGO_W;
logo_bm.fd_h = LOGO_H;
logo_bm.fd_wdwidth = 12;
logo_bm.fd_nplanes = 4;
logo_bm.fd_stand = 1;
dest = logo_bm;
dest.fd_stand = 0;
logo_bm.fd_addr = (void *)x_logo;
dest.fd_addr = (void *)logo_trnfrm;
vr_trnfm(my_handle, &logo_bm, &dest);
logo_bm.fd_addr = (void *)logo_trnfrm;
w_id1 = wind_create(NAME|CLOSE|MOVER, 0, 0, LOGO_W + 40, LOGO_H + 40);
if (argc > 1)
sprintf(win1_name,"%s", argv[1]);
else
sprintf(win1_name,"Welcome to...", argv[1]);
wind_set(w_id1, WF_NAME, ADDR(win1_name));
x = (work_out[0] - (LOGO_W + 40)) / 2;
y = (work_out[1] - (LOGO_H + 40)) / 2;
wind_open(w_id1, x, y, LOGO_W + 40, LOGO_H + 40);
while((open_windows) && (!(e & MU_TIMER))) {
e = evnt_multi(MU_MESAG|MU_TIMER, 258, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
msg, 15000, 0, &evx, &evy, &a, &kc_shstate, &kc_key, &click_count);
if (e & MU_MESAG) {
dummy = msg[0];
switch(dummy) {
case WM_CLOSED: /* Did someone close one of our windows? */
wind_close(msg[3]);
open_windows--;
break;
case WM_MOVED:
wind_set(msg[3], WF_CURRXYWH, msg[4], msg[5], msg[6], msg[7]);
break;
case WM_REDRAW:
dirty.g_x = msg[4];
dirty.g_y = msg[5];
dirty.g_w = msg[6];
dirty.g_h = msg[7];
wind_update(BEG_UPDATE);
wind_get(msg[3], WF_WORKXYWH, &wx, &wy, &ww, &wh);
walk.g_x = wx;
walk.g_y = wy;
walk.g_w = ww;
walk.g_h = wh;
pnt[0] = wx;
pnt[1] = wy;
pnt[2] = wx + ww;
pnt[3] = wy + wh;
wind_get(msg[3], WF_FIRSTXYWH, &x, &y, &w, &h);
rc_intersect(&walk, &dirty);
graf_mouse(M_OFF, NULL);
while(h) {
walk.g_x = x;
walk.g_y = y;
walk.g_w = w;
walk.g_h = h;
if (rc_intersect(&dirty, &walk)) {
clip[0] = walk.g_x;
clip[1] = walk.g_y;
clip[2] = walk.g_x + walk.g_w;
clip[3] = walk.g_y + walk.g_h;
vs_clip(my_handle, 1, clip);
vsf_color(my_handle, LWHITE);
v_bar(my_handle, pnt);
display_bitmap(wx, wy);
}
wind_get(msg[3], WF_NEXTXYWH, &x, &y, &w, &h);
}
vs_clip(my_handle, 0, clip);
graf_mouse(M_ON, NULL);
wind_update(END_UPDATE);
break;
case WM_TOPPED:
wind_set(msg[3], WF_TOP, 0, 0, 0, 0);
break;
case WM_BOTTOMED:
wind_set(msg[3], WF_BOTTOM, 0, 0, 0, 0);
break;
}
}
}
v_clsvwk(my_handle);
appl_exit();
return 0;
}
/*---------------------------------------------------*/
void init()
{
int work_in[11];
int work_out[58];
int dummy,bootdev;
long ldummy;
long old_stack;
char ausnahme[30]="A:\\AUTO\\CAUTO.PRG";
ap_id=appl_init();
if (ap_id==-1) {puts("ERROR: ap_id=-1 !");exit(1);}
if (rsrc_load("BLOWCONF.RSC")==0)
{
#if !FRANCAISE
(void)form_alert(1,"[3][ No Resource |BLOWCONF.RSC missing][ OK ]");
#else
(void)form_alert(1,"[3][ BLOWCONF.RSC | introuvable !][ OK ]");
#endif
quit_all();
}
#if DEMO_VERSION
alert(ERROR8);
form_alert(0,"[1][BlowUP030 for the ATARI-Falcon| (c) by| Georg Acher| &|\
Michael Eberl][ OK ]");
#endif
handle=graf_handle(&dummy,&dummy,&dummy,&dummy);
for (dummy=0;dummy<=9;dummy++) work_in[dummy]=1;
work_in[10]=2;
v_opnvwk(work_in, &handle, work_out );
vdi_x=work_out[0];vdi_y=work_out[1];
v_clsvwk(handle);
handle=graf_handle(&dummy,&dummy,&dummy,&dummy);
for(dummy=0;(dummy<5)&&(_GemParBlk.global[10]!=planetab[dummy]);dummy++);
#if DEMO_VERSION
if (dummy!=2) {alert(ERROR4);exit(0);}
#endif
pl_idx=dummy;
wind_update(BEG_UPDATE);
wind_update(BEG_MCTRL);
(void)graf_mouse(ARROW,0);
old_stack=Super(0L);
bootdev=*((int*)0x446); /* Bootdevice */
boot_prg_name[0]=(char)(bootdev+65);
ausnahme[0]=(char)(bootdev+65);
Super((void *) old_stack);
if (bootdev==0) /* Wenn von A: gebootet ... */
{
ldummy=Fopen( ausnahme, FO_READ ); /* Existiert ein CAUTO-Programm? */
if (ldummy>=0) /* Ja? Dann ist das Bootlaufwerk nicht das Bootlaufwerk */
{
bootdev=2; /* Laufwerk C ist richtig! */
boot_prg_name[0]=(char)(bootdev+65); /* Name korrigieren */
(void)Fclose( (int)ldummy );
}
}
#if DEMO_VERSION
if (pl_idx!=2) {alert(ERROR4);exit(0);}
#endif
}
init_sys()
{
WORD work_in[11];
WORD work_out[57];
WORD i;
save_critical();
got_blitter = ( (_xbios(64, -1) & 3 ) == 3);
if ( (gl_apid = appl_init()) == -1)
{
exit(-1);
}
aline = ainit();
if (!init_mem())
exit(-2);
/* save initial rez ... we'll see if GEM agrees with this later */
if ( (irez = Getrez()) != 0)
{
if (irez != 1)
{
puts("Cyber Paint can't run on black and white systems, sorry");
for (i=0; i<60; i++)
{
Vsync();
}
exit(-3);
}
}
get_cmap(color_env);
copy_words(init_cmap, sys_cmap, COLORS);
put_cmap(sys_cmap);
initted_color = 1;
if (!init_pulls())
return(-4);
/* save mouse wrap-around */
mouse_bx = *((WORD *)(aline-692));
mouse_by = *((WORD *)(aline-690));
/* save # of colors gem thinks exist */
gem_colr = *((WORD *)(aline-666));
gr_handle = graf_handle(&gr_hwchar, &gr_hhchar, &gr_hwbox, &gr_hhbox);
handle = gr_handle;
stuff_words(work_in, 1, 10);
work_in[10] = 2;
v_opnvwk(work_in, &handle, work_out);
if (handle == 0)
return(-5);
if (work_out[0] == 639)
{
gem_mrez = 1; /* see what GEM thinks rez is in so file-requestor can
work */
/* poke in initial mouse location (in case off-screen for lo-rez */
*((WORD *)(aline-602)) = 160;
*((WORD *)(aline-600)) = 100;
}
jim_rez();
pscreen = cscreen = (WORD *)Physbase();
if ((uscreen = askmem(32000)) == NULL)
return(-6);
if ((start_screen = askmem(32000)) == NULL)
return(-7);
if ((end_screen = askmem(32000)) == NULL)
return(-8);
if ((prev_screen = laskmem(2L*32000L)) == NULL)
/* prev/next form 64K buffer */
return(-9);
next_screen = prev_screen+16000;
if ((bscreen = askmem(32000)) == NULL)
return(-11);
empty_ram_dlt();
zero_screens();
if (!init_input())
return(-13);
init_fname();
init_menu_colors();
install_critical();
jimints_on();
cel_mem_alloc = mem_free; /* "user" memory starts here */
return(1);
}
void main(void) {
WORD x,y,w,h;
WORD mx,my,button,kstate,clicks;
MFDB mfdbs,mfdbd;
WORD xyarray[8],vid;
WORD work_in[] = {1,7,1,1,1,1,1,1,1,1,2};
WORD work_out[57];
OBJECT *dial;
char path[200],file[30];
appl_init();
strcpy(path,"C:\\*");
strcpy(file,"noname.inf");
vid = graf_handle(&vid,&vid,&vid,&vid);
v_opnvwk(work_in,&vid,work_out);
/* for(x = 0; x < 25; x++)
form_error(x);
*/
/* fsel_input(path,file,&button);
*/
form_alert(3,"[2][Test av|form_alert.|Windoze rulez...|...___NOOOT!___][Ja|Kanske|Nej]");
if(rsrc_load("test2rsc.rsc")) {
int co;
int i;
rsrc_gaddr(R_TREE,TESTDIAL,&dial);
form_center(dial,&x,&y,&w,&h);
form_dial(FMD_START,0,0,0,0,x,y,w,h);
objc_draw(dial,0,9,x,y,w,h);
form_do(dial,0);
form_dial(FMD_FINISH,0,0,0,0,x,y,w,h);
i = 0;
objc_delete(dial,11);
while(1) {
fprintf(stderr,"%3d next=%3d head=%3d tail=%3d\r\n",
i,dial[i].ob_next,dial[i].ob_head,dial[i].ob_tail);
if(dial[i].ob_flags & LASTOB) {
break;
};
i++;
};
getchar();
rsrc_free();
}
else {
form_alert(1,"[1][Couldn't load resource file!][Bummer!]");
};
v_clsvwk(vid);
fprintf(stderr,"environ size=%d",shel_write(SWM_ENVIRON,ENVIRON_SIZE,0,NULL,NULL));
appl_exit();
}
int GEM_VideoInit(_THIS, SDL_PixelFormat *vformat)
{
int i;
short work_in[12], work_out[272], dummy;
/* Open AES (Application Environment Services) */
if (appl_init() == -1) {
fprintf(stderr,"Can not open AES\n");
return 1;
}
/* Read version and features */
GEM_version = aes_params.global[0];
if (GEM_version >= 0x0400) {
short ap_gout[4];
GEM_wfeatures=0;
if (appl_getinfo(AES_WINDOW, &ap_gout[0], &ap_gout[1], &ap_gout[2], &ap_gout[3])==0) {
GEM_wfeatures=ap_gout[0];
}
}
/* Ask VDI physical workstation handle opened by AES */
VDI_handle = graf_handle(&dummy, &dummy, &dummy, &dummy);
if (VDI_handle<1) {
fprintf(stderr,"Wrong VDI handle %d returned by AES\n",VDI_handle);
return 1;
}
/* Open virtual VDI workstation */
work_in[0]=Getrez()+2;
for(i = 1; i < 10; i++)
work_in[i] = 1;
work_in[10] = 2;
v_opnvwk(work_in, &VDI_handle, work_out);
if (VDI_handle == 0) {
fprintf(stderr,"Can not open VDI virtual workstation\n");
return 1;
}
/* Read fullscreen size */
VDI_w = work_out[0] + 1;
VDI_h = work_out[1] + 1;
/* Read desktop size and position */
if (!wind_get(DESKTOP_HANDLE, WF_WORKXYWH, &GEM_desk_x, &GEM_desk_y, &GEM_desk_w, &GEM_desk_h)) {
fprintf(stderr,"Can not read desktop properties\n");
return 1;
}
/* Read bit depth */
vq_extnd(VDI_handle, 1, work_out);
VDI_bpp = work_out[4];
VDI_oldnumcolors=0;
switch(VDI_bpp) {
case 8:
VDI_pixelsize=1;
break;
case 15:
case 16:
VDI_pixelsize=2;
break;
case 24:
VDI_pixelsize=3;
break;
case 32:
VDI_pixelsize=4;
break;
default:
fprintf(stderr,"%d bits colour depth not supported\n",VDI_bpp);
return 1;
}
/* Setup hardware -> VDI palette mapping */
for(i = 16; i < 255; i++) {
vdi_index[i] = i;
}
vdi_index[255] = 1;
/* Save current palette */
if (VDI_bpp>8) {
VDI_oldnumcolors=1<<8;
} else {
VDI_oldnumcolors=1<<VDI_bpp;
}
for(i = 0; i < VDI_oldnumcolors; i++) {
short rgb[3];
vq_color(VDI_handle, i, 0, rgb);
VDI_oldpalette[i][0] = rgb[0];
VDI_oldpalette[i][1] = rgb[1];
VDI_oldpalette[i][2] = rgb[2];
}
/* Setup screen info */
GEM_title_name = empty_name;
GEM_icon_name = empty_name;
GEM_handle = -1;
GEM_locked = SDL_FALSE;
GEM_win_fulled = SDL_FALSE;
VDI_screen = NULL;
VDI_ReadExtInfo(this, work_out);
if (VDI_screen == NULL) {
VDI_pitch = VDI_w * VDI_pixelsize;
VDI_format = VDI_FORMAT_UNKNOWN;
VDI_redmask = VDI_greenmask = VDI_bluemask = VDI_alphamask = 0;
}
/* Setup destination mfdb */
VDI_dst_mfdb.fd_addr = NULL;
/* Update hardware info */
this->info.hw_available = 0;
this->info.video_mem = 0;
/* TC, screen : no shadow (direct)
* 8P, screen: no shadow (direct)
* 8I, screen: shadow, c2p (shadow -> c2p)
* TC, no screen: shadow (vro_cpyfm)
* 8P, no screen: shadow (vro_cpyfm)
* 8I/U, no screen: shadow, shadow_c2p, c2p (shadow -> c2p -> vro_cpyfm)
*/
/* Determine the screen depth */
/* we change this during the SDL_SetVideoMode implementation... */
vformat->BitsPerPixel = VDI_bpp;
/* Set mouse cursor to arrow */
graf_mouse(ARROW, NULL);
/* Init chunky to planar routine */
Atari_C2pInit = Atari_C2pInit8;
if (atari_cpu060_avail) {
Atari_C2pConvert = Atari_C2pConvert8_060;
} else {
Atari_C2pConvert = Atari_C2pConvert8;
}
Atari_C2pInit();
/* We're done! */
return(0);
}
void init_tet( void )
{
int i;
char s[127];
handle=graf_handle( &i, &i, &i, &i );
work_in[0] = 0;
work_in[1] = 1;
work_in[2] = 1;
work_in[3] = 1;
work_in[4] = 1;
work_in[5] = 1;
work_in[6] = 1;
work_in[7] = 1;
work_in[8] = 1;
work_in[9] = 1;
work_in[10] = 2;
v_opnvwk( work_in, &handle, work_out );
v_clrwk( handle );
v_hide_c( handle );
puts("\033H");
puts("Willkommen zum BLOWCONF-Cheatmodus,\ndem Mini TETris von Michael Eberl");
puts("");
puts("Dieses Programm entstand auf dringenden Wunsch von");
puts("Georg Acher am 14.7.1994 und wurde am 27.9.96 von");
puts("Michael Eberl in BlowConf integriert.");
puts("");
puts("Bedienung:");
puts("Bewegung nach links : Linke Shift-Taste");
puts("Bewegung nach rechts : Rechte Shift-Taste");
puts("Drehung des Steins : Alternate-Taste");
puts("");
puts("Aus praktischen Gr�nden ist eine y-Aufl�sung\nvon mind. 544 Punkten n�tig!!!");
puts("");
puts("Nach Spielende wird ein eventueller Highscore abgespeichert,");
puts("dann wird zu BLOWCONF zur�ckgekehrt.");
puts("");
puts("Viel Spa�!");
puts("");
puts("Press <Return> to start...!");
(void)gets(s);
v_clrwk( handle );
xres = 1+ work_out[0];
yres = 1+ work_out[1];
for (i=0; i<HEIGHT; i++)
playfield[i]=0;
stones[0]=stone1;
stones[1]=stone2;
stones[2]=stone3;
stones[3]=stone4;
stones[4]=stone5;
stones[5]=stone6;
stones[6]=stone7;
if ((highfile=(int)Fopen("HISCORE.DAT", FO_READ))<0)
{
hiscore=0;
strcpy(hiname,"");
}
else
{
Fread( highfile, 4, &hiscore );
Fread( highfile, 128, hiname );
Fclose( highfile );
}
}
int GEM_VideoInit(_THIS, SDL_PixelFormat *vformat)
{
int i, menubar_size;
short work_in[12], work_out[272], dummy;
/* Open AES (Application Environment Services) */
if (appl_init() == -1) {
fprintf(stderr,"Can not open AES\n");
return 1;
}
/* Read version and features */
GEM_version = aes_global[0];
if (GEM_version >= 0x0410) {
short ap_gout[4], errorcode;
GEM_wfeatures=0;
errorcode=appl_getinfo(AES_WINDOW, &ap_gout[0], &ap_gout[1], &ap_gout[2], &ap_gout[3]);
if (errorcode==0) {
GEM_wfeatures=ap_gout[0];
}
}
/* Ask VDI physical workstation handle opened by AES */
VDI_handle = graf_handle(&dummy, &dummy, &dummy, &dummy);
if (VDI_handle<1) {
fprintf(stderr,"Wrong VDI handle %d returned by AES\n",VDI_handle);
return 1;
}
/* Open virtual VDI workstation */
work_in[0]=Getrez()+2;
for(i = 1; i < 10; i++)
work_in[i] = 1;
work_in[10] = 2;
v_opnvwk(work_in, &VDI_handle, work_out);
if (VDI_handle == 0) {
fprintf(stderr,"Can not open VDI virtual workstation\n");
return 1;
}
/* Read fullscreen size */
VDI_w = work_out[0] + 1;
VDI_h = work_out[1] + 1;
/* Read desktop size and position */
if (!wind_get(DESKTOP_HANDLE, WF_WORKXYWH, &GEM_desk_x, &GEM_desk_y, &GEM_desk_w, &GEM_desk_h)) {
fprintf(stderr,"Can not read desktop properties\n");
return 1;
}
/* Read bit depth */
vq_extnd(VDI_handle, 1, work_out);
VDI_bpp = work_out[4];
VDI_oldnumcolors=0;
switch(VDI_bpp) {
case 8:
VDI_pixelsize=1;
break;
case 15:
case 16:
VDI_pixelsize=2;
break;
case 24:
VDI_pixelsize=3;
break;
case 32:
VDI_pixelsize=4;
break;
default:
fprintf(stderr,"%d bits colour depth not supported\n",VDI_bpp);
return 1;
}
/* Setup hardware -> VDI palette mapping */
for(i = 16; i < 255; i++) {
vdi_index[i] = i;
}
vdi_index[255] = 1;
/* Save current palette */
if (VDI_bpp>8) {
VDI_oldnumcolors=1<<8;
} else {
VDI_oldnumcolors=1<<VDI_bpp;
}
for(i = 0; i < VDI_oldnumcolors; i++) {
short rgb[3];
vq_color(VDI_handle, i, 0, rgb);
VDI_oldpalette[i][0] = rgb[0];
VDI_oldpalette[i][1] = rgb[1];
VDI_oldpalette[i][2] = rgb[2];
}
VDI_setpalette = GEM_SetNewPalette;
SDL_memcpy(VDI_curpalette,VDI_oldpalette,sizeof(VDI_curpalette));
/* Setup screen info */
GEM_title_name = empty_name;
GEM_icon_name = empty_name;
GEM_handle = -1;
GEM_locked = SDL_FALSE;
GEM_win_fulled = SDL_FALSE;
GEM_fullscreen = SDL_FALSE;
GEM_lock_redraw = SDL_TRUE; /* Prevent redraw till buffers are setup */
VDI_screen = NULL;
VDI_pitch = VDI_w * VDI_pixelsize;
VDI_format = ( (VDI_bpp <= 8) ? VDI_FORMAT_INTER : VDI_FORMAT_PACK);
VDI_redmask = VDI_greenmask = VDI_bluemask = VDI_alphamask = 0;
VDI_ReadExtInfo(this, work_out);
#ifdef DEBUG_VIDEO_GEM
printf("sdl:video:gem: screen: address=0x%08x, pitch=%d\n", VDI_screen, VDI_pitch);
printf("sdl:video:gem: format=%d\n", VDI_format);
printf("sdl:video:gem: masks: 0x%08x, 0x%08x, 0x%08x, 0x%08x\n",
VDI_alphamask, VDI_redmask, VDI_greenmask, VDI_bluemask
);
#endif
/* Setup destination mfdb */
VDI_dst_mfdb.fd_addr = NULL;
/* Determine the current screen size */
this->info.current_w = VDI_w;
this->info.current_h = VDI_h;
/* Determine the screen depth */
/* we change this during the SDL_SetVideoMode implementation... */
vformat->BitsPerPixel = VDI_bpp;
/* Set mouse cursor to arrow */
graf_mouse(ARROW, NULL);
GEM_cursor = NULL;
/* Init chunky to planar routine */
SDL_Atari_C2pConvert = SDL_Atari_C2pConvert8;
/* Setup VDI fill functions */
vsf_color(VDI_handle,0);
vsf_interior(VDI_handle,1);
vsf_perimeter(VDI_handle,0);
/* Menu bar save buffer */
menubar_size = GEM_desk_w * GEM_desk_y * VDI_pixelsize;
GEM_menubar=Atari_SysMalloc(menubar_size,MX_PREFTTRAM);
/* Fill video modes list */
SDL_modelist[0] = SDL_malloc(sizeof(SDL_Rect));
SDL_modelist[0]->x = 0;
SDL_modelist[0]->y = 0;
SDL_modelist[0]->w = VDI_w;
SDL_modelist[0]->h = VDI_h;
SDL_modelist[1] = NULL;
#if SDL_VIDEO_OPENGL
SDL_AtariGL_InitPointers(this);
#endif
this->info.wm_available = 1;
/* We're done! */
return(0);
}
/* VDI initialisieren
* Paramester: keine
* Return: nichts
* SideEffects: globale var 'userhandle' wird gesetzt
*/
void init_uvdi(void)
{
userhandle = xpcb->handle;
v_opnvwk(work_in, &userhandle, work_out);
}
int GEM_VideoInit(_THIS, SDL_PixelFormat *vformat)
{
int i, menubar_size;
short work_in[12], work_out[272], dummy;
if (appl_init() == -1) {
fprintf(stderr,"Can not open AES\n");
return 1;
}
GEM_version = aes_global[0];
if (GEM_version >= 0x0410) {
short ap_gout[4], errorcode;
GEM_wfeatures=0;
errorcode=appl_getinfo(AES_WINDOW, &ap_gout[0], &ap_gout[1], &ap_gout[2], &ap_gout[3]);
if (errorcode==0) {
GEM_wfeatures=ap_gout[0];
}
}
VDI_handle = graf_handle(&dummy, &dummy, &dummy, &dummy);
if (VDI_handle<1) {
fprintf(stderr,"Wrong VDI handle %d returned by AES\n",VDI_handle);
return 1;
}
work_in[0]=Getrez()+2;
for(i = 1; i < 10; i++)
work_in[i] = 1;
work_in[10] = 2;
v_opnvwk(work_in, &VDI_handle, work_out);
if (VDI_handle == 0) {
fprintf(stderr,"Can not open VDI virtual workstation\n");
return 1;
}
VDI_w = work_out[0] + 1;
VDI_h = work_out[1] + 1;
if (!wind_get(DESKTOP_HANDLE, WF_WORKXYWH, &GEM_desk_x, &GEM_desk_y, &GEM_desk_w, &GEM_desk_h)) {
fprintf(stderr,"Can not read desktop properties\n");
return 1;
}
vq_extnd(VDI_handle, 1, work_out);
VDI_bpp = work_out[4];
VDI_oldnumcolors=0;
switch(VDI_bpp) {
case 8:
VDI_pixelsize=1;
break;
case 15:
case 16:
VDI_pixelsize=2;
break;
case 24:
VDI_pixelsize=3;
break;
case 32:
VDI_pixelsize=4;
break;
default:
fprintf(stderr,"%d bits colour depth not supported\n",VDI_bpp);
return 1;
}
for(i = 16; i < 255; i++) {
vdi_index[i] = i;
}
vdi_index[255] = 1;
if (VDI_bpp>8) {
VDI_oldnumcolors=1<<8;
} else {
VDI_oldnumcolors=1<<VDI_bpp;
}
for(i = 0; i < VDI_oldnumcolors; i++) {
short rgb[3];
vq_color(VDI_handle, i, 0, rgb);
VDI_oldpalette[i][0] = rgb[0];
VDI_oldpalette[i][1] = rgb[1];
VDI_oldpalette[i][2] = rgb[2];
}
VDI_setpalette = GEM_SetNewPalette;
SDL_memcpy(VDI_curpalette,VDI_oldpalette,sizeof(VDI_curpalette));
GEM_title_name = empty_name;
GEM_icon_name = empty_name;
GEM_handle = -1;
GEM_locked = SDL_FALSE;
GEM_win_fulled = SDL_FALSE;
GEM_fullscreen = SDL_FALSE;
GEM_lock_redraw = SDL_TRUE;
VDI_screen = NULL;
VDI_pitch = VDI_w * VDI_pixelsize;
VDI_format = ( (VDI_bpp <= 8) ? VDI_FORMAT_INTER : VDI_FORMAT_PACK);
VDI_redmask = VDI_greenmask = VDI_bluemask = VDI_alphamask = 0;
VDI_ReadExtInfo(this, work_out);
#ifdef DEBUG_VIDEO_GEM
printf("sdl:video:gem: screen: address=0x%08x, pitch=%d\n", VDI_screen, VDI_pitch);
printf("sdl:video:gem: format=%d\n", VDI_format);
printf("sdl:video:gem: masks: 0x%08x, 0x%08x, 0x%08x, 0x%08x\n",
VDI_alphamask, VDI_redmask, VDI_greenmask, VDI_bluemask
);
#endif
VDI_dst_mfdb.fd_addr = NULL;
this->info.current_w = VDI_w;
this->info.current_h = VDI_h;
vformat->BitsPerPixel = VDI_bpp;
graf_mouse(ARROW, NULL);
GEM_cursor = NULL;
SDL_Atari_C2pConvert = SDL_Atari_C2pConvert8;
vsf_color(VDI_handle,0);
vsf_interior(VDI_handle,1);
vsf_perimeter(VDI_handle,0);
menubar_size = GEM_desk_w * GEM_desk_y * VDI_pixelsize;
GEM_menubar=Atari_SysMalloc(menubar_size,MX_PREFTTRAM);
SDL_modelist[0] = SDL_malloc(sizeof(SDL_Rect));
SDL_modelist[0]->x = 0;
SDL_modelist[0]->y = 0;
SDL_modelist[0]->w = VDI_w;
SDL_modelist[0]->h = VDI_h;
SDL_modelist[1] = NULL;
#if SDL_VIDEO_OPENGL
SDL_AtariGL_InitPointers(this);
#endif
this->info.wm_available = 1;
return(0);
}
void
main( int argc, char *argv[], char *envp[] )
{
int i;
/* ----- evnt_multi return parameters */
int event, msg[8], key, nclicks;
MRETS mrets;
int rez;
/*
* Initialize global arguments
*/
if( (nargs = argc) != 1)
args = argv;
env = envp;
/*
* See if we were run from the AUTO folder...
*/
if( (gl_apid = appl_init()) == -1 ) {
Cconws("\r\nError initializing GEM, hit a key...");
Cconin();
exit( gl_apid );
}
rez = Getrez() + 2;
if(( rez != 2 ) && ( rez != 6 ) )
{
/* Ensure that we run ONLY in ST LOW or TT MED - 640x480 16 colors */
form_alert( 1, "[3][ | This program runs in| ST LOW or TT MED Only][ OK ]" );
appl_exit();
exit( -1 );
}
/*
* Set up work_in to initialize VDI functions to useful values,
* Get the physical workstation handle from the AES, then
* open a virtual workstation and get our AES work area's extent.
*/
work_in[0] = Getrez()+2; /* let's not gag GDOS */
for( i = 1; i < 10; work_in[i++] = 1 )
;
work_in[10] = 2; /* raster coordinates */
vhandle = graf_handle( &gl_wchar, &gl_hchar, &gl_wbox, &gl_hbox );
v_opnvwk( work_in, &vhandle, work_out );
xres = work_out[0];
yres = work_out[1];
/*
* Call initialization hooks
*/
Wind_get( 0, WF_WORKXYWH, ( WARGS *)&desk );
if( !rsrc_init() ) {
form_alert( 1, "[3][ RSC ERROR ][ OK ]" );
v_clsvwk( vhandle );
appl_exit();
exit( -1 );
}
wind_init();
evnt_init();
/*
* Main event loop
*/
do {
event = Evnt_multi( ev_mask, ev_clicks, ev_bmask, ev_bstate,
&ev_m1, &ev_m2, ( WORD *)msg, ev_time,
&mrets, ( WORD *)&key, ( WORD *)&nclicks );
wind_update( BEG_UPDATE );
/*
* call pre-event-processing hook
*/
if( evnt_hook( event, msg, &mrets, &key, &nclicks ) )
continue;
/* Dispatch events.
* It is possible to get more than one event at a time, so if the
* order of event handling is important to you, change the order
* in which they're handled here.
*/
if( event & MU_TIMER )
do_timer( &event );
if( event & MU_KEYBD )
do_key( mrets.kstate, key, &event );
if( event & MU_BUTTON )
do_button( &mrets, nclicks, &event );
if( event & MU_M1 )
do_m1( &mrets, &event );
if( event & MU_M2 )
do_m2( &mrets, &event );
if( event & MU_MESAG )
switch( msg[0] ) {
case MN_SELECTED:
do_menu( msg, &event );
break;
case WM_REDRAW:
case WM_TOPPED:
case WM_CLOSED:
case WM_FULLED:
case WM_ARROWED:
case WM_HSLID:
case WM_VSLID:
case WM_SIZED:
case WM_MOVED:
case WM_NEWTOP:
do_windows( msg, &event );
break;
case AC_OPEN:
acc_open( msg );
break;
case AC_CLOSE:
acc_close( msg );
break;
default:
msg_hook( msg, &event );
} /* switch */
/* MU_MESAG */
wind_update( END_UPDATE );
/*
* Event handling routines zero out the event variable
* to exit the application.
*/
} while( event );
gem_exit( 0 );
}
/* *** Beim GEM anmelden *** */
int initGEM(void)
{
int rgb[3];
int work_in[12], work_out[57]; /* VDI-Felder */
int i, ap_id;
ap_id=appl_init();
if(ap_id==-1) return(-1);
if(aesversion>=0x400) /* Wenn m�glich einen Namen anmelden */
menu_register(ap_id, " STed\0\0\0\0");
graf_mouse(ARROW, 0L); /* Maus als Pfeil */
if( !rsrc_load("sted.rsc") )
{
form_alert(1, "[3][Could not|load <sted.rsc>][Cancel]");
appl_exit();
return(-1);
}
rsrc_gaddr(R_TREE, MAINMENU, &menu); /* Adresse holen */
rsrc_gaddr(R_TREE, ABOUTSED, &aboutdlg);
rsrc_gaddr(R_TREE, LDATDIA, &lvdatdlg);
#ifdef RESTRIC_STED
lvdatdlg[LVLTYP].ob_flags |= HIDETREE;
lvdatdlg[LVLTYP].ob_flags &= ~EDITABLE;
lvdatdlg[LVLTYPT1].ob_flags |= HIDETREE;
lvdatdlg[LVLTYPT2].ob_flags |= HIDETREE;
lvdatdlg[LVLID].ob_flags |= HIDETREE;
lvdatdlg[LVLID].ob_flags &= ~EDITABLE;
lvdatdlg[LVLIDT1].ob_flags |= HIDETREE;
#endif
wind_get(0, WF_WORKXYWH, &deskx, &desky, &deskw, &deskh); /* Desktopgr��e */
vhndl=graf_handle(&i, &i, &i, &i);
for(i=0; i<10; i++) work_in[i]=1;
work_in[10]=2;
v_opnvwk(work_in, &vhndl, work_out); /* VDI-Station �ffnen */
vq_extnd(vhndl, 1, work_out);
bipp=work_out[4]; /* Bits pro Bitplane ermitteln */
if(bipp>8)
{
form_alert(1, "[3][Sorry, STed only works|in 16 and 256 colors!][Ok]");
v_clsvwk(vhndl); rsrc_free(); appl_exit();
return(-1);
}
menu_bar(menu, 1); /* Men� darstellen */
for(i=0; i<15; i++) /* Alte Farben sichern */
{
vq_color(vhndl, i, 1, rgb);
oldpal[i][0]=rgb[0];
oldpal[i][1]=rgb[1];
oldpal[i][2]=rgb[2];
}
setpal(newpal); /* Neue Farben setzen */
return(0);
}
GemInit()
{
int work_in[11];
int i;
int dev_id;
int work_out[57];
appl_init();
if( gl_apid == -1 )
return(4);
/* Make Alice compatible with the fine Atari GDOS */
dev_id = Getrez() + 2;
gem_handle = graf_handle( &gl_wchar, &gl_hchar, &gl_wbox, &gl_hbox );
vdi_handle = gem_handle;
/*
* Open the Virtual Workstation
*/
for( i=1; i<10; i++ ) work_in[i] = 1;
work_in[0] = dev_id;
work_in[10] = 2; /* Raster coords */
v_opnvwk( work_in, &vdi_handle, work_out );
scr_area.g_w = work_out[0] + 1;
scr_area.g_h = work_out[1] + 1;
scr_area.g_x = 0;
scr_area.g_y = 0;
if( (scr_area.g_w / gl_wchar) < 70 )
LoRes = TRUE;
#ifdef EMBEDDED_RCS
rsc_fix();
#else
if( !rsrc_load( "ALICE.RSC" ) ) {
form_alert( 1, LDS( 375,
"[3][Fatal Error !|ALICE.RSC must be|in current directory][ Abort ]"));
v_clsvwk( vdi_handle );
appl_exit();
exit( 1 );
}
#endif EMBEDDED_RCS
#ifndef SAI
/*
* Set up the menu bar
*/
rsrc_gaddr( R_TREE, MENU, &gl_menu );
if( LoRes ) {
ShortenMenu( gl_menu );
FixBar( gl_menu );
}
menu_bar( gl_menu, TRUE );
#endif SAI
/*
* Set the mouse to an arrow, and end the update
*/
graf_mouse( ARROW, 0x0L );
resetVDI();
}
