void exit_rsrc( void )
{
delete_menu();
if( vdi_handle != -1 )
{
if (gl_gdos)
vst_unload_fonts(vdi_handle, 0);
v_clsvwk(vdi_handle);
}
}
/* -------------- */
int load_font_in(char *font_path, int font_nr)
{
register int f_handle;
register long len;
register fontform *fnt_mem, *search;
f_handle = Fopen(font_path, 0);
if (f_handle > 0)
{
len = Fseek(0L, f_handle, 2);
Fseek(0L, f_handle, 0);
pic_sub += len + 4;
if (pic_sub & 1)
{
pic_sub--;
*(long *)(mtext_mem + mtext_mlen - pic_sub) = len + 1;
}
else
*(long *)(mtext_mem + mtext_mlen - pic_sub) = len;
fnt_mem = (fontform *)(mtext_mem + mtext_mlen - pic_sub + 4);
Fread(f_handle, len, fnt_mem);
Fclose(f_handle);
if ((long)fnt_point[akt_id] > 0)
vst_unload_fonts(vdi_handle, 1);
if ((long)fnt_point[akt_id] > 0)
fnt_mem[0].next = fnt_point[akt_id];
else
fnt_mem[0].next = 0;
fnt_point[akt_id] = fnt_mem;
fnt_mem[0].id = 99;
fnt_mem[0].ch_ofst = (int *)((long)fnt_mem[0].ch_ofst + (long)fnt_mem);
fnt_mem[0].fnt_dta = (int *)((long)fnt_mem[0].fnt_dta + (long)fnt_mem);
remove_font(font_nr);
fnt_mem = fnt_point[akt_id];
fnt_mem[0].id = font_nr;
inst_font();
return(1);
}
return(0);
}
/*! Initialization and main loop */
void main(void) {
int evnt, quit = FALSE, flacc = FALSE;
MFDB img;
/* Initialiser */
if(initial("BIG2DEMO.RSC", MENU, BUREAU, NUM_TREE,
TRINDEX, FRSTR, NB_FENETRES, TITREACC)) {
if(_app) set_bimg(); /* Set image on the desk */
ptr_fonctions();
set_form();
load_fontspeedo();
if(work_display.n_color >= 16) /* if we are in color mode */
relief();
aide_en_ligne = K_CTRL; /* Help-bubble with Control key */
do {
if((_app == ZERO) &&(NOT flacc)) {
acc_loop();
flacc = TRUE;
} /* we are running as an accessory */
evnt = dialog(DLG_DESK, adr_desk, TRUE, TRUE, PU_LIBRE, &img, FALSE);
if(evnt & MU_MESAG)
event_mesag(&flacc, &quit);
if((evnt & MU_BUTTON) &&(buf[0] == BEV_FREEPU))
event_freepu();
if((evnt & MU_BUTTON) &&(buf[0] == BEV_WFORM))
event_wform();
if((evnt & MU_BUTTON) &&(buf[0] == BEV_WMENU))
event_wmenu(&flacc);
if((evnt & MU_BUTTON) &&(buf[0] == BEV_WHIER))
event_whier();
if((evnt & MU_BUTTON) &&(buf[0] == BEV_TOOL))
event_tool();
if((evnt & MU_BUTTON) &&(NOT wind_find(mx, my)))
event_desk();
} while(NOT quit);
if(fgdos)
vst_unload_fonts(work_display.handle, 0);
end();
} /* init OK */
} /* end of main */
/* ------------------------------------------------------------------ */
static void choose_font(void)
{
OBJECT *loading;
int cx, cy, cw, ch;
bool is_prn;
is_prn = (form_alert( 1, "[0][select device][screen|printer]" )==2);
dprintf(( "\033Hselected %s workstation\n", is_prn? "printer": "screen" ));
if( init_wkstn( is_prn ) ) {
graf_mouse(BUSY_BEE, 0);
dprintf(( "ready to load fonts ... " )); dgetchar();
rsrc_gaddr( R_TREE, LDGFONTS, &loading );
form_center( loading, &cx, &cy, &cw, &ch);
form_dial(FMD_START, 0, 0, 0, 0, cx, cy, cw, ch);
objc_draw( loading, ROOT, MAX_DEPTH, cx, cy, cw, ch);
(void)vst_load_fonts(handle, 0);
form_dial( FMD_FINISH, 0, 0, 0, 0, cx, cy, cw, ch );
dprintf(( "\033Hdone\nnow getting font names ..." )); dgetchar();
if( get_fontnames( *(tGemFont **)(&_contrl[10]) ) ) {
dprintf(( "done\n" )); dgetchar();
graf_mouse(ARROW, 0);
while( select_font( is_prn ) ) {
if( iSelected == NO_INDEX ) {
form_alert( 1, "[1][You must choose|a font to dump][Try Again]" );
}
else if( gem_file_name[0] == '\0' ) {
form_alert( 1, "[1][You must choose a|"
"gem font file name][Try Again]" );
}
else {
dump_font();
gem_file_name[0] = '\0'; /* reset entries for next round */
iSelected = NO_INDEX;
} /* if */
} /* while */
} /* if */
vst_unload_fonts(handle, 0);
free(name_table);
dprintf(( "\033Hclosing %s workstation ...", is_prn? "printer": "screen" ));
if( is_prn ) v_clswk(handle);
else v_clsvwk(handle);
}
else form_alert(1, "[3][Can't open workstation][OK]");
} /* choose_font() */
/* ------------------------------------- */
void leave_prg(void)
{
register int i;
if (off_flag)
graf_mouse(M_ON, 0L);
if (fnt_point[akt_id])
vst_unload_fonts(vdi_handle, 1);
for (i = 0; i < 5; i++)
kb_rec[i + 2] = old_kb[i];
cls_vwork();
appl_exit();
}
/*******************************************************
* load fonts for device
* get font chain and dump fonts (width table only) in current directory
*/
static void dump_gem_fonts( int16 dev_nr )
{
const tGemFont *pgf; /* pointer to the font chain */
int16 handle;
char *err_msg;
register tGemFont *phdr; /* pointer to font we are making */
char *const gempath = ((void**)pInfo)[-1];
FILE *fp;
int xdial,ydial,wdial,hdial; /* co-ords for dialog box */
int x,y,w,h;
handle = init_wkstn( dev_nr ); /* open the workstation */
if( handle == 0 ) {
sprintf( err_string, "[3][can't connect to %s][skip]", dev_nr>10? "printer": "screen" );
form_alert(1, err_string );
return;
} /* if */
if( vst_load_fonts( handle, 0 ) == 0 ) {
sprintf( err_string, "[3][can't find fonts for %s][skip]", dev_nr>10? "printer": "screen" );
goto error0;
} /* if */
pgf = *(tGemFont **)(&_contrl[10]); /* get pointer to font chain */
save[dev_nr].pw->first_font = gem_font_count;
/******************
* loop thru font chain,
* writing a new font file for each font found in the chain
* count the fonts so we can assign them to the workstations
* this can take quite a while, so report progress as we go
*/
form_center (&rs_object,&xdial,&ydial,&wdial,&hdial);
x=y=w=h=0;
form_dial (FMD_START,x,y,w,h,xdial,ydial,wdial,hdial); /* reserve room */
for( ; pgf!=NULL; pgf=pgf->next_font ) {
const uint16 nr_entries = pgf->last_ade - pgf->first_ade + 1;
const uint32 size_wid = (nr_entries+1) * sizeof(int16); /* sizeof(*(tGemFont*)->off_table) */
register int16 *char_tbl;
register uint16 i;
/* printf( "line %d, %.32s, %d points\n", (int)__LINE__, pgf->name, pgf->size ); */
sprintf( usr_msg, "storing gem fonts: %d", gem_font_count );
objc_draw( &rs_object, 0, 2, xdial, ydial, wdial, hdial ); /* draw the dialog box */
phdr = (tGemFont*)malloc( sizeof(tGemFont) + size_wid );
if( phdr == NULL ) {
err_msg = "[3][Not enough memory|to dump font][OK]";
goto error1;
} /* if */
*phdr = *pgf; /* copy header data */
phdr->off_table = (int16*)sizeof(tGemFont);
memcpy( phdr+1, pgf->off_table, size_wid );
phdr->dat_table = 0L;
/** convert font to intel format before dumping **/
for( i = nr_entries+1, char_tbl = (int16*)(phdr+1); i > 0; i--, char_tbl++ ) {
Swapw(*char_tbl);
} /* for */
/* swap header words and longs */
phdr->flags &= ~MOT_FLAG;
Swapw(phdr->font_id); Swapw(phdr->size);
Swapw(phdr->first_ade); Swapw(phdr->last_ade);
Swapw(phdr->top); Swapw(phdr->ascent);
Swapw(phdr->half); Swapw(phdr->descent);
Swapw(phdr->bottom);
Swapw(phdr->max_char_width); Swapw(phdr->max_cell_width);
Swapw(phdr->left_offset); Swapw(phdr->right_offset);
Swapw(phdr->thicken); Swapw(phdr->ul_size);
Swapw(phdr->lighten); Swapw(phdr->skew);
Swapw(phdr->flags); Swapl(phdr->h_table);
Swapl(phdr->off_table); Swapl(phdr->dat_table);
Swapw(phdr->form_width); Swapw(phdr->form_height);
/* printf( "line %dn", (int)__LINE__); getchar(); */
FONT_FILE_NAME( gempath+pInfo->len_gem_path, gem_font_count );
fp = fopen( gempath, "wb" );
if( fp == NULL ) {
err_msg = "[3][can't open gem font file|%s][OK]";
goto error2;
} /* if */
/** write the font header **/
if( fwrite( phdr, sizeof( *phdr), 1, fp ) != 1 ) {
goto error3;
} /* if */
/** write the character offset table **/
if( fwrite( phdr+1, size_wid, 1, fp ) != 1 ) {
goto error3;
} /* if */
fclose( fp );
free( phdr );
gem_font_count++;
} /* for */
save[dev_nr].pw->nr_gemfonts = gem_font_count - save[dev_nr].pw->first_font;
(void)vst_unload_fonts( handle, 0 );
if( dev_nr>10 ) v_clswk(handle);
else v_clsvwk(handle);
form_dial( FMD_FINISH, x, y, w, h, xdial, ydial, wdial, hdial ); /* release its room */
return;
error3:
fclose(fp);
err_msg = "[3][can't write to gem font file|%s][OK]";
error2:
sprintf( err_string, err_msg, strerror(errno) );
free( phdr );
error1:
form_dial( FMD_FINISH, x, y, w, h, xdial, ydial, wdial, hdial ); /* release its room */
error0:
(void)vst_unload_fonts( handle, 0 );
if( dev_nr>10 ) v_clswk(handle);
else v_clsvwk(handle);
form_alert(1, err_string );
} /* dump_gem_fonts() */
int main(void)
{
int error;
#if _MINT_ /* HR 151102 */
have_ssystem = Ssystem(-1, 0, 0) == 0; /* HR 151102: use Ssystem where possible */
mint = (find_cookie('MiNT') == -1) ? FALSE : TRUE;
magx = (find_cookie('MagX') == -1) ? FALSE : TRUE; /* HR 151102 */
geneva = (find_cookie('Gnva') == -1) ? FALSE : TRUE; /* DjV 035 080203 */
mint |= magx; /* Quick & dirty */
if (mint)
{
Psigsetmask(0x7FFFE14EL);
Pdomain(1);
}
#endif
x_init();
if ((ap_id = appl_init()) < 0)
return -1;
if (_GemParBlk.glob.version >= 0x400)
{
shel_write(9, 1, 0, NULL, NULL);
menu_register(ap_id, " Tera Desktop");
}
if (rsrc_load(RSRCNAME) == 0)
form_alert(1, msg_resnfnd);
else
{
if ((error = init_xdialog(&vdi_handle, malloc, free,
"Tera Desktop", 1, &nfonts)) < 0)
xform_error(error);
else
{
init_vdi();
rsc_init();
if (((max_w / screen_info.fnt_w) < 40) || ((max_h / screen_info.fnt_h) < 25))
alert_printf(1, MRESTLOW);
else
{
if ((error = alloc_global_memory()) == 0)
{
if (exec_deskbat() == FALSE)
{
if (load_icons() == FALSE)
{
if (init() == FALSE)
{
graf_mouse(ARROW, NULL);
evntloop();
wd_del_all();
menu_bar(menu, 0);
xw_close_desk();
}
free_icons(); /* HR 151102 */
wind_set(0, WF_NEWDESK, NULL, 0);
dsk_draw();
}
}
Mfree(global_memory);
}
else
xform_error(error);
}
if (vq_gdos() != 0)
vst_unload_fonts(vdi_handle, 0);
exit_xdialog();
}
rsrc_free();
}
/* DjV 013 030103 100203 ---vvv--- */
/*
* The following section handles system shutdown and resolution change
* If a resolution change is required, shutdown is performed first
* If only shutdown s required, system will reset at the end.
*/
/* appl_exit(); */
if ( chrez || shutdown ) /* If change resolution or shutdown ... */
{
/* Tell all applications which would understand it to end */
quit = shel_write ( 4, 2, 0, NULL, NULL ); /* complete shutdown */
evnt_timer( 3000, 0 ); /* Wait a bit? */
/*
/*
* In Mint, must tell all proceseses to terminate nicely ?
* but this is only in this group ? What to do?
*/
Pkill(0, SIGTERM);
evnt_timer(3000, 0); /* Wait a bit? */
*/
/*
* After all applications have hopefully been closed,
* change the screen resolution if needed;
* else- reset the computer
*/
if ( chrez )
get_set_video(2);
#if 1
else
#if _MINT_
if (!mint) /* HR 230203: Dont reset under MiNT or MagiC !!!!! */
#endif
{
/* Perform a reset here */
#if 0 /* with warnings */
long *m; /* to memory locations */
long rv; /* reset vector */
Super ( 0L ); /* Supervisor; old stack won't be needed again */
*(m = 0x420L) = 0L; /* memctrl */
*(m = 0x43aL) = 0L; /* memval2 */
*(m = 0x426L) = 0L; /* resvalid */
m = *( m = 0x4f2 ); /* to start of OS */
rv = *(m + 4); /* to routine that handles the reset */
Supexec(rv); /* execute it */
#else /* HR: without warnings */
long (*rv)(); /* reset vector */
Super ( 0L ); /* Supervisor; old stack won't be needed again */
memctrl = 0L;
memval2 = 0L;
resvalid = 0L;
(long)rv = *((long *)os_start + 4); /* routine that handles the reset */
Supexec(rv); /* execute it */
#endif
}
#endif
}
int print_image(MFDB *raster, INFO_IMAGE *in_info)
{
GEM_WINDOW *wprog = NULL ;
DLGDATA dlg_data ;
DLGPRINTER_USER_DATA dlg_user_data ;
GEM_WINDOW *dlg ;
MFDB src ;
float sizex, sizey ;
float ptpx, ptpy ;
int pintin[256], pintout[256] ;
int xyarray[4] ;
int print_handle ;
int i, xoffset, yoffset ;
int bouton ;
int dither_mono, print_color ;
char *filename = dlg_user_data.filename ;
char *c ;
char buffer[200] ;
char nom[30] ;
if ( !Gdos ) return(PNOGDOS) ;
if ( !printer_init ) scan_drivers() ;
if ( nb_drivers <= 0 ) return( PNODRIVER ) ;
memset( &dlg_user_data, 0, sizeof(DLGPRINTER_USER_DATA) ) ;
if ( raster ) memcpy( &dlg_user_data.raster, raster, sizeof(MFDB) ) ;
if ( in_info ) memcpy( &dlg_user_data.info, in_info, sizeof(INFO_IMAGE) ) ;
while ( dlg_user_data.raster.fd_w == 0 )
{
strcpy( buffer, filename ) ;
c = strrchr( buffer, '\\' ) ;
if ( c ) *c = 0 ;
strcat( buffer, "\\*.*" ) ;
if ( file_name( buffer, "", buffer ) == 1 )
{
INFO_IMAGE inf ;
strcpy( dlg_user_data.filename, buffer ) ;
if ( img_format(dlg_user_data.filename, &inf) == 0 )
{
memcpy(&dlg_user_data.info, &inf, sizeof(INFO_IMAGE)) ;
memset(&dlg_user_data.raster, 0, sizeof(MFDB)) ;
dlg_user_data.raster.fd_w = inf.largeur ;
dlg_user_data.raster.fd_h = inf.hauteur ;
dlg_user_data.raster.fd_nplanes = inf.nplans ;
dlg_user_data.raster.fd_wdwidth = dlg_user_data.raster.fd_w/16 ;
if (dlg_user_data.raster.fd_w % 16) dlg_user_data.raster.fd_wdwidth++ ;
}
}
else return(PCANCEL) ;
}
memset( &dlg_data, 0, sizeof(DLGDATA) ) ;
dlg_data.RsrcId = FORM_PRINT ;
dlg_data.UserData = &dlg_user_data ;
dlg_data.ExtensionSize = 0 ; /* Sera alloue par OnInitPrinterDialog */
dlg_data.OnInitDialog = OnInitPrinterDialog ;
dlg_data.OnObjectNotify = OnObjectNotifyPrinterDialog ;
dlg_data.OnCloseDialog = OnClosePrinterDialog ;
dlg = GWCreateDialog( &dlg_data ) ;
bouton = GWDoModal( dlg, PRINT_XPC ) ;
if ( bouton == IDCANCEL ) return( PCANCEL ) ;
printer_index = dlg_user_data.printer_index ;
type_index = dlg_user_data.type_index ;
if ( dlg_user_data.filename[0] )
{
INFO_IMAGE inf ;
int analyse = img_analyse ;
img_analyse = 0 ;
if ( img_format( dlg_user_data.filename, &inf ) == 0 )
{
memcpy(&dlg_user_data.info, &inf, sizeof(INFO_IMAGE)) ;
src.fd_nplanes = -1 ; /* Conserver le nombre de plans */
Force16BitsLoad = 0 ;
wprog = DisplayStdProg( msg[MSG_LOADINGIMG], "", dlg_user_data.filename, 0 ) ;
if ( load_picture( dlg_user_data.filename, &src, &inf, wprog ) != 0 )
{
GWDestroyWindow( wprog ) ;
img_analyse = analyse ;
return(PCANCEL) ;
}
StdProgWText( wprog, 1, "" ) ;
}
else
{
img_analyse = analyse ;
return( PCANCEL ) ;
}
img_analyse = analyse ;
GWDestroyWindow( wprog ) ;
wprog = NULL ;
}
else
memcpy( &src, &dlg_user_data.raster, sizeof(MFDB) ) ;
pintin[0] = id[dlg_user_data.printer_index] ;
if ((pintin[0] < 21) || (pintin[0] > 30)) return( PNOHANDLE ) ;
for (i = 1; i < 10; i++) pintin[i] = 1 ;
pintin[10] = 2 ;
v_opnwk( pintin, &print_handle, pintout ) ;
if ( print_handle <= 0 ) return(PNOHANDLE) ;
ptpx = (float)pintout[3] ; /* Largeur d'un point imprimante en microns */
ptpy = (float)pintout[4] ; /* Hauteur d'un point imprimante en microns */
wprog = DisplayStdProg( "", "", "", CLOSER ) ;
dither_mono = (dlg_user_data.type_index == 1) && (src.fd_nplanes > 1) ;
print_color = (dlg_user_data.type_index == 0) ;
if ( dither_mono ) /* Mode noir et blanc */
{
MFDB virtuel ;
int pc_x, pc_y ;
StdProgWText( wprog, 0, msg[MSG_DITHER] ) ;
virtuel.fd_nplanes = 1 ;
if ( dlg_user_data.rotate90 )
pc_x = (int) (dlg_user_data.xpc*(float)dlg_user_data.info.lpix/ptpy) ;
else
pc_x = (int) (dlg_user_data.xpc*(float)dlg_user_data.info.lpix/ptpx) ;
if ( dlg_user_data.rotate90 )
pc_y = (int) (dlg_user_data.ypc*(float)dlg_user_data.info.hpix/ptpx) ;
else
pc_y = (int) (dlg_user_data.ypc*(float)dlg_user_data.info.hpix/ptpy) ;
mouse_busy() ;
if ( dither_ratio(&src, &dlg_user_data.info, &virtuel, pc_x, pc_y, wprog ) == -1 )
{
if ( dlg_user_data.filename[0] )
{
free( src.fd_addr ) ;
if ( dlg_user_data.filename[0] && dlg_user_data.info.palette ) free( dlg_user_data.info.palette ) ;
}
mouse_restore() ;
GWDestroyWindow( wprog ) ;
v_clswk( print_handle ) ;
return( PROTERR ) ;
}
wprog->ProgPc( wprog, 0, NULL ) ;
mouse_restore() ;
if ( dlg_user_data.filename[0] ) free( src.fd_addr ) ;
memcpy( &src, &virtuel, sizeof(MFDB) ) ;
}
if ( dlg_user_data.rotate90 )
{
MFDB virtuel ;
StdProgWText( wprog, 0, msg[MSG_ROTATING] ) ;
mouse_busy() ;
if ( raster_r90( &src, &virtuel, wprog ) != 0 )
{
if ( dither_mono || dlg_user_data.filename[0] ) free( src.fd_addr ) ;
if ( dlg_user_data.filename[0] && dlg_user_data.info.palette ) free( dlg_user_data.info.palette ) ;
mouse_restore() ;
GWDestroyWindow( wprog ) ;
v_clswk( print_handle ) ;
return( PROTERR ) ;
}
mouse_restore() ;
if ( dither_mono || dlg_user_data.filename[0] ) free(src.fd_addr ) ;
memcpy( &src, &virtuel, sizeof(MFDB) ) ;
}
sizex = (float)src.fd_w*(float)dlg_user_data.info.lpix*dlg_user_data.xpc/100.0 ;
sizey = (float)src.fd_h*(float)dlg_user_data.info.hpix*dlg_user_data.ypc/100.0 ;
sizex /= 10000.0 ;
sizey /= 10000.0 ;
if ( !print_color )
{
StdProgWText( wprog, 0, msg[MSG_DOGDOSIMG] ) ;
strcpy(nom, "VSCRAP.IMG") ;
if ( img_sauve( nom, &src, &dlg_user_data.info, wprog ) )
{
if ( dither_mono || dlg_user_data.filename[0] || dlg_user_data.rotate90 ) free( src.fd_addr ) ;
if ( dlg_user_data.filename[0] && dlg_user_data.info.palette ) free( dlg_user_data.info.palette ) ;
GWDestroyWindow( wprog ) ;
v_clswk( print_handle ) ;
return( PWRITERR ) ;
}
}
else
{
INFO_IMAGE new_info ;
MFDB new_img ;
memcpy( &new_info, &dlg_user_data.info, sizeof(INFO_IMAGE) ) ;
memcpy( &new_img, &src, sizeof(MFDB) ) ;
if ( new_img.fd_nplanes <= 8 )
{
new_info.nb_cpal = 0 ;
new_info.palette = NULL ;
new_info.nplans = 16 ;
new_img.fd_addr = NULL ;
new_img.fd_nplanes = 16 ;
StdProgWText( wprog, 0, msg[MSG_DOGDOSIMG] ) ;
if ( index2truecolor( &src, &dlg_user_data.info, &new_img, wprog ) != 0 )
{
if ( dither_mono || dlg_user_data.filename[0] || dlg_user_data.rotate90 ) free( src.fd_addr ) ;
if ( dlg_user_data.filename[0] && dlg_user_data.info.palette ) free( dlg_user_data.info.palette ) ;
v_clswk( print_handle ) ;
GWDestroyWindow( wprog ) ;
return( PWRITERR ) ;
}
}
strcpy( nom, "VSCRAP.TGA" ) ;
if ( targa_sauve( nom, &new_img, &new_info, wprog ) )
{
if ( dither_mono || dlg_user_data.filename[0] || dlg_user_data.rotate90 ) free( src.fd_addr ) ;
if ( dlg_user_data.filename[0] && dlg_user_data.info.palette ) free( dlg_user_data.info.palette ) ;
v_clswk( print_handle ) ;
GWDestroyWindow( wprog ) ;
return( PWRITERR ) ;
}
if ( src.fd_nplanes <= 8 ) free( new_img.fd_addr ) ;
}
if ( dither_mono || dlg_user_data.filename[0] || dlg_user_data.rotate90 ) free( src.fd_addr ) ;
if ( dlg_user_data.filename[0] && dlg_user_data.info.palette ) free( dlg_user_data.info.palette ) ;
StdProgWText( wprog, 0, msg[MSG_PRINTING] ) ;
vst_unload_fonts( handle, 0 ) ;
xoffset = (int) (10000.0*dlg_user_data.posx/ptpx) ;
yoffset = (int) (10000.0*dlg_user_data.posy/ptpy) ;
xyarray[0] = xoffset ;
xyarray[1] = yoffset ;
xyarray[2] = xoffset+(int) (10000.0*sizex/ptpx) ;
xyarray[3] = yoffset+(int) (10000.0*sizey/ptpy) ;
mouse_busy() ;
vs_page_info(print_handle, APPL, MENU_NAME) ;
vs_page_info(print_handle, DOC, nom) ;
vs_page_info(print_handle, CREAT, "") ;
vs_page_info(print_handle, REM, "Thanks to Thierry Rodolfo !" ) ;
if (dither_mono)
v_bit_image(print_handle, nom, 0, INTEGER, INTEGER, 0, 0, xyarray) ;
else
v_bit_image(print_handle, nom, 0, FRACTIONAL, FRACTIONAL, 0, 0, xyarray) ;
v_updwk(print_handle) ;
v_clrwk(print_handle) ;
v_clswk(print_handle) ;
vst_load_fonts(handle, 0) ;
mouse_restore() ;
unlink(nom) ;
GWDestroyWindow( wprog ) ;
return( 0 ) ;
}
