World: r3wp

Ah there's bug in example, it should be "128 - val" instead of "400 
- val" but that's not the problem

Thanks Kru, I reread that part, and actually found Carl's explanation.

Now that's interesting ... 

if I paste your example into a console, I get a very short high beep

if I paste it into a script and do the script, I get a math error! 
(Math or number overflow)

Ingo: yes there are some bugs ;)

I didn't test it before pasting it here

Wait a minute, I'll post fixed version

OK

print "Play a ping sound..." ; (init event system too)

    ; Generate a ping waveform as a binary value:
    ping: #{}
    for amplitude 500 1 -1 [
        for phase 1 360 16 [
            val: 128 + to-integer 127 * sine phase
            val: amplitude * val / 500
            append ping to-char val
            ;append ping to-char 256 - val
        ]
    ]

    ; Set up the sound sample parameters:
    sample: make sound [
        rate: 44100 / 2
        channels: 1
        bits: 8
        volume: 0.5
        data: #{}
    ]

    ; Make the ping sound 10 times:
    loop 10 [append sample/data ping]

    ; Play the sound now:
    sound-port: open sound://
    insert sound-port sample
    wait sound-port
    close sound-port

this is mono example - plays ping sound

print "Play a ping sound..." ; (init event system too)

    ; Generate a ping waveform as a binary value:
    ping: #{}
    for amplitude 500 1 -1 [
        for phase 1 360 16 [
            val: 128 + to-integer 127 * sine phase
            val: amplitude * val / 500
            append ping to-char val
            append ping to-char 256 - val
        ]
    ]

    ; Set up the sound sample parameters:
    sample: make sound [
        rate: 44100 / 2
        channels: 2
        bits: 8
        volume: 0.5
        data: #{}
    ]

    ; Make the ping sound 10 times:
    loop 10 [append sample/data ping]

    ; Play the sound now:
    sound-port: open sound://
    insert sound-port sample
    wait sound-port
    close sound-port

This is stereo example - plays nothing

if you look at sample/data after inserting sample to sound:// they're 
changed

>> sample/data
== #{
827EA55BC53BDF21F30DFD03FE02F40CE21EC838A957867A649C43BD27D911EF
05FB02FE08F818E831CF4FB1718F817EA45BC43BDE21F20DFC03FD02F30C...

>> insert sound-port sample
== 115000
>> sample/data
== #{
80808080808080808080808080808080808080808080807F7F7F7F7F7F7F7F7F
7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F...

Another thing - REBOL sounds different compared to other players. 
It's noisy and dull. I've got 44100Hz/16bit sound and it sound's 
more like 22050/8bit to my ear.

simply put, rebol sound quality and buggy behavior deserves to be 
put into trashcan ;-)

now let's convince Carl, that as AGG was good choice for vectors, 
we should find another library for sound. Maybe fmod?

fmod? why not. but who's going to pay the license?

RT's investor? :-) First I would try to talk to those folks, then 
to speculate about how much it will be. Maybe there is some amigan 
inside the group :-)

the question is - AGG for vectors, is one of two best free libraries 
- Cairo and AGG ... so - how is fmod quality wise? Is there any better, 
smaller library to have?

It seems sound data is only changed on first insert, though.

Btw, I get different values, and the stereo version plays a sound 
for me

Probably depends on sound hardware, because I've testing this previously 
and I was getting different results on my home computer and my work 
computer

Anyway, I think it's bad behaviour. The data should remain same (the 
can be changed internaly when playing but users must see same data).

Yes, that may be the case.

Well, whatever, sound in Rebol seems to be more or less unusable.

Here under XP and REBOL/View 1.3.1.3.1, both example (mono and stereo) 
work, 2 sample/data is not changed after insert.

Romano I think it does not depend on system version but on soundcard 
(or drivers probably)

REBOL does definitely play sounds in 22kHz/8bit. You can hear the 
quantisation noise in low volume and everything sounds so filtered.

I've got some Intel chipset soundcard in work, but here at home I've 
got M-Audio Delta 1010LT and the results are same (sound results, 
sample/data looks different).

It's really problem, but on the other hand, I can hear that Sintezar 
is much much better with sound than I thought on listening test done 
in REBOL :)

BTW, WAV saver is ready, so I'll do some demo-sounds and fixes and 
release it ASAP ;)

http://krutek.info/pix/PM101.png(work in progress)

seems you could post some sounds now? :)

I said that REBOL plays sound in 22kHz/8bit, but that's not true. 
At least here, after some tests I'm pretty sure that it's 11kHz/8bit.

I've got some demo-sounds ready, I'll post them today or tomorrow.

14 demo sounds - http://krutek.info/rebol/sounds1.zip

(don't expect that 'bell' sounds like bell, 'violin' like violin 
and so on. it's just a name :-)

That which we call a siren, by any other name would sound as sweet?

:)

I said I'll release Sintezar after Competition. Compo is over, so, 
I'm releasing it :) Download it from http://krutek.info/rebol/SintezarPM101.ZIP
. Unpack it somewhere and run %sintezar_pm-101.r I hope it should 
work.

It's pretty sub-alpha version. Some buttons do not work, some buttons 
crash the application. I know that so you do not have to report bugs, 
it's full of them.

Anyway, it works. In the bottom row, there are six buttons. Press 
second button (load sound) and go to %sounds/ directory. Select a 
sound and open it.

Then press fifth button (compute sound) and wait. Press last button 
(play sound, looks like triangle) and it should play a sound.

You can change waves, adjust modulation, filter, envelopes, wave 
shaper, bit crusher and so on...

There's also some unfinished documentation included. Things that 
does not work: init sound (first button), LFO (black square button 
right to envelope button) and playing empty sound. That's what I 
remember for sure. But editing sound, creating, saving to own format 
and exporting to WAV works. Have fun.

Oh, and the Melody button does not work too.

.

There isn't a way to do sound input directly from rebol is there?

Nice Rebolek!