Mercurial > pub > dyncall > bindings

view R/rdyncall/demo/playtune.R @ 63:9b6cdffd30dd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
- further fixes of inccorect overflow errors for int (and long on LLP64 systems) * prev commit had bugs * added overflow tests for also int, long, long long (for both, lp64 and llp64) - while at it, fixing a reference leak when not using python with utf8 caching
author Tassilo Philipp
date Sun, 19 May 2024 15:33:18 +0200
parents 0cfcc391201f
children
line wrap: on
line source


# Package: rdyncall 
# File: demo/playtune.R
# Description: play a nice oldsch00l tune.
# Uses: SDL/audio, SDL_mixer

rsrc <- function(name) system.file(paste("demo-files",name,sep=.Platform$file.sep), package="rdyncall")
music <- NULL
init <- function()
{
  require(rdyncall)
  dynport(SDL)
  SDL_Init(SDL_INIT_AUDIO)
  dynport(SDL_mixer)
  Mix_OpenAudio(MIX_DEFAULT_FREQUENCY, MIX_DEFAULT_FORMAT, 2, 4096)
  music <<- Mix_LoadMUS(rsrc("external.xm"))
}
cleanup <- function()
{
  stopTune()
  Mix_FreeMusic(music)
  Mix_CloseAudio()
  SDL_Quit()
}

playTune <- function() {
  Mix_PlayMusic(music, 1) 
  cat("playing music... [to stop, call 'stopTune()']\n")
}
pauseTune <- function() Mix_PauseMusic()
stopTune <- function() Mix_HaltMusic()  

init()
playTune()