steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

audio.engine: Rename audio-orientation

db4
Doug Coleman 2013-03-23 23:13:10 -07:00
parent c9e9a5985a
commit c586ecec56
3 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/audio/engine/engine-docs.factor
View File

@ -10,12 +10,12 @@ HELP: <audio-engine>
}
{ $description "Constructs an " { $link audio-engine } " instance capable of playing " { $snippet "voice-count" } " simultaneous clips. The OpenAL device named " { $snippet "device-name" } " will be used, or the default device if " { $snippet "device-name" } " is " { $link f } ". An error will be thrown if the engine cannot be initialized. The engine is returned in the stopped state; to start audio processing, use " { $link start-audio } " or " { $link start-audio* } "." } ;
HELP: <audio-orientation>
HELP: <audio-orientation-state>
{ $values
{ "forward" "a sequence of 3 floats" } { "up" "a sequence of 3 floats" }
{ "audio-orientation" audio-orientation }
{ "audio-orientation" audio-orientation-state }
}
{ $description "Constructs an " { $link audio-orientation } " tuple." } ;
{ $description "Constructs an " { $link audio-orientation-state } " tuple." } ;
HELP: <standard-audio-engine>
{ $values

8
extra/audio/engine/engine.factor
View File

@ -15,11 +15,11 @@ TUPLE: audio-source
{ distance float initial: 1.0 }
{ rolloff float initial: 1.0 } ;
TUPLE: audio-orientation
TUPLE: audio-orientation-state
{ forward initial: { 0.0 0.0 -1.0 } }
{ up initial: { 0.0 1.0 0.0 } } ;
C: <audio-orientation> audio-orientation
C: <audio-orientation-state> audio-orientation-state
: orientation>float-array ( orientation -- float-array )
[ forward>> first3 ]
@ -29,7 +29,7 @@ TUPLE: audio-listener
{ position initial: { 0.0 0.0 0.0 } }
{ gain float initial: 1.0 }
{ velocity initial: { 0.0 0.0 0.0 } }
{ orientation initial: T{ audio-orientation } } ;
{ orientation initial: T{ audio-orientation-state } } ;
GENERIC: audio-position ( source/listener -- position )
GENERIC: audio-gain ( source/listener -- gain )
@ -45,7 +45,7 @@ M: object audio-velocity drop { 0.0 0.0 0.0 } ; inline
M: object audio-relative? drop f ; inline
M: object audio-distance drop 1.0 ; inline
M: object audio-rolloff drop 1.0 ; inline
M: object audio-orientation drop T{ audio-orientation } ; inline
M: object audio-orientation drop T{ audio-orientation-state } ; inline
M: audio-source audio-position position>> ; inline
M: audio-source audio-gain gain>> ; inline

3
extra/gpu/util/wasd/wasd.factor
View File

@ -97,7 +97,8 @@ CONSTANT: fov 0.7
{ 1.0 0.0 0.0 } n*v eye-rotate ;
M: wasd-world audio-position location>> ; inline
M: wasd-world audio-orientation forward-vector { 0.0 1.0 0.0 } <audio-orientation> ; inline
M: wasd-world audio-orientation
forward-vector { 0.0 1.0 0.0 } <audio-orientation-state> ; inline
: walk-forward ( world -- )
dup forward-vector [ v+ ] curry change-location drop ;