Jump to content

Photo

music synthesizer available?


17 replies to this topic

#1 notwhoyouthink OFFLINE  

notwhoyouthink

    Star Raider

  • 68 posts

Posted Mon Jul 17, 2017 1:01 AM

I am looking for a program identified by the ti994a software directory as "708042A MUSIC SYNTHESIZER"

It looks like it was originally a cassette program.

If anyone could upload this, that would be great.



#2 Ksarul OFFLINE  

Ksarul

    River Patroller

  • 4,126 posts

Posted Mon Jul 17, 2017 5:27 AM

I suspect that was a program in the old International User's Group software library (and later part of the Amnion Software Library). Goodly parts of that archive have made it online, though I'm not sure if the programs from the music section did.



#3 ti99iuc OFFLINE  

ti99iuc

    Stargunner

  • 1,190 posts
  • Location:Italy

Posted Mon Jul 17, 2017 6:49 AM

There is also a Music Synthesizer from Asgard Software and from Norton Software.

 

I should have the Norton Software one but need some days for Dump it because i am not too much at home in these days.



#4 Sinphaltimus ONLINE  

Sinphaltimus

    Stargunner

  • 1,921 posts
  • Distracted at the Keyboard
  • Location:Poconos, PA

Posted Mon Jul 17, 2017 7:12 AM

For Asgard Music program I found one here on WHTtech

./emulators/pc99/pc99 dsk collection/Vendors/Asgard/MUSICPRO.ZIP

 

Not sure if that's the music synth program but I'd be very interested in seeing this music synth program as well.
 



#5 mizapf OFFLINE  

mizapf

    River Patroller

  • 2,507 posts
  • Location:Germany

Posted Mon Jul 17, 2017 8:24 AM

./emulators/pc99/pc99 dsk collection/Vendors/Asgard/MUSICPRO.ZIP

 

Blanks are evil ... bad to select / copy / paste, illegal in a URL. I suppose we should - some day - think about renaming some folders.



#6 Sinphaltimus ONLINE  

Sinphaltimus

    Stargunner

  • 1,921 posts
  • Distracted at the Keyboard
  • Location:Poconos, PA

Posted Mon Jul 17, 2017 8:39 AM

Oh, I just grabbed that from the site index.txt

LINK



#7 --- Ω --- OFFLINE  

--- Ω ---

    .....................

  • 10,361 posts
  • TI-99/4A Fanatic
  • Location:In the den playing with my FinalGROM 99!

Posted Mon Jul 17, 2017 8:39 AM

 

Blanks are evil ... bad to select / copy / paste, illegal in a URL. I suppose we should - some day - think about renaming some folders.

 

I'm sure everything under the sun is there, but I have trouble finding things there, so as it's in dire need of a makeover, I agree with you.



#8 notwhoyouthink OFFLINE  

notwhoyouthink

    Star Raider

  • Topic Starter
  • 68 posts

Posted Mon Jul 17, 2017 11:00 AM

Been playing around, and i have rough image of minah to work with

In the B&W image, i have it divided into 8x8 segments, 13x11

The colored image shows how it may look with:

a light yellow screen,

black and trans for char colors,

and a light blue sprite strategically positioned to give color to the wing.

 

I realize sprites can not be this big, but i still think it will look good even as a static image on the ti.

Time to go study music processing on the ti.

Attached Files



#9 ti99iuc OFFLINE  

ti99iuc

    Stargunner

  • 1,190 posts
  • Location:Italy

Posted Mon Jul 17, 2017 2:36 PM

Reading with more attention the part linked in the first post it seems to be the Norton Software one.

 

Attached File  MusicSynthesizertext.jpg   68.07KB   2 downloads

 

if so, it is the box and parts of the docs

 

Attached File  2017-07-17_214104.jpg   46.74KB   2 downloads  Attached File  2017-07-17_214201.jpg   180.06KB   2 downloads  Attached File  2017-07-17_214219.jpg   55.59KB   2 downloads 

 

I really do not know if this versione and the asgard one are the same, anyway i found a scan of the Asgard version manual, i think it was Scanned by Ernie Pergrem.

 

Attached File  Music Synthesizer.pdf   21.9MB   7 downloads

 

If nobody will have the dumped program i will try to do within next weekend.



#10 Tursi OFFLINE  

Tursi

    River Patroller

  • 4,746 posts
  • HarmlessLion
  • Location:BUR

Posted Mon Jul 17, 2017 2:54 PM

I realize sprites can not be this big, but i still think it will look good even as a static image on the ti.

 

True, but you can have sprites up to 16x16 pixels, and four of them across on a single line. Your wing would only need two sprites for each line to do it :)



#11 notwhoyouthink OFFLINE  

notwhoyouthink

    Star Raider

  • Topic Starter
  • 68 posts

Posted Sun Jul 23, 2017 10:52 AM

I have the main graphic complete. The music is about 1/3 coded.

Preview included.

1 CALL CLEAR::CALL SCREEN(12)
210 FOR Z=13 TO 14::CALL COLOR(Z,6,2)::NEXT Z::FOR Z=1 TO 93::READ X,X$::CALL CHAR(X,X$)::NEXT Z
211 FOR Z=1 TO 6::READ U,V,W,X,Y::CALL SPRITE(#U,V,W,X,Y)::NEXT Z
500 DATA 46,"FFFFFFFFFFFFFF7F",47,"0000000000010307",48,"FFFF7F7F3F3F3F7F",49,"000000000000004"
510 DATA 50,"0000000000000101",51,"0000000000010103",52,"0000000000C0F0FC",53,"0000000000DCFCFC"
520 DATA 54,"0000000001010202",55,"0000000001030206",56,"000000001EFFFFFF",57,"000000008080C0F"
530 DATA 58,"000000010103060E",59,"00000080C0E07038",60,"0000C0C08",61,"00010303023E706"
540 DATA 62,"00031F7FFFFFFFFF",63,"00808080808",64,"0080C0E0E0F0FCFC",65,"0080C0E0F0F0F8FC"
550 DATA 66,"00F88F070200807B",67,"00FCFFFFFFFFFFFF",68,"01",69,"010180F0FCFFFFFF"
560 DATA 70,"0103078FDFFFFFFF",71,"0303020607070707",72,"03030706060C0C0C",73,"03816020001208C1"
570 DATA 74,"0400080800101",75,"0408000000F8FF0F",76,"0602E3FF1F1000C7",77,"0607030307FEF8E"
580 DATA 78,"060E9C98B0E0C0C",79,"07070F1F1F3F7FFF",80,"0C183070E0C08",81,"0E06070301"
590 DATA 82,"0F07070303030101",83,"0F0F0F0F0F1F1F3F",84,"0F1F3F7F7FFFFFFF",85,"1018183070E08"
600 DATA 86,"102040000007FFFC",87,"181818303030606",88,"1E0F03",89,"2020000040404143"
610 DATA 90,"211300003FFF8",91,"30000000FEBF3737",92,"37F71F0703030101",93,"387060C08"
620 DATA 94,"3F07000000000001",95,"3F7FDF8F8F070303",96,"4040404",97,"606030303018180C"
630 DATA 98,"6060C0C0C0C0C0C",99,"C0C0B0F0DF8701",100,"C0C0C",101,"C0C0C0C0C0C0606"
640 DATA 102,"C483000080F83F03",103,"E0C020000003FF0E",104,"E0C080000000808",105,"E0E0C0C0C0C0E0F"
650 DATA 106,"F8BC1C1C1C3EFE",107,"F8FEFFFFFFFFFFFF",108,"FCF0E0C08",109,"FCFCFCFCF8FBFFFF"
660 DATA 110,"FCFCFCFFFFFFFEFC",111,"FEFEFFFFFFFFFFFF",112,"FEFFFFFFFFFFFFFF",113,"FF3F1F1F1F1F0F0F"
670 DATA 114,"FF80000000040C0C",115,"FFFFF8F0E0C0808",116,"FFFF7F3F0F0701",117,"FFFFE0808000010F"
680 DATA 118,"FFFFFF011F70C08",119,"FFFFFF7F3F3E1C0C",120,"FFFFFFFFFFFEFCF",121,"FFFFFFFFFFFFFFE"
690 DATA 122,"000000000000008",123,"0000000000010303",124,"0000E0F8FCFEFFFF",125,"808080808080808"
700 DATA 126,"80C0E0F8FCFEFFFF",127,"FFFFFFFFFFFFFFFF",133,"FFFFFFFFFFFFFFFF",134,"00008080C0C0C08"
710 DATA 135,"FFFFFF7F1F07",136,"FFFFFFFEFCF",137,"8",138,"0000000000010307"
720 DATA 139,"00001F7FFFFFFFFF",140,"070F0F0F0F0F0F0F",141,"0F0F07070301",142,"1F0F01"
730 DATA 143,"FFFFFFFFFFFFFF7F",1,123,16,73,81,2,124,6,73,129,3,122,6,73,137,4,126,6,81,137,5,125,6,89,145
731 DATA 6,134,16,73,89,10,15,138,10,16,139,11,15,140,11,16,133,11,17,133,12,15,141,12,16,143,12,17,133
732 DATA 12,18,133,13,16,142,13,17,135,13,18,136,13,19,137
733 DATA 256,110,30,256,659,0,512,523,0,128,466,0,512,523,0,512,440,0,512,330,0
734 DATA 256,110,30,256,659,0,512,523,0,128,466,0,512,523,0,512,440,0,512,330,0
735 DATA 256,110,30,256,784,0,256,659,0,128,587,0,128,659,0,512,523,0,512,392,0
736 DATA 256,110,30,256,784,0,256,659,0,128,587,0,128,659,0,512,523,0,512,392,0
1600 PRINT : : : : : : : "        />CE@                      2Tm84                    Hw0  pA  35        "
1680 PRINT "       WRsrq   o9 On               b16]S    kFxl               e`J:_    h         "
1690 PRINT "       a YPDt.y.?                Q;N   ^vugU                  Xd   G7[M<          "
1700 PRINT "           =BLI\i                      cKVZfj           "
1710 PRINT : : : : :
1900 FOR FILL=1 TO 13::READ Y,X,CP::CALL VCHAR(Y,X,CP)::NEXT FILL
1910 FOR X=1 TO 28:: READ D,T,V::CALL SOUND(D,T,V)::NEXT X
1920 CALL KEY(0,K,S)
1930 IF S=0 THEN 1920
1940 END

I chose not to tackle making a sprite move in time with the music... I am not ready to tackle that yet.

I may do a revision of this program later with a moving sprite, but for know, i just want to get the music sounding as good as i can.

I should point out that until i started this project, i basically had no idea at all how to even read music.

So i am basically learning to read music, and transcribing that as best i can, and double checking the sound every couple of bars to see if sounds decent in the emulator, then double checking for errors in notes....

This is really quite the new experience for me.

I grew up loving those old minah bird cartoons, but i had no idea the music he walked to was from such a large, beautiful piece. I thought the tune was just something made in the cartoon studio to match his walk. How wrong i was.



#12 RXB OFFLINE  

RXB

    River Patroller

  • 2,724 posts
  • Location:Vancouver, Washington, USA

Posted Sun Jul 23, 2017 11:04 AM

Hmm does not work right in XB or RXB maybe a copy error or bug in posting code?



#13 notwhoyouthink OFFLINE  

notwhoyouthink

    Star Raider

  • Topic Starter
  • 68 posts

Posted Sun Jul 23, 2017 1:12 PM

Hmm does not work right in XB or RXB maybe a copy error or bug in posting code?

you are right, it does not work as above.

I have attach a FIAD for classic 99.

Special characters in print command may have messed the copy/paste up.

Sorry for that.

Attached Files


Edited by notwhoyouthink, Sun Jul 23, 2017 1:12 PM.


#14 RXB OFFLINE  

RXB

    River Patroller

  • 2,724 posts
  • Location:Vancouver, Washington, USA

Posted Sun Jul 23, 2017 7:32 PM

Just to speed up the game I installed line 1905 in your program

1905 CALL MOVES("VR",2079,0,8192) :: CALL BSAVE("DSK2.BPREVIEW")

Then I deleted all lines but:

733 DATA 256,110,30,256,659,0,512,523,0,128,466,0,512,523,0,512,440,0,512,330,0
734 DATA 256,110,30,256,659,0,512,523,0,128,466,0,512,523,0,512,440,0,512,330,0
735 DATA 256,110,30,256,784,0,256,659,0,128,587,0,128,659,0,512,523,0,512,392,0
736 DATA 256,110,30,256,784,0,256,659,0,128,587,0,128,659,0,512,523,0,512,392,0
1905 CALL BLOAD("DSK2.BPREVIEW") :: CALL MOVES("RV",2079,8192,0)
1910 FOR X=1 TO 28 :: READ D,T,V :: CALL SOUND(D,T,V) :: NEXT X
1920 CALL KEY(0,K,S)
1930 IF S=0 THEN 1920
1940 END

You get instant screen image and music starts.

 

Try it in Classic99....

 

 

Rich



#15 notwhoyouthink OFFLINE  

notwhoyouthink

    Star Raider

  • Topic Starter
  • 68 posts

Posted Sun Jul 23, 2017 8:05 PM

Rich, just letting you know: it is not meant as a game.



#16 Sinphaltimus ONLINE  

Sinphaltimus

    Stargunner

  • 1,921 posts
  • Distracted at the Keyboard
  • Location:Poconos, PA

Posted Sun Jul 23, 2017 8:08 PM

With RXB 2015 or XB there is an error in 1905 - in XB subprogram not found in RXB it's just an error.

At least that's what I get after copy and pasting all the above lines in then typing run



#17 RXB OFFLINE  

RXB

    River Patroller

  • 2,724 posts
  • Location:Vancouver, Washington, USA

Posted Mon Jul 24, 2017 7:03 AM

With RXB 2015 or XB there is an error in 1905 - in XB subprogram not found in RXB it's just an error.

At least that's what I get after copy and pasting all the above lines in then typing run

1905 only works in RXB it uses three routines in RXB only:

CALL MOVES

CALL BSAVE

CALL BLOAD

 

You have to take the original program and insert 1905, then run that program to save to DSK2.RXBPREVIEW, after that you can run the cut down one I posted.

 

What is going on is I use 1905 CALL BSAVE to save all the graphics memory to disk, then the cut down version does not need to rebuild any of it, just loads it.



#18 notwhoyouthink OFFLINE  

notwhoyouthink

    Star Raider

  • Topic Starter
  • 68 posts

Posted Mon Jul 24, 2017 8:40 PM

:music:

Well, here it is.

This is as good as i can get it. Please enjoy.

Should work in TI Extended basic from either tape or disk, no 32k needed.

Attached Files






0 user(s) are browsing this forum

0 members, 0 guests, 0 anonymous users