note description: "Summary description for {MIX}." author: "" date: "$Date$" revision: "$Revision$" class MIX inherit SDL_MIXER_FUNCTIONS_API rename mix_load_mus as mix_load_mus_api, mix_playing_music as mix_playing_music_api end create default_create feature mix_play_channel (channel: INTEGER_32; chunk: MIX_CHUNK_STRUCT_API; loops: INTEGER_32): INTEGER_32 do Result := mix_play_channel_timed (channel, chunk, loops, -1) ensure instance_free: class end mix_max_volume: like {SDL_CONSTANT_API}.Sdl_mix_maxvolume do Result := {SDL_CONSTANT_API}.sdl_mix_maxvolume ensure instance_free: class end mix_load_mus (file: STRING_8): detachable MIX_MUSIC_STRUCT_API local p: POINTER do p := mix_load_mus_api ((create {C_STRING}.make (file)).item) if p /= default_pointer then create Result.make_by_pointer (p) end ensure instance_free: class end mix_playing_music: BOOLEAN do Result := mix_playing_music_api /= 0 ensure instance_free: class end end -- class MIX
Generated by ISE EiffelStudio