home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 202.lha / SoundScape / LatticeExamples / movie.c < prev    next >
Encoding:
C/C++ Source or Header  |  1988-12-28  |  13.2 KB  |  379 lines
  1. /*      MOVIE.C        Animation Queue Sheet generator 
  2.  
  3.         (c) 1986 Todor Fay 
  4.  
  5.         This program takes a composed track and computes a score chart 
  6.         for the first 16 tracks, with events marked every frame. 
  7.     Link this with lib/sslink.obj.
  8. */ 
  9.  
  10. #include "exec/types.h" 
  11. #include "exec/exec.h" 
  12. #include "libraries/dos.h" 
  13. #include "intuition/intuition.h" 
  14. #include "soundscape.h" 
  15. #include "modules/tapedeck.h" 
  16.  
  17. /*      This program installs itself in the SoundScape environment, 
  18.         so it needs to have an icon.  The following data describes 
  19.         an image of a short piece of film: 
  20. */ 
  21.  
  22. UWORD filmdata[] = {        /* 36 x 17 */ 
  23. 0,        0,        0,         
  24. 14844,        15985,        49152,         
  25. 392,        7800,        0,         
  26. 377,        15960,        0,         
  27. 14655,        65273,        49152,         
  28. 303,        65272,        0,         
  29. 0,        0,        0,         
  30. 14844,        15993,        49152,         
  31. 392,        7792,        0,         
  32. 377,        15992,        0,         
  33. 14655,        65241,        49152,         
  34. 303,        65272,        0,         
  35. 0,        0,        0,         
  36. 14844,        15993,        49152,         
  37. 392,        7800,        0,         
  38. 377,        15984,        0,         
  39. 14655,        65273,        49152,         
  40. 65535,        65535,        61440,         
  41. 50688,        646,        12288,         
  42. 65136,        663,        61440,         
  43. 65167,        62119,        61440,         
  44. 50703,        45574,        12288,         
  45. 65031,        49671,        63488,         
  46. 65535,        65535,        64512,         
  47. 50688,        646,        15360,         
  48. 65136,        647,        64512,         
  49. 65167,        62103,        64512,         
  50. 50703,        12838,        14336,         
  51. 65031,        49671,        61440,         
  52. 65535,        65535,        61440,         
  53. 50688,        646,        12288,         
  54. 65136,        647,        61440,         
  55. 65167,        62087,        61440,         
  56. 50703,        29206,        12288,         
  57. }; 
  58.  
  59. struct Image filmimage =  
  60.     {  0,0,36,17,2,&filmdata[0],3,0,0,        }; 
  61.  
  62. struct IntuiText filmtext[] = { 
  63.     {  2,0,JAM2,-32,0,0,"CPS",0        }, 
  64.     {  2,0,JAM2,-48,0,0,"Start",0        }, 
  65.     {  2,0,JAM2,-48,0,0,"Count",0        }, 
  66.     {  3,0,JAM2,0,20,0,"Do it",0        }, 
  67. }; 
  68.  
  69. struct StringInfo filminfo[] = { 
  70.     {  "60\0   ",0,0,6,0,0,0,0,0,0,0,0,0,        }, 
  71.     {  "0\0    ",0,0,6,0,0,0,0,0,0,0,0,0,        }, 
  72.     {  "1\0    ",0,0,6,0,0,0,0,0,0,0,0,0,        }, 
  73. }; 
  74.  
  75. short box[] = { 0,0,52,0,52,10,0,10,0,0 }; 
  76.  
  77. struct Border gadgetborder = { -2,-2,3,0,JAM2,5,&box[0],0 }; 
  78.  
  79. struct Gadget filmgadgets[] = { 
  80.     {   0,60,15,48,8, 
  81.         GADGHCOMP,GADGIMMEDIATE | RELVERIFY | LONGINT, STRGADGET, 
  82.         &gadgetborder,0,&filmtext[0],0,&filminfo[0],0,0,  }, 
  83.     {   &filmgadgets[0],60,25,48,8, 
  84.         GADGHCOMP,GADGIMMEDIATE | RELVERIFY | LONGINT, STRGADGET, 
  85.         &gadgetborder,0,&filmtext[1],0,&filminfo[1],1,0,  }, 
  86.     {   &filmgadgets[1],60,35,48,8, 
  87.         GADGHCOMP,GADGIMMEDIATE | RELVERIFY | LONGINT, STRGADGET, 
  88.         &gadgetborder,0,&filmtext[2],0,&filminfo[2],2,0,  }, 
  89.     {   &filmgadgets[2],120,15,36,30, 
  90.         GADGHCOMP | GADGIMAGE,GADGIMMEDIATE | RELVERIFY, BOOLGADGET, 
  91.         &filmimage,0,&filmtext[3],0,0,3,0,  }, 
  92. }; 
  93.  
  94. struct NewWindow filmwindow = { 
  95.         0,0,190,50,2,1,GADGETUP | CLOSEWINDOW, 
  96.         WINDOWCLOSE | WINDOWDRAG | ACTIVATE | WINDOWDEPTH | SMART_REFRESH | WINDOWSIZING, 
  97.         &filmgadgets[3],0," Film Score ",0,0,40,20,0,0,WBENCHSCREEN 
  98. }; 
  99.  
  100. static char outbuff[100]; 
  101. char printit = 0; 
  102.  
  103. linedone() 
  104.  
  105. /*      When a line is ready to print, run through it and strip out all 
  106.         the nulls that were generated by the integer to character conversions. 
  107.         Then, put a null back after the last number, so only this much of the 
  108.         line will be printed. 
  109. */ 
  110.  
  111. { 
  112.     short i; 
  113.     short last = 0; 
  114.     for (i=0; i<80; i++) { 
  115.         if (!outbuff[i]) { 
  116.             outbuff[i] = ' '; 
  117.             last = i; 
  118.         } 
  119.     } 
  120.     outbuff[last] = 0; 
  121. } 
  122.  
  123. newline(time) 
  124.  
  125. /*      Prepare the buffer for a new line by clearing it and putting 
  126.         the time in seconds and frames at the start of it. 
  127.         'stcu_d' is the Lattice decimal integer to ascii routine. 
  128. */ 
  129.  
  130. long time; 
  131.  
  132. { 
  133.     short i; 
  134.     setmem(outbuff,80,' '); 
  135.     stcu_d(outbuff,(time / 24),10); 
  136.     i = strlen(outbuff); 
  137.     outbuff[i] = ':'; 
  138.     stcu_d(&outbuff[i + 2],(time % 24),10); 
  139. } 
  140.  
  141. outcode(note) 
  142.  
  143. /*      This routine is called by SoundScape whenver there is a note for 
  144.         this device.   
  145.         We want to take the note and stick its value in outbuff, positioned 
  146.         by the MIDI channel.   
  147.         If note off event (the velocity is 0), ignore it. 
  148. */ 
  149.  
  150. struct Note *note; 
  151.  
  152. { 
  153.     short channel = note->status & 0x0F; 
  154.     unsigned char stat = note->status & 0xF0; 
  155.     if (note->velocity) { 
  156.         stcu_d(&outbuff[(channel * 4) + 10],note->value,4); 
  157.     } 
  158.     FreeNode(note);         /* Return the note to SoundScape. */ 
  159. }    
  160.  
  161. opencode(direction) 
  162.  
  163. /*      You must provide code for SoundScape to open your port (AddMidiPort 
  164.         installs it, but doesn`t activate it.) 
  165.         Each port handles both input and output, or one or the other. 
  166.         Direction says which one to open. 
  167.         In this case, we don't have anything to do, just return TRUE. 
  168.         An example where opencode would do something would be if your 
  169.         output port involved a display window.  Opencode(0) would instruct 
  170.         you to open that window.  Closecode(0) would instruct you to close 
  171.         it.         
  172. */ 
  173.  
  174. char direction; 
  175.  
  176. { 
  177.     return(1); 
  178. } 
  179.  
  180. closecode(direction) 
  181.  
  182. char direction; 
  183.  
  184. { 
  185.     return(1); 
  186. } 
  187.  
  188. editcode(direction,command,buffer) 
  189.  
  190. /*      We aren't providing any of the edit options.  However, should somebody 
  191.         wish to edit the state, let them know the size is 0. 
  192. */ 
  193.  
  194. char direction, command; 
  195. long buffer[]; 
  196.  
  197. { 
  198.     buffer[0] = 0; 
  199.     return(0); 
  200. } 
  201.  
  202. long SoundScapeBase, IntuitionBase; 
  203.  
  204. main() { 
  205.     long time = 0; 
  206.     short linecount = 0; 
  207.     long frames = 0; 
  208.     long oldframes = 0; 
  209.     long startpoint = 0; 
  210.     long stoppoint = 24; 
  211.     long framesleft; 
  212.     long clockspersecond = 60; 
  213.     short page; 
  214.     long file; 
  215.     char filename[40]; 
  216.     char pagestring[10]; 
  217.     struct Window *window; 
  218.     static char tracktop[] = "\n\nTime      <----------------------- Tracks ----------------------------->\n"; 
  219.     static char pagetop[] = "Sec:Frame 1   2   3   4   5   6   7   8   9   10  11  12  13  14  15  16\n\n"; 
  220.     static char tabs[] = "\t\t\t\t    page "; 
  221.     char carriagereturn = '\n'; 
  222.     char formfeed = 12; 
  223.     struct IntuiMessage *message; 
  224.     struct Note *note; 
  225.     struct Track *track; 
  226.     struct TapeState ts; 
  227.     short i; 
  228.     short thisport; 
  229.     struct Gadget *gadget; 
  230.     IntuitionBase = OpenLibrary("intuition.library",0); 
  231.     SoundScapeBase = OpenLibrary("soundscape.library",0); 
  232.     if (!SoundScapeBase) { 
  233.         CloseLibrary(IntuitionBase); 
  234.         return; 
  235.     } 
  236.     window = OpenWindow(&filmwindow); 
  237.     if (!window) { 
  238.         CloseLibrary(IntuitionBase); 
  239.         CloseLibrary(SoundScapeBase); 
  240.         return; 
  241.     } 
  242. /*      Add this port to the system.  We specify a desired port id of -1, 
  243.         in other words any port.  */ 
  244.     thisport = AddMidiPort(opencode,closecode,editcode,outcode, 
  245.         &filmimage,&filmimage,-1,"Animator's Helper"); 
  246. /*      Open this port.  Though our opencode does nothing, SoundScape will. */ 
  247.     OpenMidiPort(thisport,0); 
  248.     OpenMidiPort(thisport,1); 
  249. /*      Open the tape deck. */ 
  250.     OpenMidiPort(6,0); 
  251.     filename[0] = 0; 
  252.     for(;;) { 
  253.         while (message = (struct IntuiMessage *) GetMsg(window->UserPort))  
  254.             ReplyMsg(message); 
  255.         while (!(message = (struct IntuiMessage *) GetMsg(window->UserPort))) 
  256.             WaitPort(window->UserPort); 
  257.         if (message->Class == CLOSEWINDOW) break; 
  258.         gadget = message->IAddress; 
  259.         ReplyMsg(message); 
  260.         switch (gadget->GadgetID) { 
  261.             case 0 : 
  262.                 clockspersecond = filminfo[0].LongInt; 
  263.                 break; 
  264.             case 1 : 
  265.                 startpoint = (filminfo[1].LongInt * 24); 
  266.                 break; 
  267.             case 2 : 
  268.                 stoppoint = (filminfo[2].LongInt * 24); 
  269.                 break; 
  270.             case 3 :                /* Do it. */ 
  271.                 time = (startpoint * clockspersecond) / 24; 
  272. /*      Get the tape deck state. */ 
  273.                 EditMidiPort(6,0,2,&ts); 
  274. /*      Release the tracks. */ 
  275.                 FreeTree(ts.toptrack); 
  276. /*      Set them to 0. */ 
  277.                 ts.toptrack = ts.activetrack = 0; 
  278.                 ts.trackname[0] = 0; 
  279.                 EditMidiPort(6,0,3,&ts); 
  280. /*      Read in a new set of tracks (the song). */ 
  281.                 ts.toptrack = ts.activetrack = ReadList(TRACK,ts.trackname); 
  282. /*      Give the tape deck this song and set the timer and punch points. */ 
  283.                 ts.td_timer = time; 
  284.                 ts.punchin = ts.punchout = 0; 
  285.                 EditMidiPort(6,0,3,&ts); 
  286. /*      If there was no song, leave. */ 
  287.                 if (!ts.toptrack) break; 
  288. /*      Get the name of the file to save to. Template is .film  */ 
  289.                 WriteFileName(filename,"Film File","film"); 
  290. /*      If the user selected QUIT, filename[0] is 0. */ 
  291.                 if (!filename[0]) break; 
  292.                 file = Open(filename,MODE_NEWFILE); 
  293.                 if (!file) break; 
  294. /*      Put in the top of page information. */ 
  295.                 Write(file,ts.trackname,strlen(ts.trackname)); 
  296.                 Write(file,tabs,strlen(tabs)); 
  297.                 page = 1; 
  298.                 stcu_d(pagestring,page,10); 
  299.                 Write(file,pagestring,strlen(pagestring)); 
  300.                 Write(file,tracktop,strlen(tracktop)); 
  301.                 Write(file,pagetop,strlen(pagetop)); 
  302.                 i = 0; 
  303. /*      Set the first 16 tracks to send to this port and each one has  
  304.         its own MIDI channel. */ 
  305.                 for (track = ts.toptrack; i < 16; i++ ) { 
  306.                     if (!track) break; 
  307.                     track->channelout = i; 
  308.                     track->portout = thisport; 
  309.                     track = track->link.next; 
  310.                 } 
  311. /*      Make sure the tape deck is STOPPED (or it won't START.) */ 
  312.                 note = AllocNode(NOTE); 
  313.                 note->status = STOP; 
  314.                 OutMidiPort(6,note); 
  315. /*      Fast forward the tapedeck to where we want to start. */ 
  316.                 note = AllocNode(NOTE); 
  317.                 note->status = SONGPOSITION; 
  318. /*      MIDI Song position is clocks divided by 6. */ 
  319.                 i = time / 6; 
  320.                 note->value = i & 0x7F; 
  321.                 note->velocity = (i >> 7) & 0x7F; 
  322. /*      But internally, SoundScape lets you include the mod 6. */ 
  323.                 note->duration = time % 6; 
  324.                 OutMidiPort(6,note); 
  325. /*      Tell the tapedeck to start playing from this point. */ 
  326.                 note = AllocNode(NOTE); 
  327.                 note->status = CONTINUE; 
  328.                 OutMidiPort(6,note); 
  329.                 frames = startpoint; 
  330.                 framesleft = stoppoint; 
  331.                  oldframes = frames; 
  332.                 newline(frames); 
  333.                 linecount = 0; 
  334.                 while (framesleft) { 
  335.                     oldframes = frames; 
  336.                     frames = (time * 24) / clockspersecond; 
  337. /*      Send a clock pulse.  As soon as it goes out, the tape deck, which runs 
  338.         at a higher priority, will call outcode for each of the notes it is 
  339.         ready to send at this point in time. */ 
  340.                     note = AllocNode(NOTE); 
  341.                     note->status = CLOCK; 
  342.                     OutMidiPort(6,note); 
  343. /*      All events for this MIDI click should be in outbuff now. 
  344.         See if we've done enough to move to a new frame. */ 
  345.                     if (frames != oldframes) { 
  346. /*      New frame.  Print this one, then prepare for the next. */ 
  347.                         framesleft--; 
  348.                         linedone(); 
  349.                         Write(file,outbuff,strlen(outbuff)); 
  350.                         Write(file,&carriagereturn,1); 
  351.                         if (++linecount == 48) { 
  352.                             if (!framesleft) break; 
  353.                             page++; 
  354.                             linecount = 0; 
  355.                             Write(file,&formfeed,1); 
  356.                             Write(file,ts.trackname,strlen(ts.trackname)); 
  357.                             Write(file,tabs,strlen(tabs)); 
  358.                             stcu_d(pagestring,page,10); 
  359.                             Write(file,pagestring,strlen(pagestring)); 
  360.                             Write(file,tracktop,strlen(tracktop)); 
  361.                             Write(file,pagetop,strlen(pagetop)); 
  362.                         } 
  363. /*      Delay so the low priority task that prints the tape deck counter 
  364.         has a chance to do so. */ 
  365.                         Delay(2); 
  366.                         newline(frames); 
  367.                     } 
  368.                     time++; 
  369.                 } 
  370.                 Close(file); 
  371.                 break; 
  372.         } 
  373.     } 
  374.     CloseWindow(window); 
  375.     RemoveMidiPort(thisport); 
  376.     CloseLibrary(SoundScapeBase); 
  377.     CloseLibrary(IntuitionBase); 
  378. } 
  379.