home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / lang / pascal / 6811 < prev    next >
Encoding:
Text File  |  1992-11-21  |  2.3 KB  |  85 lines
  1. Newsgroups: comp.lang.pascal
  2. Path: sparky!uunet!zaphod.mps.ohio-state.edu!sol.ctr.columbia.edu!destroyer!cs.ubc.ca!newsserver.sfu.ca!sfu.ca!dedmunds
  3. From: dedmunds@selkirk.sfu.ca (Darran Edmundson)
  4. Subject: write me a TV interface
  5. Message-ID: <dedmunds.722413771@sfu.ca>
  6. Sender: news@sfu.ca
  7. Organization: Simon Fraser University, Burnaby, B.C., Canada
  8. Date: Sun, 22 Nov 1992 06:29:31 GMT
  9. Lines: 74
  10.  
  11. Some time ago I wrote a code in TP5.5 for creating .fli animations from
  12. raw binary files.  All the pertinent parameters are currently constants
  13. in the header of my source so that I change their values and recompile
  14. before running. 
  15.  
  16. Could I entice someone to write a TV front end for my code?  Basically
  17. it would be a simple menu for setting these parameter values (which
  18. would now become global variables). 
  19.  
  20. Here are my current constants to give you some idea:
  21.  
  22.      fli_color= 11;
  23.      fli_lc=    12;
  24.      fli_black= 13;
  25.      fli_brun=  15;
  26.      fli_copy=  16;
  27.  
  28.  
  29. { raw data file have the name format concat(file_body, index, "-",
  30.   number, file_ext) where index and number are string versions of indexing
  31.   integers.  The sequence starts at number first_file and then increments
  32.   by file_step (example:  v3-151.bin is the 151st image of the 3rd view).}
  33.  
  34.      file_body= 'v';
  35.      file_ext= '.bin';
  36.      first_file= 1;
  37.      file_step= 1;
  38.  
  39.      views= 1;
  40.      output_file= 'dskc-23.fli';
  41.      color_file= 'colors.map';
  42.      mplot_xt_file= 'm2-xt.grd';
  43.      mplot_x3_file= 'm2-x3.grd';
  44.  
  45.      colres= 320;
  46.      rowres= 200;
  47.      magic= 44817;
  48.      frames= 50;
  49.      speed= 8;
  50.  
  51.      mplot_xt= true;             { plot xt momentum from mplot_xt_file  }
  52.      mxwidth_xt= 128;
  53.      mywidth_xt= 43;
  54.      mxoff_xt= 110;
  55.      myoff_xt= 111;
  56.      mfile_xt_block= 14;
  57.  
  58.      mplot_x3= false;             { plot x3 momentum from mplot_x3_file  }
  59.      mxwidth_x3= 43;
  60.      mywidth_x3= 64;
  61.      mxoff_x3= 45;
  62.      myoff_x3= 29;
  63.      mfile_x3_block= 8;
  64.  
  65.      mposcolor= 35;
  66.      mnegcolor= 175;
  67.      mlinecolor= 50;
  68.  
  69.      fli_buffer_size= 32768;    { 32kb flush buffer for output file        }
  70.      no_compress_size= 64000;   { a raw copy, no compression               }
  71.      bad_compress= 60000;   
  72.      frame_header_size= 16;
  73.      color_chunk_size= 778;    
  74.      chunk_header_size= 6;
  75.      line_compress= true;
  76.      border= true; 
  77.      border_color= 50;
  78.  
  79.  
  80. -- 
  81.  
  82. Darran Edmundson
  83. darran@chaos.phys.sfu.ca
  84.  
  85.