Welcome, Guest. Please login or register.


Author Topic: Zeneprogramozás (Read 243373 times)

Offline geco

  • EP addict
  • *
  • Posts: 5975
  • Country: hu
  • OS:
  • Linux Linux
  • Browser:
  • Firefox 68.0 Firefox 68.0
    • View Profile
Re: Zeneprogramozás
« Reply #1065 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: 5975
  • Country: hu
  • OS:
  • Linux Linux
  • Browser:
  • Firefox 68.0 Firefox 68.0
    • View Profile
Re: Zeneprogramozás
« Reply #1066 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: 8861
  • 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 #1067 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 129 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: 8861
  • 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 #1068 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 129 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: 8861
  • 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 #1069 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 44 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: 3096
  • 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 #1070 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: 8861
  • 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 #1071 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: 8861
  • 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 #1072 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: 3096
  • 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 #1073 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 »