World: r3wp

Josh, recording ? There are only OS specific ways so far.

Can any one help me reply to this question (received via REBOL.org's 
feedback form)?
Thanks!
<<
Where can I find more Hex Code like in psg-ay-3-8910-study.r

Please point me to a tool that I can use for development of  Sound 
Code for the AY-3-8910 where I end up with Hex Code that I can then 
load into EPROMs which would drive the AY-3-8910. Thanks for any 
help.

http://www.rebol.org/cgi-bin/cgiwrap/rebol/view-script.r?script=psg-ay-3-8910-study.r
>>

I got the data using a free MSX emulator (openMSX). The music come 
from the game "Auf wiedersehen Monty".

You can use a "dump PSG" functionality in openMSX to get the raw 
data (values of the registers of the PSG).

You can find lot of roms (games) for the msx wich contain cool musics 
and effects for the AY PSG on www.planetemu.net

Beware, these roms are not freeware even if you can download them 
freely.


Another way (i have not tried), is to use VortexTracker at http://bulba.at.kz/
(see http://www.youtube.com/watch?v=lYdIqcqgkPMfor a demo)

wich is well designed to compose an manipulate raw data for the AY-* 
PSG.
I think many samples are given too.

Any reason I can play pre-recorded .wav files but if try to make 
my own they do not work:

** Access Error: Bad image data
** Where: narrate
** Near: insert sound-port load talk

i've tried several .wav recording/converting software...no change.

Tried changing the sample rates, channels etc...no difference. 

I know you should not use compression but I'm pretty sure I'm not.

How are you creating them Alan, and what specs? Try generic 44.1Khz 
stereo.

I'm using windows sound recorder on XP (Ofcourse, they removed .wav 
format in VIsta)
I just used "cd" quaity which is 44.1khz stereo
Converted to 8bit also....
same problem.

what do you mean they removed .wav format?

You can no longer save in .wav

wma only

oh, for the little mic recorder?

yes

such a bunch of idiots.  I removed Vista... after it corrupted itself 
on bootup.

last month... after more than a year of using it.

I read that you could start it from teh command line and get it save 
in .wav but I could not get it to work..


THere are a lot of annyoing things about vista...but I have it on 
my wife's laptop and I'm forced to use it now and again..

did you try using audigy?

no
I'll have a look..

its the best freeware multi platform recording/editing software

doesn't even need an install  :-)  and it works the same on mac and 
linux.

thanks

I do not see it..keep getting references to  a sound blaster card..

Is there a web site? or an other name?

doh... its audacity... stupid me.

got it thanks

Maxim, It works...Thank you very much!

How can you test if the sound port is already open?

Never mind just used an "if error? try [" statement..

ICarii, I just quickly tried your synth2.r. It plays the song here 
on Linux, and matches the score. I wonder, though, how you are going 
to scale the program. Rebol's sound port is currently underpowered, 
and Rebol isn't fast at number crunching which is necessary for audio 
work. I don't like the idea of waiting for hours for a full song 
to render.. I would be looking for an audio processing system to 
hook into rebol.

im going to port it to R3 tomorrow and rely on Call to play sounds

but yes it is horribly slow.

Well, I've been fiddling with Tiny C Compiler - maybe it can eventually 
be used for fast crunching.

R3 build-song speed (without optimization) plus write to disk is 
1810ms vs R2 of 2862ms. So even without optimizing in R3 there is 
a large difference in performance.

added an interpolate function for dual channel sound and works fine 
:)  still slow on initial build though :(
interpolate: func [series1 series2 chunksize /local ts1 ts2 c][
	ts1: copy series1
	ts2: copy series2
	c: copy #{}
	forall ts1 [
		insert tail c copy/part ts1 chunksize
		insert tail c copy/part at ts2 index? ts1 chunksize
		take/part ts1 chunksize - 1
	]
	c
]

hmm that works with the take/part in the forall but: 		loop chunksize 
- 1 [next ts1]
may be safer?

ahh.. i should have used forskip .. never used that before

interpolate: func [series1 series2 chunksize /local ts1 ts2 c][
	ts1: copy series1
	ts2: copy series2
	c: copy #{}
	forskip ts1 chunksize [
		insert tail c copy/part ts1 chunksize
		insert tail c copy/part at ts2 index? ts1 chunksize
	]
]

Try with :

interpolate: func [series1 series2 chunksize /local ts1 ts2 c][
	ts1: copy series1
	ts2: copy series2
	c: copy #{}
	forskip ts1 chunksize [
		insert/part tail c ts1 chunksize
		insert/part tail c at ts2 index? ts1 chunksize
	]
]


Why do you copy the 2 series? It's not required here, you're not 
modifying them.

You should also pre-allocate the 'c buffer : c: make binary! <max-size>.

ahh thx - re copy - that was an artifact from the first iteration 
of the function where i was using take in a loop.

next on the list of todo's is to separate top and bottom notes and 
timings and add in rests.

Just tried synth2.r, nice work by the way.

:)  its getting there slowly - i really need to look at ADSR envelopes 
so 16bit samples dont sound so horrid :)

ICarii, have a look at my PM-101 http://www.rebol.org/view-script.r?script=pm-101.r

I use 8-point free envelope there (ADSR can be easily emulated using 
just 3 points), maybe it will be of some use for you

will do :)  ive been looking at using piano waveforms but they require 
too much number crunching for rebol :(

I was compiling the math functions to C and the result was about 
5-10x faster (not optimalized), but I cannot find that code right 
now.

pm-101 reminds me of an aircraft console ;)   once it stops scaring 
me ill look more closely :)

hehe :)

i was thinking of prebuilding and saving envelope shapes and modifying 
the tone like a mask

I was also working on tracker-like program (not published). I had 
a simple format for notes there that was similar to sequencers - 
I was using tuple! for timing information, it may be better than 
having two blocks, one for notes and one for timing.