WAVE: Difference between revisions

Latest revision as of 20:15, 21 November 2024

_WAVE defines the waveform shape for a specified audio channel when used with SOUND or PLAY.

Syntax

_WAVE voice&, waveDefinition%%([index&])[, frameCount&]

Parameters

voice& specifies for which of the four audio channels the sound waveform shall be set.
waveDefinition%%([index&]) defines the shape of the sound wave for the specified voice. This parameter must be the name of an array of _BYTEs with at least 2 elements. Each element (sample frame) in the array must have a value in the range of -128 to 127. An optional index can be used to specify the starting point in the array.
frameCount& specifies the number of elements (sample frames) used to define the shape of the sound.

Description

The _WAVE statement enhances the versatility of the SOUND or PLAY commands.
By using a numeric array to define the shape of a sound wave, you can produce more specific and unique types of sounds.
Each element of the array specifies a amplitude value. When combined, these values form a curve that represents the shape of the waveform.
Audio channels can be panned to the left, right, or center using SOUND or PLAY.
Waveforms specified with _WAVE have a waveform ID of 10. See SOUND and PLAY for more details regarding waveforms.
By default, custom waveforms are initialized as a sine wave with 256 sample frames.
The _WAVE command was designed to resemble the WAVE command found in AmigaBasic.

Availability

none
v4.0.0
yes
yes
yes

Examples

Example 1: A QB64-PE port of the AmigaBasic Music/Graphic demo.

' Music - AmigaBasic Music/Graphic-Demo --- 20. July 1985
DEFLNG A-Z

CONST VOLUME! = 0.25!

DIM F#(88), CF(19), CT#(19)

GOSUB InitSound
GOSUB InitGraphics

DO
    SOUND RESUME
    RESTORE Song
    GOSUB PlaySong

    ' This ensures all voices have played completely before playing the song again
    WHILE PLAY(0) > 0 _ORELSE PLAY(1) > 0 _ORELSE PLAY(2) > 0 _ORELSE PLAY(3) > 0
        IF _KEYHIT = 27 THEN END
        _LIMIT 60
    WEND
LOOP

InitGraphics:
SCREEN 12
_TITLE "AmigaBasic Music/Graphic Demo (QB64-PE port by a740g)"
iDraw = 30
iErase = 0
ON TIMER(1) GOSUB TimeSlice
TIMER ON
RETURN

TimeSlice:
FOR linestep = 1 TO 15
    DrawLine iDraw, 1
    DrawLine iErase, 0
    _LIMIT 60
NEXT linestep
RETURN

PlaySong:
' Array VO contains the base octave for a voice.
FOR v = 0 TO 3
    READ VO(v)
    VO(v) = 12 * VO(v) + 3
NEXT v

DO
    SOUND WAIT
    FOR v = 0 TO 3
        t# = VT#(v)
        Fi = -1
        READ p$
        IF p$ = "x" THEN RETURN
        FOR I = 1 TO LEN(p$)
            Ci = INSTR(C$, MID$(p$, I, 1))
            IF Ci <= 8 THEN
                IF Fi >= 0 THEN SOUND F#(Fi), t#, VOLUME, , , , v: t# = VT#(v)
                IF Ci = 8 THEN Fi = 0 ELSE Fi = CF(Ci) + VO(v)
            ELSEIF Ci < 11 THEN '# or -
                Fi = Fi + CF(Ci)
            ELSEIF Ci < 17 THEN '1 through 8
                t# = CT#(Ci)
            ELSEIF Ci < 19 THEN '< or >
                VO(v) = VO(v) + CF(Ci)
            ELSE 'ln
                I = I + 1
                Ci = INSTR(C$, MID$(p$, I, 1))
                VT#(v) = CT#(Ci)
                IF Fi < 0 THEN t# = VT#(v)
            END IF
        NEXT I
        IF Fi >= 0 THEN SOUND F#(Fi), t#, VOLUME, , , , v
    NEXT v
    SOUND RESUME
    IF _KEYHIT = 27 THEN END
    _LIMIT 60
LOOP

InitSound:
' F#() contains frequencies of the chromatic scale.
' Note A in octave 0 = F#(12) = 55 Hz.
Log2of27.5# = LOG(27.5#) / LOG(2#)
FOR x = 1 TO 88
    F#(x) = 2 ^ (Log2of27.5# + x / 12#)
NEXT x

' Create the waveform of tones,
' determines timbre.
DIM Timbre(255) AS _BYTE
FOR I = 0 TO 255
    READ Timbre(I)
NEXT I

' The following DATA rows were created using the following formula.
' Reading from these DATAs is faster than calculating the sine 1024 times.
'  K# = 2 * 3.14159265/256
'  FOR I = 0 TO 255
'    Timbre(I) = 31 * (SIN(I * K#) + SIN(2 * I * K#) + SIN(3 * I * K#) + SIN( 4 * I * K#))
'  NEXT I
DATA 0,8,15,23,30,37,44,51,57,63,69,74,79,83,87,91
DATA 93,96,98,99,100,100,100,99,98,97,95,92,89,86,83,79
DATA 75,71,66,62,57,52,48,43,39,34,30,25,21,18,14,11
DATA 8,5,3,0,-1,-3,-4,-5,-5,-6,-6,-5,-5,-4,-3,-1
DATA 0,2,3,5,7,9,11,13,15,17,18,20,21,23,24,25
DATA 26,26,27,27,27,27,27,26,25,24,23,22,20,18,17,15
DATA 13,11,9,7,5,3,1,-1,-3,-5,-6,-8,-9,-10,-11,-12
DATA -12,-13,-13,-13,-13,-13,-12,-11,-11,-10,-8,-7,-6,-4,-3,-2
DATA 0,2,3,4,6,7,8,10,11,11,12,13,13,13,13,13
DATA 12,12,11,10,9,8,6,5,3,1,-1,-3,-5,-7,-9,-11
DATA -13,-15,-17,-18,-20,-22,-23,-24,-25,-26,-27,-27,-27,-27,-27,-26
DATA -26,-25,-24,-23,-21,-20,-18,-17,-15,-13,-11,-9,-7,-5,-3,-2
DATA 0,1,3,4,5,5,6,6,5,5,4,3,1,0,-3,-5
DATA -8,-11,-14,-18,-21,-25,-30,-34,-39,-43,-48,-52,-57,-62,-66,-71
DATA -75,-79,-83,-86,-89,-92,-95,-97,-98,-99,-100,-100,-100,-99,-98,-96
DATA -93,-91,-87,-83,-79,-74,-69,-63,-57,-51,-44,-37,-30,-23,-15,-8

' Set AMIGA PAULA like panning (well mostly)
SOUND 0, 0, , -0.75!, 10, , 0 ' pan left
SOUND 0, 0, , 0.75!, 10, , 1 ' pan right
SOUND 0, 0, , 0.75!, 10, , 2 ' pan right
SOUND 0, 0, , -0.75!, 10, , 3 ' pan left

_WAVE 0, Timbre()
_WAVE 1, Timbre()
_WAVE 2, Timbre()
_WAVE 3, Timbre()

' Array CF maps MML commands to frequency indices.
C$ = "cdefgabp#-123468<>l"
FOR I = 1 TO 19
    READ CF(I)
NEXT I
DATA 0,2,4,5,7,9,11,0,1,-1,0,0,0,0,0,0,-12,12,0

' Array CT# assigns note lengths to MML commands.
FOR I = 1 TO 18
    READ CT#(I)
NEXT I
' MML commands p1,p2,p3,p4,p6,p8 correspond to pause times 36.4 ... 4.55 units
DATA 0,0,0,0,0,0,0,0,0,0,36.4,18.2,12.133333,9.1,6.0666667,4.55,0,0,0
RETURN

' The music is written in special commands (MML), but as per the Wiki page
' below MML not fully implemented here, missing o, v and t commands:
' https://en.wikipedia.org/wiki/Music_Macro_Language#Modern_MML

' The first 4 numbers are the base octaves (0-7) for each voice.
' ln     - sets note length for the following notes of this voice:
'           l1 = whole note, l2 = half note, l4 = quarter note, etc.
' >      - selects the next higher octave for this voice.
' <      - selects the next lower octave for this voice.
' a to g - play the respective note,
'           # (sharp) or - (flat) may follow directly.
'          It may also follow a number to determine the duration of this note.
' pn     - make a rest/pause length as for note length (ln) above.

Song:
DATA 1,3,3,3
DATA l2g>ge,l2p2de,l2p2l6g3f#g3a,l6p6gab>dcced
DATA <b>e<e,ge<b,b3ab3ge3d,dgf#gd<bgab
DATA ab>c,a>dc,e3f#g3de3<b,>cdedc<babg
DATA df#d,c<a>f#,a3>da3ga3f#,f#gadf#a>c<ba
DATA gec,g<g>e,d3f#g3f#g3a,bgab>dcced
DATA <b>ed,ge<b,b3ab3ge3g,dgf#gd<bgab
DATA cc#d,>ced,a3f#g3e<a3>c,e>dc<bagdgf#
DATA <gp3>g6d3<b6,dp2b3g6,<b3>gb3>dg3d,gb>dgd<bgb>d
DATA g>f#e,d<gg,l2<g1g,l2<b1>c
DATA f#ed,agf#,a1b,d1d
DATA ef#g,gag,bag,c1<b
DATA dp3d6d3d6,f#a3a6>d3d6,al6d3ef#3g,l6adef#aga>c<b
DATA <d>p3d6d3d6,f#3a6f#3d6<a3>d6,a3>c<a3f#d3f#,>c<af#df#a>c<ba
DATA gf#e,dde,g3dg3f#g3a,bgab>dcced
DATA b<b>e,gd<b,b3ag3f#e3g,dgf#gd<bgab
DATA cd<d,l4>c<a>d<b>c<al2,a3gf#3ga3c,e>dc<bagdgf#
DATA g>ge,b>de,<b3>dg3f#g3a,gbab>dcced
DATA <b>e<e,ge<b,b3ab3ge3d,dgf#gd<bgab
DATA ab>c,a>dc,e3f#g3de3<b,>cdedc<babg
DATA df#d,c<a>f#,a3>f#a3ga3f#,f#gadf#a>c<ba
DATA gec,g<g>e,d3f#g3f#g3a,bgab>dcced
DATA <b>ed,ge<b,b3ab3ge3g,dgf#gd<bgab
DATA cc#d,>ced,a3f#g3e<a3>c,e>dc<bagdgf#
DATA <g>f#e,d<gg,l2b1>c,l2g1g
DATA f#ed,agf#,d1d,a1b
DATA ef#g,gag,c1<b,bag
DATA dp3d6d3d6,f#l6a3a>d3d,al6d3ef#3g,l6ddef#aga>c<b
DATA <dp3>d6d3d6,f#3af#3d<a3>d,a3>c<a3f#d3f#,>c<af#df#a>c<ba
DATA gf#e,l2dde,l2b1>c,bgab>dcced
DATA b<b>e,gd<b,d1<b,dgf#gd<bgab
DATA cd<d,l4>c<a>d<b>c<a,a4b8>c8<ba,e>dc<bagdgf#
DATA g>ge,l2b>de,l6g3dg3f#g3a,gbab>dcced
DATA <b>e<e,ge<b,b3ab3ge3d,dgf#gd<bgab
DATA ab>c,a>dc,e3f#g3de3<b,>cdedc<babg
DATA df#d,c<a>f#,a3>da3ga3f#,f#gadf#a>c<ba
DATA gec,g<g>e,d3f#g3f#g3a,bgab>dcced
DATA <b>ed,ge<b,b3ab3ge3g,dgf#gd<bgab
DATA cc#d,>ced,a3f#g3e<a3>c,e>dc<bagdgf#
DATA <gp3>g6f#3e6,dp3g6d3e6,<b3>gb3>dg3<g,gb>dgd<bdb>c#
DATA dc<b,f#dd,l2a1b,d<def#ag#g#ba
DATA a>a4g4f4e4,e<a>a,>c1c,a>c<b>c<aecde
DATA d<b>e,aag#,<bb4>c8d8<b,f>dcd<bg#ef#g#
DATA a>fd,e<a>f#,al6a3g#a3b,a>c<b>ceddfe
DATA cfe,afc,>c3<b>c3<af3a,eag#aec<ab>c
DATA dd#e,df#e,a3g#a3f#<b3>d,fedc<baeag#
DATA <a>ab,c<ag,>l2c1d,a>ceap3l2d
DATA >c<ae,>cag,e1e,l6ecdegfgb-a
DATA fdg,df#g,dd4e8f8d,a>c<b>c<afdef
DATA cec,geg,l6c3<g>c3<ge3d,egfgec<gab-
DATA fdg,fag,c3ef3ab3>d,a>c<b>c<afdef
DATA cp3c6<b3>d6,gp3d6d3d6,c3<g>c3<a>d3<f#,ecdegf#gba
DATA <g>ge,dde,l2b1>c,bgab>dcced
DATA <b>e<e,ge<b,d1d,dgf#gd<bgab
DATA ab>c,a>dc,c<b1,>cdedc<babg
DATA dp3d6d3d6,cl6<a3a>d3d,l6a3c#d3ef#3g,f#def#aga>c<b
DATA <dp3>d6d3d6,f#3af#3d<a3>d,a3>c<a3f#d3f#,>c<af#df#a>c<ba
DATA gf#e,l2dde,l2b1>c,bgab>dcced
DATA b<b>e,gd<b,d1<b,dgf#gd<bgab
DATA cd<d,l4>c<a>d<b>c<a,a4b8>c8<ba,e>dc<bagdgf#
DATA g1g2,l2gp3>g6d3g6,gl6<b3>dg3d,gb>dgd<bgb>a
DATA g1g2,dp3g6e3c6,<b3g>d3b>c2,fd<bgb>ded<a
DATA g1g2,<ap3>d6<b3>e6,c3<ab2b3g,f#a>cd<bgegb
DATA g1g2,<e3a6f#3>a6f#3d6,a2a3f#d3f#,>c<af#df#a>c<ba
DATA g>ge,dde,g3dg3f#g3a,bgab>dcced
DATA <b>e<e,ge<b,b3ab3ge3d,dgf#gd<bgab
DATA ab>c,a>d<c,e3f#g3de3<b,>cdedc<babg
DATA df#d,c<a>f#,a3>da3ga3f#,f#gadf#a>c<ba
DATA gec,g<g>e,d3f#g3f#g3a,bgab>dcced
DATA <b>ed,ge<d,b3ab3ge3g,dgf#gd<bgab
DATA cc#d,d1d2,a3f#g3e<a3>c,e>dc<bagdgf#
DATA <g1g2,p2,<b1b2,g1g2
DATA p1,p1,p1,p1
DATA x

SUB DrawLine (iStep, hue) STATIC
    winWidth = _WIDTH
    winHeight = _HEIGHT
    iStep = (iStep + 1) MOD 60
    side = iStep \ 15
    I! = (iStep MOD 15) / 15!
    i1! = 1! - I!

    ON side + 1 GOSUB dl_top, dl_left, dl_bottom, dl_right

    EXIT SUB

    dl_top:
    LINE (winWidth * I!, 0)-(winWidth, winHeight * I!), hue
    RETURN

    dl_left:
    LINE (winWidth, winHeight * I!)-(winWidth * i1!, winHeight), hue
    RETURN

    dl_bottom:
    LINE (winWidth * i1!, winHeight)-(0, winHeight * i1!), hue
    RETURN

    dl_right:
    LINE (0, winHeight * i1!)-(winWidth * I!, 0), hue
    RETURN
END SUB

QB64-PE port of an AmigaBasic example by a740g. German comments translated by RhoSigma.

@@ Line 4: / Line 4: @@
 {{PageSyntax}}
-: '''_WAVE''' {{Parameter|voice&}}, {{Parameter|waveDefinition%%([index&])}}[, {{Parameter|frameCount&}}]
+: [[_WAVE]] {{Parameter|voice&}}, {{Parameter|waveDefinition%%([index&])}}[, {{Parameter|frameCount&}}]
 {{PageParameters}}
-* {{Parameter|voice&}} specifies which of the four audio channels the sound will play through.
+* {{Parameter|voice&}} specifies for which of the four audio channels the sound waveform shall be set.
 * {{Parameter|waveDefinition%%([index&])}} defines the shape of the sound wave for the specified voice. This parameter must be the name of an array of [[_BYTE]]s with at least 2 elements. Each element (sample frame) in the array must have a value in the range of -128 to 127. An optional index can be used to specify the starting point in the array.
 * {{Parameter|frameCount&}} specifies the number of elements (sample frames) used to define the shape of the sound.
@@ Line 15: / Line 16: @@
 * The '''_WAVE''' statement enhances the versatility of the [[SOUND]] or [[PLAY]] commands.
 * By using a numeric array to define the shape of a sound wave, you can produce more specific and unique types of sounds.
-* Each element of the array specifies a height value. When combined, these values form a curve that represents the shape of the waveform.
+* Each element of the array specifies a amplitude value. When combined, these values form a curve that represents the shape of the waveform.
 * Audio channels can be panned to the left, right, or center using [[SOUND]] or [[PLAY]].
 * Waveforms specified with '''_WAVE''' have a waveform ID of '''10'''. See [[SOUND]] and [[PLAY]] for more details regarding waveforms.
@@ Line 54: / Line 55: @@
      {{Text|<nowiki>' This ensures all voices have played completely before playing the song again</nowiki>|#919191}}
-     {{Cl|WHILE}} {{Cl|PLAY (function)|PLAY}}({{Text|0|#F580B1}}) > {{Text|0|#F580B1}} {{Cl|_ORELSE}} {{Cl|PLAY (function)|PLAY}}({{Text|1|#F580B1}}) > {{Text|0|#F580B1}} {{Cl|_ORELSE}} {{Cl|PLAY (function)|PLAY}}({{Text|2|#F580B1}}) > {{Text|0|#F580B1}} {{Cl|_ORELSE}} {{Cl|PLAY (function)|PLAY}}({{Text|3|#F580B1}}) > {{Text|0|#F580B1}}
+     {{Cl|WHILE}} {{Cl|PLAY (function)|PLAY}}({{Text|0|#F580B1}}) &gt; {{Text|0|#F580B1}} {{Cl|_ORELSE}} {{Cl|PLAY (function)|PLAY}}({{Text|1|#F580B1}}) &gt; {{Text|0|#F580B1}} {{Cl|_ORELSE}} {{Cl|PLAY (function)|PLAY}}({{Text|2|#F580B1}}) &gt; {{Text|0|#F580B1}} {{Cl|_ORELSE}} {{Cl|PLAY (function)|PLAY}}({{Text|3|#F580B1}}) &gt; {{Text|0|#F580B1}}
          {{Cl|IF}} {{Cl|_KEYHIT}} = {{Text|27|#F580B1}} {{Cl|THEN}} {{Cl|END}}
          {{Cl|_LIMIT}} {{Text|60|#F580B1}}
@@ Line 93: / Line 94: @@
          {{Cl|FOR}} I = {{Text|1|#F580B1}} {{Cl|TO}} {{Cl|LEN}}(p$)
              Ci = {{Cl|INSTR}}(C$, {{Cl|MID$ (function)|MID$}}(p$, I, {{Text|1|#F580B1}}))
-             {{Cl|IF}} Ci <= {{Text|8|#F580B1}} {{Cl|THEN}}
+             {{Cl|IF}} Ci &lt;= {{Text|8|#F580B1}} {{Cl|THEN}}
-                 {{Cl|IF}} Fi >= {{Text|0|#F580B1}} {{Cl|THEN}} {{Cl|SOUND}} F#(Fi), t#, VOLUME, , , , v: t# = VT#(v)
+                 {{Cl|IF}} Fi &gt;= {{Text|0|#F580B1}} {{Cl|THEN}} {{Cl|SOUND}} F#(Fi), t#, VOLUME, , , , v: t# = VT#(v)
                  {{Cl|IF}} Ci = {{Text|8|#F580B1}} {{Cl|THEN}} Fi = {{Text|0|#F580B1}} {{Cl|ELSE}} Fi = CF(Ci) + VO(v)
-             {{Cl|ELSEIF}} Ci < {{Text|11|#F580B1}} {{Cl|THEN}} {{Text|<nowiki>'# or -</nowiki>|#919191}}
+             {{Cl|ELSEIF}} Ci &lt; {{Text|11|#F580B1}} {{Cl|THEN}} {{Text|<nowiki>'# or -</nowiki>|#919191}}
                  Fi = Fi + CF(Ci)
-             {{Cl|ELSEIF}} Ci < {{Text|17|#F580B1}} {{Cl|THEN}} {{Text|<nowiki>'1 through 8</nowiki>|#919191}}
+             {{Cl|ELSEIF}} Ci &lt; {{Text|17|#F580B1}} {{Cl|THEN}} {{Text|<nowiki>'1 through 8</nowiki>|#919191}}
                  t# = CT#(Ci)
-             {{Cl|ELSEIF}} Ci < {{Text|19|#F580B1}} {{Cl|THEN}} {{Text|<nowiki>'< or ></nowiki>|#919191}}
+             {{Cl|ELSEIF}} Ci &lt; {{Text|19|#F580B1}} {{Cl|THEN}} {{Text|<nowiki>'&lt; or &gt;</nowiki>|#919191}}
                  VO(v) = VO(v) + CF(Ci)
              {{Cl|ELSE}} {{Text|<nowiki>'ln</nowiki>|#919191}}
@@ Line 106: / Line 107: @@
                  Ci = {{Cl|INSTR}}(C$, {{Cl|MID$ (function)|MID$}}(p$, I, {{Text|1|#F580B1}}))
                  VT#(v) = CT#(Ci)
-                 {{Cl|IF}} Fi < {{Text|0|#F580B1}} {{Cl|THEN}} t# = VT#(v)
+                 {{Cl|IF}} Fi &lt; {{Text|0|#F580B1}} {{Cl|THEN}} t# = VT#(v)
              {{Cl|END IF}}
          {{Cl|NEXT}} I
-         {{Cl|IF}} Fi >= {{Text|0|#F580B1}} {{Cl|THEN}} {{Cl|SOUND}} F#(Fi), t#, VOLUME, , , , v
+         {{Cl|IF}} Fi &gt;= {{Text|0|#F580B1}} {{Cl|THEN}} {{Cl|SOUND}} F#(Fi), t#, VOLUME, , , , v
      {{Cl|NEXT}} v
      {{Cl|SOUND}} {{Cl|RESUME}}
@@ Line 166: / Line 167: @@
 {{Text|<nowiki>' Array CF maps MML commands to frequency indices.</nowiki>|#919191}}
-C$ = {{Text|<nowiki>"cdefgabp#-123468<>l"</nowiki>|#FFB100}}
+C$ = {{Text|<nowiki>"cdefgabp#-123468&lt;&gt;l"</nowiki>|#FFB100}}
 {{Cl|FOR}} I = {{Text|1|#F580B1}} {{Cl|TO}} {{Text|19|#F580B1}}
      {{Cl|READ}} CF(I)
@@ Line 179: / Line 180: @@
 {{Cl|DATA}} {{Text|0|#F580B1}},{{Text|0|#F580B1}},{{Text|0|#F580B1}},{{Text|0|#F580B1}},{{Text|0|#F580B1}},{{Text|0|#F580B1}},{{Text|0|#F580B1}},{{Text|0|#F580B1}},{{Text|0|#F580B1}},{{Text|0|#F580B1}},{{Text|36.4|#F580B1}},{{Text|18.2|#F580B1}},{{Text|12.133333|#F580B1}},{{Text|9.1|#F580B1}},{{Text|6.0666667|#F580B1}},{{Text|4.55|#F580B1}},{{Text|0|#F580B1}},{{Text|0|#F580B1}},{{Text|0|#F580B1}}
 {{Cl|RETURN}}
 {{Text|<nowiki>' The music is written in special commands (MML), but as per the Wiki page</nowiki>|#919191}}
@@ Line 188: / Line 188: @@
 {{Text|<nowiki>' ln     - sets note length for the following notes of this voice:</nowiki>|#919191}}
 {{Text|<nowiki>'           l1 = whole note, l2 = half note, l4 = quarter note, etc.</nowiki>|#919191}}
-{{Text|<nowiki>' >      - selects the next higher octave for this voice.</nowiki>|#919191}}
+{{Text|<nowiki>' &gt;      - selects the next higher octave for this voice.</nowiki>|#919191}}
-{{Text|<nowiki>' <      - selects the next lower octave for this voice.</nowiki>|#919191}}
+{{Text|<nowiki>' &lt;      - selects the next lower octave for this voice.</nowiki>|#919191}}
 {{Text|<nowiki>' a to g - play the respective note,</nowiki>|#919191}}
 {{Text|<nowiki>'           # (sharp) or - (flat) may follow directly.</nowiki>|#919191}}
@@ Line 197: / Line 197: @@
 Song:
 {{Cl|DATA}} {{Text|1|#F580B1}},{{Text|3|#F580B1}},{{Text|3|#F580B1}},{{Text|3|#F580B1}}
-{{Cl|DATA}} l2g>ge,l2p2de,l2p2l6g3f#g3a,l6p6gab>dcced
+{{Cl|DATA}} l2g&gt;ge,l2p2de,l2p2l6g3f#g3a,l6p6gab&gt;dcced
-{{Cl|DATA}} <nowiki><b>e<e,ge<b,b3ab3ge3d,dgf#gd<bgab</nowiki>
+{{Cl|DATA}} &lt;b&gt;e&lt;e,ge&lt;b,b3ab3ge3d,dgf#gd&lt;bgab
-{{Cl|DATA}} ab>c,a>dc,e3f#g3de3<b,>cdedc<babg
+{{Cl|DATA}} ab&gt;c,a&gt;dc,e3f#g3de3&lt;b,&gt;cdedc&lt;babg
-{{Cl|DATA}} df#d,c<a>f#,a3>da3ga3f#,f#gadf#a>c<ba
+{{Cl|DATA}} df#d,c&lt;a&gt;f#,a3&gt;da3ga3f#,f#gadf#a&gt;c&lt;ba
-{{Cl|DATA}} gec,g<g>e,d3f#g3f#g3a,bgab>dcced
+{{Cl|DATA}} gec,g&lt;g&gt;e,d3f#g3f#g3a,bgab&gt;dcced
-{{Cl|DATA}} <b>ed,ge<b,b3ab3ge3g,dgf#gd<bgab
+{{Cl|DATA}} &lt;b&gt;ed,ge&lt;b,b3ab3ge3g,dgf#gd&lt;bgab
-{{Cl|DATA}} cc#d,>ced,a3f#g3e<a3>c,e>dc<bagdgf#
+{{Cl|DATA}} cc#d,&gt;ced,a3f#g3e&lt;a3&gt;c,e&gt;dc&lt;bagdgf#
-{{Cl|DATA}} <gp3>g6d3<b6,dp2b3g6,<b3>gb3>dg3d,gb>dgd<bgb>d
+{{Cl|DATA}} &lt;gp3&gt;g6d3&lt;b6,dp2b3g6,&lt;b3&gt;gb3&gt;dg3d,gb&gt;dgd&lt;bgb&gt;d
-{{Cl|DATA}} g>f#e,d<gg,l2<g1g,l2<b1>c
+{{Cl|DATA}} g&gt;f#e,d&lt;gg,l2&lt;g1g,l2&lt;b1&gt;c
 {{Cl|DATA}} f#ed,agf#,a1b,d1d
-{{Cl|DATA}} ef#g,gag,bag,c1<b
+{{Cl|DATA}} ef#g,gag,bag,c1&lt;b
-{{Cl|DATA}} dp3d6d3d6,f#a3a6>d3d6,al6d3ef#3g,l6adef#aga>c<b
+{{Cl|DATA}} dp3d6d3d6,f#a3a6&gt;d3d6,al6d3ef#3g,l6adef#aga&gt;c&lt;b
-{{Cl|DATA}} <d>p3d6d3d6,f#3a6f#3d6<a3>d6,a3>c<a3f#d3f#,>c<af#df#a>c<ba
+{{Cl|DATA}} &lt;d&gt;p3d6d3d6,f#3a6f#3d6&lt;a3&gt;d6,a3&gt;c&lt;a3f#d3f#,&gt;c&lt;af#df#a&gt;c&lt;ba
-{{Cl|DATA}} gf#e,dde,g3dg3f#g3a,bgab>dcced
+{{Cl|DATA}} gf#e,dde,g3dg3f#g3a,bgab&gt;dcced
-{{Cl|DATA}} b<b>e,gd<b,b3ag3f#e3g,dgf#gd<bgab
+{{Cl|DATA}} b&lt;b&gt;e,gd&lt;b,b3ag3f#e3g,dgf#gd&lt;bgab
-{{Cl|DATA}} cd<d,l4>c<a>d<b>c<al2,a3gf#3ga3c,e>dc<bagdgf#
+{{Cl|DATA}} cd&lt;d,l4&gt;c&lt;a&gt;d&lt;b&gt;c&lt;al2,a3gf#3ga3c,e&gt;dc&lt;bagdgf#
-{{Cl|DATA}} g>ge,b>de,<b3>dg3f#g3a,gbab>dcced
+{{Cl|DATA}} g&gt;ge,b&gt;de,&lt;b3&gt;dg3f#g3a,gbab&gt;dcced
-{{Cl|DATA}} <b>e<e,ge<b,b3ab3ge3d,dgf#gd<bgab
+{{Cl|DATA}} &lt;b&gt;e&lt;e,ge&lt;b,b3ab3ge3d,dgf#gd&lt;bgab
-{{Cl|DATA}} ab>c,a>dc,e3f#g3de3<b,>cdedc<babg
+{{Cl|DATA}} ab&gt;c,a&gt;dc,e3f#g3de3&lt;b,&gt;cdedc&lt;babg
-{{Cl|DATA}} df#d,c<a>f#,a3>f#a3ga3f#,f#gadf#a>c<ba
+{{Cl|DATA}} df#d,c&lt;a&gt;f#,a3&gt;f#a3ga3f#,f#gadf#a&gt;c&lt;ba
-{{Cl|DATA}} gec,g<g>e,d3f#g3f#g3a,bgab>dcced
+{{Cl|DATA}} gec,g&lt;g&gt;e,d3f#g3f#g3a,bgab&gt;dcced
-{{Cl|DATA}} <b>ed,ge<b,b3ab3ge3g,dgf#gd<bgab
+{{Cl|DATA}} &lt;b&gt;ed,ge&lt;b,b3ab3ge3g,dgf#gd&lt;bgab
-{{Cl|DATA}} cc#d,>ced,a3f#g3e<a3>c,e>dc<bagdgf#
+{{Cl|DATA}} cc#d,&gt;ced,a3f#g3e&lt;a3&gt;c,e&gt;dc&lt;bagdgf#
-{{Cl|DATA}} <g>f#e,d<gg,l2b1>c,l2g1g
+{{Cl|DATA}} &lt;g&gt;f#e,d&lt;gg,l2b1&gt;c,l2g1g
 {{Cl|DATA}} f#ed,agf#,d1d,a1b
-{{Cl|DATA}} ef#g,gag,c1<b,bag
+{{Cl|DATA}} ef#g,gag,c1&lt;b,bag
-{{Cl|DATA}} dp3d6d3d6,f#l6a3a>d3d,al6d3ef#3g,l6ddef#aga>c<b
+{{Cl|DATA}} dp3d6d3d6,f#l6a3a&gt;d3d,al6d3ef#3g,l6ddef#aga&gt;c&lt;b
-{{Cl|DATA}} <dp3>d6d3d6,f#3af#3d<a3>d,a3>c<a3f#d3f#,>c<af#df#a>c<ba
+{{Cl|DATA}} &lt;dp3&gt;d6d3d6,f#3af#3d&lt;a3&gt;d,a3&gt;c&lt;a3f#d3f#,&gt;c&lt;af#df#a&gt;c&lt;ba
-{{Cl|DATA}} gf#e,l2dde,l2b1>c,bgab>dcced
+{{Cl|DATA}} gf#e,l2dde,l2b1&gt;c,bgab&gt;dcced
-{{Cl|DATA}} b<b>e,gd<b,d1<b,dgf#gd<bgab
+{{Cl|DATA}} b&lt;b&gt;e,gd&lt;b,d1&lt;b,dgf#gd&lt;bgab
-{{Cl|DATA}} cd<d,l4>c<a>d<b>c<a,a4b8>c8<ba,e>dc<bagdgf#
+{{Cl|DATA}} cd&lt;d,l4&gt;c&lt;a&gt;d&lt;b&gt;c&lt;a,a4b8&gt;c8&lt;ba,e&gt;dc&lt;bagdgf#
-{{Cl|DATA}} g>ge,l2b>de,l6g3dg3f#g3a,gbab>dcced
+{{Cl|DATA}} g&gt;ge,l2b&gt;de,l6g3dg3f#g3a,gbab&gt;dcced
-{{Cl|DATA}} <b>e<e,ge<b,b3ab3ge3d,dgf#gd<bgab
+{{Cl|DATA}} &lt;b&gt;e&lt;e,ge&lt;b,b3ab3ge3d,dgf#gd&lt;bgab
-{{Cl|DATA}} ab>c,a>dc,e3f#g3de3<b,>cdedc<babg
+{{Cl|DATA}} ab&gt;c,a&gt;dc,e3f#g3de3&lt;b,&gt;cdedc&lt;babg
-{{Cl|DATA}} df#d,c<a>f#,a3>da3ga3f#,f#gadf#a>c<ba
+{{Cl|DATA}} df#d,c&lt;a&gt;f#,a3&gt;da3ga3f#,f#gadf#a&gt;c&lt;ba
-{{Cl|DATA}} gec,g<g>e,d3f#g3f#g3a,bgab>dcced
+{{Cl|DATA}} gec,g&lt;g&gt;e,d3f#g3f#g3a,bgab&gt;dcced
-{{Cl|DATA}} <b>ed,ge<b,b3ab3ge3g,dgf#gd<bgab
+{{Cl|DATA}} &lt;b&gt;ed,ge&lt;b,b3ab3ge3g,dgf#gd&lt;bgab
-{{Cl|DATA}} cc#d,>ced,a3f#g3e<a3>c,e>dc<bagdgf#
+{{Cl|DATA}} cc#d,&gt;ced,a3f#g3e&lt;a3&gt;c,e&gt;dc&lt;bagdgf#
-{{Cl|DATA}} <gp3>g6f#3e6,dp3g6d3e6,<b3>gb3>dg3<g,gb>dgd<bdb>c#
+{{Cl|DATA}} &lt;gp3&gt;g6f#3e6,dp3g6d3e6,&lt;b3&gt;gb3&gt;dg3&lt;g,gb&gt;dgd&lt;bdb&gt;c#
-{{Cl|DATA}} dc<b,f#dd,l2a1b,d<def#ag#g#ba
+{{Cl|DATA}} dc&lt;b,f#dd,l2a1b,d&lt;def#ag#g#ba
-{{Cl|DATA}} a>a4g4f4e4,e<a>a,>c1c,a>c<b>c<aecde
+{{Cl|DATA}} a&gt;a4g4f4e4,e&lt;a&gt;a,&gt;c1c,a&gt;c&lt;b&gt;c&lt;aecde
-{{Cl|DATA}} d<b>e,aag#,<bb4>c8d8<b,f>dcd<bg#ef#g#
+{{Cl|DATA}} d&lt;b&gt;e,aag#,&lt;bb4&gt;c8d8&lt;b,f&gt;dcd&lt;bg#ef#g#
-{{Cl|DATA}} a>fd,e<a>f#,al6a3g#a3b,a>c<b>ceddfe
+{{Cl|DATA}} a&gt;fd,e&lt;a&gt;f#,al6a3g#a3b,a&gt;c&lt;b&gt;ceddfe
-{{Cl|DATA}} cfe,afc,>c3<b>c3<af3a,eag#aec<ab>c
+{{Cl|DATA}} cfe,afc,&gt;c3&lt;b&gt;c3&lt;af3a,eag#aec&lt;ab&gt;c
-{{Cl|DATA}} dd#e,df#e,a3g#a3f#<b3>d,fedc<baeag#
+{{Cl|DATA}} dd#e,df#e,a3g#a3f#&lt;b3&gt;d,fedc&lt;baeag#
-{{Cl|DATA}} <a>ab,c<ag,>l2c1d,a>ceap3l2d
+{{Cl|DATA}} &lt;a&gt;ab,c&lt;ag,&gt;l2c1d,a&gt;ceap3l2d
-{{Cl|DATA}} >c<ae,>cag,e1e,l6ecdegfgb-a
+{{Cl|DATA}} &gt;c&lt;ae,&gt;cag,e1e,l6ecdegfgb-a
-{{Cl|DATA}} fdg,df#g,dd4e8f8d,a>c<b>c<afdef
+{{Cl|DATA}} fdg,df#g,dd4e8f8d,a&gt;c&lt;b&gt;c&lt;afdef
-{{Cl|DATA}} cec,geg,l6c3<g>c3<ge3d,egfgec<gab-
+{{Cl|DATA}} cec,geg,l6c3&lt;g&gt;c3&lt;ge3d,egfgec&lt;gab-
-{{Cl|DATA}} fdg,fag,c3ef3ab3>d,a>c<b>c<afdef
+{{Cl|DATA}} fdg,fag,c3ef3ab3&gt;d,a&gt;c&lt;b&gt;c&lt;afdef
-{{Cl|DATA}} cp3c6<b3>d6,gp3d6d3d6,c3<g>c3<a>d3<f#,ecdegf#gba
+{{Cl|DATA}} cp3c6&lt;b3&gt;d6,gp3d6d3d6,c3&lt;g&gt;c3&lt;a&gt;d3&lt;f#,ecdegf#gba
-{{Cl|DATA}} <g>ge,dde,l2b1>c,bgab>dcced
+{{Cl|DATA}} &lt;g&gt;ge,dde,l2b1&gt;c,bgab&gt;dcced
-{{Cl|DATA}} <b>e<e,ge<b,d1d,dgf#gd<bgab
+{{Cl|DATA}} &lt;b&gt;e&lt;e,ge&lt;b,d1d,dgf#gd&lt;bgab
-{{Cl|DATA}} ab>c,a>dc,c<b1,>cdedc<babg
+{{Cl|DATA}} ab&gt;c,a&gt;dc,c&lt;b1,&gt;cdedc&lt;babg
-{{Cl|DATA}} dp3d6d3d6,cl6<a3a>d3d,l6a3c#d3ef#3g,f#def#aga>c<b
+{{Cl|DATA}} dp3d6d3d6,cl6&lt;a3a&gt;d3d,l6a3c#d3ef#3g,f#def#aga&gt;c&lt;b
-{{Cl|DATA}} <dp3>d6d3d6,f#3af#3d<a3>d,a3>c<a3f#d3f#,>c<af#df#a>c<ba
+{{Cl|DATA}} &lt;dp3&gt;d6d3d6,f#3af#3d&lt;a3&gt;d,a3&gt;c&lt;a3f#d3f#,&gt;c&lt;af#df#a&gt;c&lt;ba
-{{Cl|DATA}} gf#e,l2dde,l2b1>c,bgab>dcced
+{{Cl|DATA}} gf#e,l2dde,l2b1&gt;c,bgab&gt;dcced
-{{Cl|DATA}} b<b>e,gd<b,d1<b,dgf#gd<bgab
+{{Cl|DATA}} b&lt;b&gt;e,gd&lt;b,d1&lt;b,dgf#gd&lt;bgab
-{{Cl|DATA}} cd<d,l4>c<a>d<b>c<a,a4b8>c8<ba,e>dc<bagdgf#
+{{Cl|DATA}} cd&lt;d,l4&gt;c&lt;a&gt;d&lt;b&gt;c&lt;a,a4b8&gt;c8&lt;ba,e&gt;dc&lt;bagdgf#
-{{Cl|DATA}} g1g2,l2gp3>g6d3g6,gl6<b3>dg3d,gb>dgd<bgb>a
+{{Cl|DATA}} g1g2,l2gp3&gt;g6d3g6,gl6&lt;b3&gt;dg3d,gb&gt;dgd&lt;bgb&gt;a
-{{Cl|DATA}} g1g2,dp3g6e3c6,<b3g>d3b>c2,fd<bgb>ded<a
+{{Cl|DATA}} g1g2,dp3g6e3c6,&lt;b3g&gt;d3b&gt;c2,fd&lt;bgb&gt;ded&lt;a
-{{Cl|DATA}} g1g2,<ap3>d6<b3>e6,c3<ab2b3g,f#a>cd<bgegb
+{{Cl|DATA}} g1g2,&lt;ap3&gt;d6&lt;b3&gt;e6,c3&lt;ab2b3g,f#a&gt;cd&lt;bgegb
-{{Cl|DATA}} g1g2,<e3a6f#3>a6f#3d6,a2a3f#d3f#,>c<af#df#a>c<ba
+{{Cl|DATA}} g1g2,&lt;e3a6f#3&gt;a6f#3d6,a2a3f#d3f#,&gt;c&lt;af#df#a&gt;c&lt;ba
-{{Cl|DATA}} g>ge,dde,g3dg3f#g3a,bgab>dcced
+{{Cl|DATA}} g&gt;ge,dde,g3dg3f#g3a,bgab&gt;dcced
-{{Cl|DATA}} <b>e<e,ge<b,b3ab3ge3d,dgf#gd<bgab
+{{Cl|DATA}} &lt;b&gt;e&lt;e,ge&lt;b,b3ab3ge3d,dgf#gd&lt;bgab
-{{Cl|DATA}} ab>c,a>d<c,e3f#g3de3<b,>cdedc<babg
+{{Cl|DATA}} ab&gt;c,a&gt;d&lt;c,e3f#g3de3&lt;b,&gt;cdedc&lt;babg
-{{Cl|DATA}} df#d,c<a>f#,a3>da3ga3f#,f#gadf#a>c<ba
+{{Cl|DATA}} df#d,c&lt;a&gt;f#,a3&gt;da3ga3f#,f#gadf#a&gt;c&lt;ba
-{{Cl|DATA}} gec,g<g>e,d3f#g3f#g3a,bgab>dcced
+{{Cl|DATA}} gec,g&lt;g&gt;e,d3f#g3f#g3a,bgab&gt;dcced
-{{Cl|DATA}} <b>ed,ge<d,b3ab3ge3g,dgf#gd<bgab
+{{Cl|DATA}} &lt;b&gt;ed,ge&lt;d,b3ab3ge3g,dgf#gd&lt;bgab
-{{Cl|DATA}} cc#d,d1d2,a3f#g3e<a3>c,e>dc<bagdgf#
+{{Cl|DATA}} cc#d,d1d2,a3f#g3e&lt;a3&gt;c,e&gt;dc&lt;bagdgf#
-{{Cl|DATA}} <g1g2,p2,<b1b2,g1g2
+{{Cl|DATA}} &lt;g1g2,p2,&lt;b1b2,g1g2
 {{Cl|DATA}} p1,p1,p1,p1
 {{Cl|DATA}} x
@@ Line 300: / Line 300: @@
 {{Cl|END SUB}}
 {{CodeEnd}}
-{{Small|This is a QB64-PE port of an AmigaBasic example by a740g. German comments were translated to English by RhoSigma.}}
+{{Small|QB64-PE port of an AmigaBasic example by a740g. German comments translated by RhoSigma.}}
 {{PageSeeAlso}}
-* [[PLAY (function)]], [[PLAY]], [[SOUND]]
+* [[PLAY (function)]]
-* [[BEEP]]
+* [[PLAY]], [[SOUND]], [[BEEP]]
-* [[_SNDRAW]]
+* [[_SNDOPEN]], [[_SNDRAW]]
-* [[_SNDOPEN]]
 {{PageNavigation}}

WAVE: Difference between revisions

Latest revision as of 20:15, 21 November 2024

Contents

Syntax

Parameters

Description

Availability

Examples

See also

Navigation menu

WAVE: Difference between revisions

Latest revision as of 20:15, 21 November 2024

Syntax

Parameters

Description

Availability

Examples

See also

Navigation menu

Search