ENTERPRISE KLUB
2021. november 6., 1055 Budapest, Nyugati tér 9. 14-19 óráig
Belépés kizárólag klubtagok részére! (Klubkártyával vagy előfizetéssel!)
Welcome, Guest. Please login or register.


Author Topic: Zeneprogramozás (Read 278573 times)

Offline Povi

  • EP addict
  • *
  • Posts: 2102
  • Country: hu
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Chrome 80.0.3987.163 Chrome 80.0.3987.163
    • View Profile
    • http://povi.fw.hu
Re: Zeneprogramozás
« Reply #1050 on: 2020.April.15. 22:27:40 »
Jó lett! A második részében mintha néhány helyen hamis lenne pár hang, de lehet, csak én hallom félre.
Hááát, én nem hallom hamisnak :-)
Ez alapján csináltam:
https://www.youtube.com/watch?v=mfJ88PAuH24
*** Speicherplatz zu klein

Offline geco

  • EP addict
  • *
  • Posts: 6303
  • Country: hu
  • OS:
  • Linux Linux
  • Browser:
  • Firefox 68.0 Firefox 68.0
    • View Profile
Re: Zeneprogramozás
« Reply #1051 on: 2020.April.16. 08:44:05 »
A tömöríthetőség javítására próbálkoztam a burkológörbe adat differenciálásával, amit ez a rutin konvertál lejátszás előtt:

A fent említett példa file így 9093 helyett 7630 méretű tömörítve, ami még mindig nem igazán jó, de javulás. A konvertáló program egyelőre nem tud közvetlenül ilyen formátumban menteni.
Hááát azt az 1,4 KB-ot én igazán jónak nevezném, igaz, ha jól emlékszem, akkor 7100 byte-ra nyomta a másik, de sztem a 7600 teljesen jó, és a lejátszó rutin is rövidnek tűnik, ha az egészet listázta a github (láttam a codeend-et is :D )

Offline szipucsu

  • EP addict
  • *
  • Posts: 9154
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 75.0 Firefox 75.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Zeneprogramozás
« Reply #1052 on: 2020.April.16. 11:56:04 »
Hááát, én nem hallom hamisnak :-)
A második felében mintha el lenne hangolódva egymáshoz képest egy kicsit a két szólam, de lehet, csak én érzem így. Két hangot éreztem feltűnőbben hamisnak, a videón az utolsó hang az például, ami EP-n máshogy hangzik.
Még olyat lehetne, hogy a basszus szólamra alacsony torzítást teszel, kicsit más lesz a hangzás. De lehet, hogy nem minden hangmagasság-értéknél lesz hallható a hang, ha nem változtatod meg kicsit a frekvenciát, de mély hangoknál talán nem annyira jellemző, ezt nem tudom fejből.
100 SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
110 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
120 SOUND PITCH 25,SYNC 2
Videos

Offline geco

  • EP addict
  • *
  • Posts: 6303
  • Country: hu
  • OS:
  • Linux Linux
  • Browser:
  • Firefox 68.0 Firefox 68.0
    • View Profile
Re: Zeneprogramozás
« Reply #1053 on: 2020.April.16. 15:08:49 »
kúl, tök jó lett a tömörítetlen output mérete is, gyűjtöm is az infókat egy helyre, eddig azért nem is álltam neki szívesen midi beépítésének, mert nem volt meg minden infó egy helyen nálam, és úgy emlékeztem, hogy viszonylag sok időt töltöttem el a Quadrillion, vagy Crillion full verzióba való beépítéssel (már nem emlékszem melyikbe került mod, és melyikbe midi )

Offline geco

  • EP addict
  • *
  • Posts: 6303
  • Country: hu
  • OS:
  • Linux Linux
  • Browser:
  • Firefox 68.0 Firefox 68.0
    • View Profile
Re: Zeneprogramozás
« Reply #1054 on: 2020.April.20. 08:24:23 »
Jól hangzik, nem baj, ha dav2pl1t-nél rosszul tömöríthető az adat, jól jöhet még a miniatűr lejátszó, és beépítésnél úgyis a tömörítetlen méret számíthat.

Offline szipucsu

  • EP addict
  • *
  • Posts: 9154
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 77.0 Firefox 77.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Zeneprogramozás
« Reply #1055 on: 2020.June.07. 20:52:31 »
A PI számjegyeiből minden számjegyet egy hangnak megfeleltetve, "lejátssza" ez a program a PI-t 50 tizedesjegyig. A 160-as sorban más számokat is megadhatunk, hogy egy adott számnak milyen hang feleljen meg. Ez most C-dúr, de lehetne más is. A program értelme vitatható.
Volt egy videó, ahol valaki megzenésítette a PI-t, az ihlette ezt.
* pi 50.ep128s (42.37 kB - downloaded 239 times.)
100 SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
110 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
120 SOUND PITCH 25,SYNC 2
Videos

Offline szipucsu

  • EP addict
  • *
  • Posts: 9154
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 77.0 Firefox 77.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Zeneprogramozás
« Reply #1056 on: 2020.June.07. 21:44:39 »
Ez a "nagyon hézagpótló" program pedig tetszőleges számot eldalol. Ezt a számot a 10. sorban kell megadni. Most koszinusz 3 van megadva, de megadható bármi, gyök 2 is, vagy 2*pi, vagy koszinusz 2*gyök 3, akármi. Lehet próbálkozni, hogy milyen szám ad jó zenét. Ez csak úgy eszembe jutott ma este. Kár, hogy az EP nem számol ki 10-nél több számjegyű számokat. Így pl. a gyök pi is "csak" 9 tizedesig számítható ki. :D
* number singer.ep128s (42.53 kB - downloaded 240 times.)
100 SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
110 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
120 SOUND PITCH 25,SYNC 2
Videos

Offline szipucsu

  • EP addict
  • *
  • Posts: 9154
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 84.0 Firefox 84.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Zeneprogramozás
« Reply #1057 on: 2021.January.14. 15:13:22 »
A fájlba kimentett escape szekvenciát hogyan lehet basic programba beletenni? Például PRINT vagy DATA után. Itt mellékelek két envelope number burkológörbét, amit esc szekvenciaként mentettem ki. Fura karakterek is vannak benne, amiket a basic máshogy kezel, ha csak simán idézőjelbe teszem az egészet és DATA után beteszem.
Egyesével ki lehetne keresgélni mind a 96 bájtnak a decimális karakterkódját és beírni CHR$ mögé, de az kicsit sokáig tart. :D
* hang.esc (0.09 kB - downloaded 163 times.)
100 SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
110 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
120 SOUND PITCH 25,SYNC 2
Videos

Online gflorez

  • EP addict
  • *
  • Posts: 3218
  • Country: es
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 84.0 Firefox 84.0
    • View Profile
Re: Zeneprogramozás
« Reply #1058 on: 2021.January.14. 16:27:50 »
Talán ilyesmi, vagy szöveges fájlba írása.

----

Maybe something like this, or writing it to a text file.

Offline szipucsu

  • EP addict
  • *
  • Posts: 9154
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 84.0 Firefox 84.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Zeneprogramozás
« Reply #1059 on: 2021.January.14. 17:03:31 »
Maybe something like this, or writing it to a text file.
Ez igen, ez a módszer nagyon jól néz ki! Legközelebb használni fogom. Most viszont úgy oldottam meg, hogy a karakterek kódját kiírtam egy txt fájlba, ott átszerkesztettem, és betöltöttem tokenizálatlan basic programként.

Wow, this method seems to me cool. I will use it next time. However I solved it this time by printing the codes of the bytes (characters) into a txt file then I edited it and loaded it as a basic program.

Wow, me parece genial, este método. Lo usaré la próxima vez. Sin embargo, esta vez lo resolví imprimindo los códigos de los carácteres en un archivo txt, lo edité y lo cargué como un programa de basic.
100 SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
110 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
120 SOUND PITCH 25,SYNC 2
Videos

Offline szipucsu

  • EP addict
  • *
  • Posts: 9154
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 84.0 Firefox 84.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Zeneprogramozás
« Reply #1060 on: 2021.January.15. 16:03:53 »
Ez volt egyébként a program, mivel az esc szekvenciákba mentett envelope numberek adatait kibányáztam basic programban használható formátumba. Txt fájlba kimentett egy csomó számot, és csak eléjük kellett írni, hogy DATA, elé meg ciklusba READ I, PRINT #103:CHR$(I); vagy valami ilyesmi.

Code: [Select]
   10 OPEN #1:"hang.esc" ACCESS INPUT
   20 OPEN #2:"data.txt" ACCESS OUTPUT
  100 FOR A=1 TO 94
  110   GET #1:A$
  120   PRINT #2:STR$(ORD(A$))&",";
  130 NEXT
  140 CLOSE #1
  150 CLOSE #2
100 SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
110 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
120 SOUND PITCH 25,SYNC 2
Videos

Online gflorez

  • EP addict
  • *
  • Posts: 3218
  • Country: es
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 84.0 Firefox 84.0
    • View Profile
Re: Zeneprogramozás
« Reply #1061 on: 2021.January.15. 16:32:41 »
Lehet, hogy egy idő megtakarítása érdekében az összes értéket közvetlenül egy karakterlánc-változóhoz rendelheti, öt vagy hat Basic sor segítségével:

----------

Maybe, in order to save some time, you could assign all the values to a string variable directly, by means of five or six Basic lines:

----------

Quizás, para ganar algo de tiempo, podrías asignar todos los valores directamente a una variable de texto, por medio de cinco o seis lineas de Basic:

« Last Edit: 2021.January.15. 17:09:33 by gflorez »