home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / musik / MIDIFP21 / SOURCES / MIDI_PRT / MAIN.C < prev    next >
Encoding:
C/C++ Source or Header  |  1996-12-08  |  22.7 KB  |  694 lines
  1. /**************************************************************
  2. *
  3. *                MAIN.C
  4. *
  5. **************************************************************/
  6.  
  7. #define MIN_ZOOM 1         /* minimum zooming factor */
  8. #define MAX_ZOOM 4         /* maximum zooming factor */
  9.  
  10. #include <acs.h>
  11. #include <acsplus.h>
  12. #include <tos.h>        /* because of Dgetpath(), ... */
  13. #include <string.h>     /* because of strrchr(), ... */
  14. #include <messages.pif>   /* for use of self-built library */
  15. #include <acs_plus.pif>   /* for use of self-built library */
  16. #include <diskfile.pif>   /* for use of self-built library */
  17. #include <notimtab.pif>   /* for use of self-built library */
  18.  
  19. Awindow *MAIN_constructor(void *not_used) ;
  20. void MAIN_destructor(Awindow *wi) ;
  21. static int cdecl draw(PARMBLK *parmblk) ;
  22.  
  23. #include "main.h"
  24. #include "main.ah"
  25. #include "printer\printer.pif"
  26. #include "drawer\drawer.pif"
  27. #include "params\params.pif"
  28. #include "filter\filter.pif"
  29. #include "info\info.pif"
  30.  
  31.  
  32. /*************** GLOBAL VARIABLES BEGIN **************************/
  33.  
  34. /*** VDI handle and parameters of virtual screen workstation ***/
  35. static int screen_handle ;  
  36. static int screen_in[11] ;
  37. static int screen_out[57] ;
  38. static int number_screen_fonts ;
  39. static FONT_INFO screen_font_info[MAX_FONTS] ;
  40.  
  41. /*** VDI handle and parameters of physical printer workstation ***/
  42. static int print_handle ;  
  43. static int print_in[11] ;
  44. static int print_out[57] ;
  45. static int number_print_fonts ;
  46.  
  47. /*** path where to search for files, for all instances together ***/
  48. static char path[pathname_length] ;
  49.  
  50. /*** counter for number of constructor calls ***/
  51. int incarnation_counter = 0 ;
  52.  
  53. /*************** GLOBAL VARIABLES END ****************************/
  54.  
  55. /************* OBJECT DATA PROTOTYPE BEGIN ***********************/
  56.  
  57. typedef struct 
  58. {
  59.     Awindow *params_wi, *filter_wi, *info_wi, *drawer_wi, *printer_wi ;
  60.     char filename[filename_length], pathname[pathname_length] ;      
  61.     void *RAM_file ;
  62.     long filesize ;
  63.     int zoom ;
  64. } 
  65. MAIN ;
  66.  
  67. /************* OBJECT DATA PROTOTYPE END *************************/
  68.  
  69.  
  70. /*******************************************************************
  71. */
  72.     static void keys(Awindow *wi, int kstate, int key)
  73. /*  
  74. *   Keyboard procedure of the main window, see also ACS manual.
  75. *   This procedure simply forwards events to the service procedure
  76. *   of the main window and to the ACS default kayboard procedure.
  77. *
  78. *******************************************************************/
  79. {
  80.     /*** treated not here, but in service procedure ***/
  81.     key_message.sender = wi ;
  82.     key_message.kstate = kstate ;
  83.     key_message.key    = key ;
  84.     Awi_sendall(KEY_PRESS, &key_message) ;
  85.  
  86.     /*** forward event to ACS for further treatment (e.g. by the desktop) ***/
  87.     Awi_keys(wi, kstate, key) ;
  88. }
  89.  
  90. /*******************************************************************
  91. */
  92.     static void zoom_plus(Awindow *wi)
  93. /*  
  94. *   Zoom in, adapt main window size and redraw.
  95. *
  96. *******************************************************************/
  97. {
  98. MAIN *m = wi->user ;
  99.  
  100.     if (m->zoom < MAX_ZOOM) 
  101.     {
  102.         m->zoom <<= 1 ;
  103.         (wi->work)->ob_height <<= 1 ; 
  104.         (wi->work + WORK_OBJ)->ob_height <<= 1 ; 
  105.         (wi->work)->ob_width <<= 1 ; 
  106.         (wi->work + WORK_OBJ)->ob_width <<= 1 ; 
  107.         Awi_sized( wi, &(wi->wi_act) ) ;
  108.         Awi_obchange(wi, WORK_OBJ, -1) ;
  109.     }
  110. }
  111.  
  112. /*******************************************************************
  113. */
  114.     static void zoom_minus(Awindow *wi)
  115. /*  
  116. *   Zoom out, adapt main window size and redraw.
  117. *
  118. *******************************************************************/
  119. {
  120. MAIN *m = wi->user ;
  121.  
  122.     if (m->zoom > MIN_ZOOM)  
  123.     {
  124.         m->zoom >>= 1 ;
  125.         (wi->work)->ob_height >>= 1 ; 
  126.         (wi->work + WORK_OBJ)->ob_height >>= 1 ; 
  127.         (wi->work)->ob_width >>= 1 ; 
  128.         (wi->work + WORK_OBJ)->ob_width >>= 1 ; 
  129.         Awi_sized( wi, &(wi->wi_act) ) ;
  130.         Awi_obchange(wi, WORK_OBJ, -1) ;
  131.     }
  132. }
  133.  
  134. /*******************************************************************
  135. */
  136.     static int sender_test(Awindow *wi, Awindow *sender)
  137. /*  
  138. *   Returns TRUE if the sender window belongs to the own 
  139. *   incarnation, FALSE else.
  140. *
  141. *******************************************************************/
  142. {
  143. MAIN *m = wi->user ;
  144.  
  145.     if ( (sender == m->info_wi) || (sender == m->filter_wi) ||
  146.          (sender == m->params_wi) || (sender == m->drawer_wi) ||
  147.          (sender == m->printer_wi) || (sender == wi) ) return TRUE ;
  148.     else return FALSE ;
  149. }
  150.  
  151. /*******************************************************************
  152. */
  153.     static int service(Awindow *wi, int task, void *in_out)
  154. /*  
  155. *   Service procedure of the main window, see also ACS manual.
  156. *
  157. *******************************************************************/
  158. {
  159. MAIN *m = wi->user ;
  160.  
  161.     switch (task)
  162.     {
  163.     /*** ACS generated messages ***/
  164.     case AS_INFO: A_dialog(&MAIN_INFO) ; break ;
  165.     case AS_TERM: 
  166.         if (appexit || (alert_str(QUIT, m->filename) == 1)) MAIN_destructor(wi) ; 
  167.         break ; 
  168.     /*** own messages ***/
  169.     case TERMINATE: 
  170.         if (appexit) return FALSE ; /* treated under AS_TERM */
  171.         if ( !sender_test(wi, (Awindow *)in_out) ) return FALSE ;
  172.         if (alert_str(QUIT, m->filename) == 1) MAIN_destructor(wi) ; 
  173.         break ;
  174.     case REDRAW:
  175.         if ( !sender_test(wi, (Awindow *)in_out) ) return FALSE ;
  176.            stop_timer(in_out) ; /* stop delayed redraw timer job */
  177.         redraw( m->drawer_wi ) ; /* redraw immediately */
  178.         break ;
  179.     case KEY_PRESS: 
  180.         if ( !sender_test(wi, ( (KEY_MESSAGE *)in_out )->sender) ) return FALSE ;
  181.          switch( ( ( (KEY_MESSAGE *)in_out )->key & 0xFF00) )
  182.         {
  183.         case 0x4E00: /* "+" pressed on num. block */
  184.         case 0x1B00: /* "+" pressed */ 
  185.             zoom_plus(wi) ;    break ;
  186.         case 0x4A00: /* "-" pressed on num. block */
  187.         case 0x3500: /* "-" pressed */
  188.             zoom_minus(wi) ; break ;
  189.         case 0x4800: /* arrow up pressed */
  190.             select_page(m->drawer_wi, first) ; break ;
  191.         case 0x5000: /* arrow down pressed */
  192.             select_page(m->drawer_wi, last) ; break ;
  193.         case 0x4B00: /* arrow left pressed */
  194.             select_page(m->drawer_wi, previous) ; break ;
  195.         case 0x4D00: /* arrow right pressed */
  196.             select_page(m->drawer_wi, next) ; break ;
  197.         }
  198.         break ;
  199.     case ZOOM_PLUS:  
  200.         if ( !sender_test(wi, (Awindow *)in_out) ) return FALSE ;
  201.         zoom_plus(wi) ;  
  202.         break ;
  203.     case ZOOM_MINUS: 
  204.         if ( !sender_test(wi, (Awindow *)in_out) ) return FALSE ;
  205.         zoom_minus(wi) ; 
  206.         break ;
  207.     default: return FALSE ;
  208.     }
  209.     return TRUE ;
  210. }
  211.  
  212.  
  213. /******************************************************************
  214. */ 
  215.     static int cdecl draw(PARMBLK *parmblk) 
  216. /*
  217. *    GEM drawing routine for the user defined 
  218. *    GEM object in the main window. 
  219. * 
  220. *******************************************************************/
  221. {
  222. MAIN *m = (MAIN *)parmblk->pb_parm ;
  223. int points[4] ;
  224.  
  225.     /*** set clipping rectangle ***/
  226.     points[0] = parmblk->pb_xc ; 
  227.     points[1] = parmblk->pb_yc ; 
  228.     points[2] = points[0] + parmblk->pb_wc - 1 ;
  229.     points[3] = points[1] + parmblk->pb_hc - 1 ;
  230.     vs_clip(screen_handle, 1, points) ;    
  231.  
  232.     /*** draw background ***/
  233.     vsf_color(screen_handle, WHITE) ;
  234.     vr_recfl(screen_handle, points) ;
  235.  
  236.     /*** draw note systems ***/
  237.     if (m->drawer_wi)
  238.         draw_page( screen_handle, m->drawer_wi, parmblk->pb_x, parmblk->pb_y, 
  239.                    points, m->zoom, get_current_page(m->drawer_wi) ) ;
  240.     /*** reset clipping ***/
  241.     vs_clip(screen_handle, 0, points) ;
  242.  
  243.     /*** return object state unchanged ***/
  244.     return(parmblk->pb_prevstate) ;          
  245. }
  246.  
  247.  
  248. /********************************************************************
  249. */
  250.     static void MAIN_destructor(Awindow *wi)
  251. /*
  252. *   Destructor of the MAIN object. It
  253. *   frees all memory used by ACS and own data instances.
  254. * 
  255. ********************************************************************/
  256. {
  257. MAIN *m ;
  258.  
  259.     /*** incarnation counter: here a work-around. ACS sends messages
  260.          to windows already deleted ?! ***/
  261.     if (wi && incarnation_counter) {
  262.         m = wi->user ;
  263.         if (m) {
  264.             /*** instances of sub-objects ***/
  265.             PRINTER_destructor(m->printer_wi) ;
  266.             DRAWER_destructor(m->drawer_wi) ;
  267.             PARAMS_destructor(m->params_wi) ;
  268.             FILTER_destructor(m->filter_wi) ;
  269.             INFO_destructor(m->info_wi) ;
  270.  
  271.             /*** own object instance ***/
  272.             if (m->RAM_file) unload_file(m->RAM_file) ;
  273.             memory_symptom = "MaDstr wi->user" ;
  274.             My_free(m) ; m = NULL ;
  275.         }
  276.         /*** own window ***/
  277.         memory_symptom = "MaDstr wi" ;
  278.         Awi_delete(wi) ;
  279.         incarnation_counter-- ;
  280.     }
  281. }
  282.  
  283.  
  284. /******************************************************************
  285. */
  286.     static Awindow *MAIN_constructor(void *MIDIfile)
  287. /*
  288. * Constructor of the MAIN window (incl. all sub-windows). 
  289. * 
  290. *******************************************************************/
  291. {
  292. Awindow *wi ;
  293. MAIN *m ;
  294. PRINTER_INIT printer_init ;
  295. DRAWER_INIT drawer_init ;
  296. PARAMS_INIT params_init ;
  297. FILTER_INIT filter_init ;
  298. INFO_INIT info_init ;
  299. char *buffer ;
  300.  
  301.     /*** allocate and init main structure ***/
  302.     m = My_alloc(sizeof *m) ;
  303.     if (!m) return NULL ;
  304.     m->params_wi = m->info_wi = m->drawer_wi = m->printer_wi = m->filter_wi = NULL ;
  305.     m->zoom = 2 ;
  306.  
  307.     /*** if call params. contain a valid filename, take them ***/
  308.     if ( MIDIfile && (ACSblk->argc > 1) )
  309.     {
  310.         strcpy(m->pathname, (char *)MIDIfile) ;
  311.         strcpy(path, (char *)MIDIfile) ;
  312.         buffer = strrchr(path, '\\') ;
  313.         if (!buffer)
  314.         {
  315.             /*** no "\" ==> no valid path ***/
  316.             alert_str(CALL_INVALID, (char *)MIDIfile) ;
  317.             memory_symptom = "MaCstr no slash" ;
  318.             My_free(m) ; return NULL ;
  319.         }
  320.         strcpy(m->filename, buffer + 1) ;
  321.         /*** take away file name and append searching mask "*.MID" */
  322.         buffer[1] = 0 ;
  323.         strcat(path, "*.MID") ;
  324.     }
  325.     /*** else have the program user selected a MIDI file ***/
  326.     else switch ( get_file_name(m->pathname, path, m->filename, 
  327.                                 "Select MIDI file:") ) 
  328.         {
  329.         case no_file_selected: 
  330.             memory_symptom = "MaCstr no f. sel." ;
  331.             My_free(m) ; return NULL ; 
  332.         case file_select_error: 
  333.             memory_symptom = "MaCstr f.sel.err." ;
  334.             My_free(m) ; alert_str(FILE_SELECT_ERROR, "") ; return NULL ;
  335.         }
  336.     /*** load the selected file into RAM ***/
  337.     if ( load_file(m->pathname, &m->filesize, &m->RAM_file) != file_loaded )
  338.     { 
  339.         memory_symptom = "MaCstr load_file" ;
  340.         My_free(m) ; return NULL ; 
  341.     }
  342.     /*** choose icon color ***/
  343.     switch (incarnation_counter % 3)
  344.     {
  345.     case 0:
  346.         MAIN_WINDOW.iconblk = &MAIN_ICON0 ;
  347.         info_init.icon =      &INFO_ICON0 ;
  348.         filter_init.icon =    &FILTER_ICON0 ;
  349.         drawer_init.icon =    &DRAWER_ICON0 ;
  350.         params_init.icon =    &PARAMS_ICON0 ;
  351.         printer_init.icon =   &PRINTER_ICON0 ;
  352.         break ;
  353.     case 1:
  354.         MAIN_WINDOW.iconblk = &MAIN_ICON1 ;
  355.         info_init.icon =      &INFO_ICON1 ;
  356.         filter_init.icon =    &FILTER_ICON1 ;
  357.         drawer_init.icon =    &DRAWER_ICON1 ;
  358.         params_init.icon =    &PARAMS_ICON1 ;
  359.         printer_init.icon =   &PRINTER_ICON1 ;
  360.         break ;
  361.     default:
  362.         MAIN_WINDOW.iconblk = &MAIN_ICON2 ;
  363.         info_init.icon =      &INFO_ICON2 ;
  364.         filter_init.icon =    &FILTER_ICON2 ;
  365.         drawer_init.icon =    &DRAWER_ICON2 ;
  366.         params_init.icon =    &PARAMS_ICON2 ;
  367.         printer_init.icon =   &PRINTER_ICON2 ;
  368.     }
  369.     /*** enter filename into icon text and pathname into window info line ***/
  370.     MAIN_WINDOW.iconblk->monoblk.ib_ptext = m->filename ;
  371.     MAIN_WINDOW.name = m->pathname ;
  372.  
  373.     /*** create the MAIN window ***/
  374.     wi = Awi_create(&MAIN_WINDOW) ;
  375.     if (!wi) 
  376.     { 
  377.         memory_symptom = "MaCstr unload_file" ; 
  378.         unload_file(m->RAM_file) ;
  379.         memory_symptom = "MaCstr wi==NULL" ;
  380.         My_free(m) ; 
  381.         return NULL ; 
  382.     }
  383.     incarnation_counter ++ ;
  384.     wi->user = m ;
  385.     /*** set user def. object width and height ***/
  386.     (wi->work)->ob_height = (wi->work + WORK_OBJ)->ob_height = 
  387.       m->zoom * screen_out[1] ;
  388.     if (print_handle)
  389.         (wi->work)->ob_width = (wi->work + WORK_OBJ)->ob_width = m->zoom 
  390.         * ( (long)screen_out[1] * print_out[0]/print_out[1] * print_out[3]/print_out[4]) ;
  391.     else (wi->work)->ob_width = (wi->work + WORK_OBJ)->ob_width = 
  392.           (float)(m->zoom) * screen_out[1] / 1.41 ;
  393.     /*** INFO object sub-constructor ***/
  394.     info_init.filename = m->filename ;
  395.     info_init.RAM_file = m->RAM_file ;
  396.     info_init.filesize = m->filesize ;
  397.     m->info_wi = INFO_constructor(&info_init) ;
  398.     if (!m->info_wi) { MAIN_destructor(wi) ; return NULL ; }
  399.     if ( get_SMPTE(m->info_wi) ) alert_str(NO_SMPTE, "") ;
  400.     else
  401.     {
  402.         /*** FILTER object sub-constructor ***/
  403.         filter_init.filename = m->filename ;
  404.         filter_init.RAM_file = m->RAM_file ;
  405.         filter_init.filesize = m->filesize ;
  406.         filter_init.ntrks = get_number_of_tracks(m->info_wi) ;
  407.         filter_init.track_filter = on ;
  408.         filter_init.channel_filter = all_channels_on ;
  409.         m->filter_wi = FILTER_constructor(&filter_init) ;
  410.         if (!m->filter_wi) { MAIN_destructor(wi) ; return NULL ; }
  411.         /*** now total transformed size can be displayed in info window ***/
  412.         set_transformed_size( m->info_wi, get_transformed_size(m->filter_wi) ) ;    
  413.  
  414.         /*** PARAMS object sub-constructor ***/
  415.         params_init.filename = m->filename ;
  416.         params_init.path = path ;
  417.         params_init.handle = screen_handle ;
  418.         params_init.font_info = screen_font_info ;
  419.         params_init.number_fonts = number_screen_fonts ;
  420.         m->params_wi = PARAMS_constructor(¶ms_init) ;
  421.         if (!m->params_wi) { MAIN_destructor(wi) ; return NULL ; }
  422.         /*** DRAWER object sub-constructor ***/
  423.         drawer_init.filename = m->filename ;
  424.         drawer_init.handle = screen_handle ;
  425.         drawer_init.obj_wi = wi ;
  426.         drawer_init.obj = WORK_OBJ ;
  427.         drawer_init.width  = (wi->work)->ob_width  / m->zoom ;
  428.         drawer_init.height = (wi->work)->ob_height / m->zoom  ;
  429.         drawer_init.params_window = m->params_wi ;    
  430.         drawer_init.filter_window = m->filter_wi ;    
  431.         drawer_init.info_window = m->info_wi ;
  432.         m->drawer_wi = DRAWER_constructor(&drawer_init) ;
  433.         if (!m->drawer_wi) { MAIN_destructor(wi) ; return NULL ; }
  434.         /*** PRINTER object sub-constructor ***/
  435.         if ( vq_gdos() )
  436.         {
  437.             printer_init.filename = m->filename ;
  438.             printer_init.path = path ;
  439.             printer_init.screen_handle = screen_handle ;
  440.             printer_init.screen_width  = drawer_init.width ;
  441.             printer_init.screen_height = drawer_init.height ;
  442.             printer_init.print_handle = print_handle ;
  443.             printer_init.print_width  = print_out[0] + 1 ;
  444.             printer_init.print_height = print_out[1] + 1 ;
  445.             printer_init.drawer_window = m->drawer_wi ;
  446.             m->printer_wi = PRINTER_constructor(&printer_init) ;
  447.             if (!m->printer_wi) { MAIN_destructor(wi) ; return NULL ; }
  448.         }
  449.     }
  450.     /*** in any case file is no longer needed in RAM ***/
  451.     unload_file(m->RAM_file) ; m->RAM_file = NULL ;
  452.  
  453.     /*** userdef drawing routines called by AES need access to MAIN ***/ 
  454.     wi->work[WORK_OBJ].ob_spec.userblk->ub_parm = (long)m ;
  455.  
  456.     /*** return success message ***/
  457.     return wi ;
  458. }
  459.  
  460.  
  461.  
  462. /********************************************************************
  463. *
  464. *         ACS routines
  465. *
  466. ********************************************************************/
  467.  
  468.  
  469. /*******************************************************************
  470. */
  471.     static void aboutme(void) { A_dialog(&ABOUT_ME) ; }
  472. /*
  473. *   replaces the ACS default info with my own info message.
  474. * 
  475. *******************************************************************/
  476.  
  477. /*******************************************************************
  478. */
  479.     static void close(void)
  480. /*
  481. *   is called if the program user has selected the "exit"
  482. *   button in the menu of the desktop. After consolidation
  483. *   via alert box, clean up is performed.
  484. * 
  485. *******************************************************************/
  486. {
  487.     if (alert_str(QUIT_ALL, "") == 1) 
  488.     {
  489.         /*** only for debugging: ***/
  490.         /*print_operations() ;*/
  491.         /*** ACS termination procedure ***/
  492.         Aev_quit() ;
  493.     }
  494. }
  495.  
  496. /*******************************************************************
  497. */
  498.     static void terminate(void)
  499. /*
  500. *   subtitutes the ACSterm procedure. It cleans up VDI.
  501. * 
  502. *******************************************************************/
  503. {
  504.     /*** close virtual screen workstation ***/
  505.     if (screen_handle) 
  506.     {
  507.         if ( vq_gdos() ) vst_unload_fonts(screen_handle, 0) ;
  508.         v_clsvwk(screen_handle) ;
  509.     }
  510.     /*** close physical workstation for printer ***/
  511.     if (print_handle) 
  512.     {
  513.         if ( vq_gdos() ) vst_unload_fonts(print_handle, 0) ;    
  514.         v_clswk(print_handle) ;
  515.     }
  516. }
  517.  
  518.  
  519. /*******************************************************************
  520. */
  521.     int ACSinit(void)
  522. /*
  523. *   is called once in the start-up of ACS. See also ACS manual.
  524. * 
  525. *   OUTPUT: screen_handle:      virtual VDI workstation for screen
  526. *           screen_out[]:       parameters of screen workstation
  527. *           screen_font_info[]: info about GDOS fonts for screen
  528. *           print_handle:       physical VDI workstation for printer
  529. *           print_out[]:        parameters of printer workstation
  530. *           path[]:             initialized to the path where 
  531. *                               this program was started from
  532. *           ACSblk->ACSaboutme: overwritten with "aboutme"
  533. *           ACSblk->ACSclose:   overwritten with "close"
  534. *           ACSblk->ACSterm:    overwritten with "term"
  535. *           ACSblk->DEBUG_MEM:  overwritten with "debug_mem"
  536. * 
  537. *******************************************************************/
  538. {
  539. Awindow *wi ;
  540. unsigned int i,j,k, idbuffer ;
  541. int rgb[3] ; /* red green blue */
  542. char buffer[80] ; 
  543.  
  544.     /*** replace "about me" procedure ***/
  545.     ACSblk->ACSaboutme = aboutme ;
  546.  
  547.     /*** own click routine for "exit" button ***/
  548.     ACSblk->ACSclose = close ;
  549.  
  550.     /*** own termination procedure ***/
  551.     ACSblk->ACSterm = terminate ;
  552.  
  553.     /*** memory watcher ***/    
  554.     ACSblk->DEBUG_MEM = debug_mem ;
  555.  
  556.     /*** double click to "new" will result in a jump to "MAIN_constructor()" ***/
  557.     wi = Awi_root() ;
  558.     if (!wi) return FAIL ;
  559.     wi->service(wi, AS_NEWCALL, &MAIN_WINDOW.create) ;
  560.  
  561.     /*** open 1 virtual workstation for the screen ***/
  562.     for ( i = 0 ; i <= 8 ; i++ ) screen_in[i] = 1 ; 
  563.     screen_in[9] = 0 ; screen_in[10] = RC ; 
  564.     screen_handle = phys_handle ;  /* physical screen handle of ACS */
  565.     v_opnvwk(screen_in, &screen_handle, screen_out) ;
  566.     if (!screen_handle)    { alert_str(NO_SCREEN_WORKSTATION, "") ; return FAIL ; }
  567.  
  568.     /*** load screen fonts ***/
  569.     if ( vq_gdos() ) number_screen_fonts = screen_out[10] + vst_load_fonts(screen_handle, 0) ;
  570.     else number_screen_fonts = 1 ;
  571.     if ( number_screen_fonts > MAX_FONTS ) number_screen_fonts = MAX_FONTS ;
  572.     for ( i = 0 ; i < number_screen_fonts ; i++ )
  573.     {
  574.         idbuffer = vqt_name(screen_handle, i + 1, buffer) ;
  575.         buffer[32] = 0 ;
  576.         for ( j = 0 ; j < i ; j++ )
  577.         {
  578.             k = i ; /* destination index for new font */
  579.             if ( strcmp(buffer, screen_font_info[j].font_name) < 0 )
  580.             {
  581.                 for ( ; k > j ; k-- )
  582.                 {             
  583.                     strcpy(screen_font_info[k].font_name, screen_font_info[k-1].font_name) ;
  584.                     screen_font_info[k].font_id = screen_font_info[k-1].font_id ;
  585.                 }
  586.                 j = i ; /* break */
  587.             }
  588.         }
  589.         strcpy(screen_font_info[k].font_name, buffer) ;
  590.         screen_font_info[k].font_id = idbuffer ;
  591.     }
  592.     /*** open printer workstation and load fonts ***/
  593.     if ( vq_gdos() )
  594.     {
  595.         /*** open physical workstation for the printer ***/
  596.         print_in[0] = 21 ; /* first printer driver of assign.sys */
  597.         for ( i = 1 ; i <= 8 ; i++ ) print_in[i] = 1 ; 
  598.         print_in[9] = 0 ; print_in[10] = RC ; 
  599.         v_opnwk(print_in, &print_handle, print_out) ;
  600.         if (print_handle)
  601.         {
  602.             /*** at least 16 colors, no true color ***/
  603.             if (print_out[39] >= 16)
  604.             {
  605.                 /*** set palette to Atari standard screen palette ***/
  606.                 rgb[0] = 1000 ; rgb[1] = 1000 ; rgb[2] = 1000 ; vs_color(print_handle, 0, rgb) ;
  607.                 rgb[0] =    0 ; rgb[1] =    0 ; rgb[2] =    0 ; vs_color(print_handle, 1, rgb) ;
  608.                 rgb[0] = 1000 ; rgb[1] =    0 ; rgb[2] =    0 ; vs_color(print_handle, 2, rgb) ;
  609.                 rgb[0] =    0 ; rgb[1] = 1000 ; rgb[2] =    0 ; vs_color(print_handle, 3, rgb) ;
  610.                 rgb[0] =    0 ; rgb[1] =    0 ; rgb[2] = 1000 ; vs_color(print_handle, 4, rgb) ;
  611.                 rgb[0] =    0 ; rgb[1] = 1000 ; rgb[2] = 1000 ; vs_color(print_handle, 5, rgb) ;
  612.                 rgb[0] = 1000 ; rgb[1] = 1000 ; rgb[2] =    0 ; vs_color(print_handle, 6, rgb) ;
  613.                 rgb[0] = 1000 ; rgb[1] =    0 ; rgb[2] = 1000 ; vs_color(print_handle, 7, rgb) ;
  614.                 rgb[0] =  800 ; rgb[1] =  800 ; rgb[2] =  800 ; vs_color(print_handle, 8, rgb) ;
  615.                 rgb[0] =  500 ; rgb[1] =  500 ; rgb[2] =  500 ; vs_color(print_handle, 9, rgb) ;
  616.                 rgb[0] =  500 ; rgb[1] =    0 ; rgb[2] =    0 ; vs_color(print_handle, 10, rgb) ;
  617.                 rgb[0] =    0 ; rgb[1] =  500 ; rgb[2] =    0 ; vs_color(print_handle, 11, rgb) ;
  618.                 rgb[0] =    0 ; rgb[1] =    0 ; rgb[2] =  500 ; vs_color(print_handle, 12, rgb) ;
  619.                 rgb[0] =    0 ; rgb[1] =  500 ; rgb[2] =  500 ; vs_color(print_handle, 13, rgb) ;
  620.                 rgb[0] =  500 ; rgb[1] =  500 ; rgb[2] =    0 ; vs_color(print_handle, 14, rgb) ;
  621.                 rgb[0] =  500 ; rgb[1] =    0 ; rgb[2] =  500 ; vs_color(print_handle, 15, rgb) ;
  622.             }
  623.             number_print_fonts = print_out[10] + vst_load_fonts(print_handle, 0) ;
  624.         }
  625.         else alert_str(PRINTING_NOT_POSSIBLE, "") ;
  626.     }
  627.     else alert_str( NO_GDOS, "") ;
  628.  
  629.     /*** get actual path for file searching ***/
  630.     strcpy(path, apppath) ;
  631.     strcat(path, "*.MID") ;     /* append mask for searching */
  632.     
  633.     /*** init timer management ***/
  634.     init_time() ;
  635.     
  636.     /*** call already now if a file name has been given ***/
  637.     for (i = 1 ; i < ACSblk->argc ; i ++) MAIN_constructor(ACSblk->argv[i]) ;
  638.     return OK ;
  639. }
  640.  
  641.  
  642. /*******************************************************************
  643. */
  644.     int ACSinit0(void)
  645. /*
  646. *   "ACSinit0" is called once very early in the start-up of ACS. 
  647. *   See also ACS manual.
  648. *
  649. * INPUT:   _01_BACKGND_?:       my own background objects for the 
  650. *                               ACS desktop
  651. *          DESK_MENU:           my own menu line 
  652. *          NEW/TRASH:           my own icons
  653. *          MAIN_window.create   create routine of the main window
  654. *          DESKTOP:             desktop of ACS
  655. *          multitask            indicates if multitasking is active
  656. *          application          indicates programm or accessory
  657. * 
  658. * OUTPUT:  ACS default desktop objects replaced by own objects
  659. * 
  660. *******************************************************************/
  661. {
  662.     /*** replace desktop background object ***/
  663.     if ( multitask || !application )
  664.     {
  665.         _01_BACKGND_2.ob_width = _01_BACKGND_16.ob_width = desk.w/2 ;
  666.         _01_BACKGND_2.ob_height = _01_BACKGND_16.ob_height = desk.h/2 ;
  667.     }
  668.     else
  669.     {
  670.         _01_BACKGND_2.ob_width = _01_BACKGND_16.ob_width = desk.w ;
  671.         _01_BACKGND_2.ob_height = _01_BACKGND_16.ob_height = desk.h ;
  672.     }
  673.     if (ncolors >= 16) DESKTOP.service(NULL, AS_BACKOBJECT, &_01_BACKGND_16) ;
  674.     else DESKTOP.service(NULL, AS_BACKOBJECT, &_01_BACKGND_2) ;
  675.  
  676.     /*** replace desktop menu ***/
  677.     DESKTOP.menu = &DESK_MENU ;
  678.  
  679.     /*** adapt menu entries to propgram type ***/
  680.     if (application && !multitask) DESKTOP.menu[ABOUTME].ob_flags |= HIDETREE ; 
  681.     if (!application) DESKTOP.menu[_EXIT].ob_state |= DISABLED ; 
  682.  
  683.     /*** replace "trash" and "new" icon ***/
  684.     DESKTOP.service(NULL, AS_ICONNEW,   &NEW  ) ;
  685.     DESKTOP.service(NULL, AS_ICONTRASH, &TRASH) ;
  686.  
  687.     /*** replace window title ***/
  688.     DESKTOP.name = " Mad Harry's Midi File Printer " ;
  689.  
  690.     /*** always OK ***/
  691.     return OK ;
  692. }
  693.  
  694.