= CD-ROM
* ((<CD-ROMǽ>))
* ((<SDL::CD>))
* ((<CD-ROMϢ᥽å>))
TOC

== CD-ROMǽ
SDL ϰ٤ 32 ޤǤΥ CD-ROM ɥ饤֤
ǥ򥵥ݡȤޤ

ȥåμߤ CD-ROM μФޤࡢ
CD ץ졼ƤδŪʵǽ¹Ԥ뤿ˤ API Ȥޤ
(ߤϥޥ󥸥㡼 CD ɥ饤֤ϥݡȤƤޤ)

Ruby/SDL Τɤ CD-ROM Ϣ᥽åɤƤˡ
ޤ @[init](SDL::INIT_CDROM) ƤФʤФޤ
 CD-ROM ɥ饤֤õƥƥ򥹥󤷡
ץबǥǤ褦åȥåפޤ

饤֥ϡ
@[CD.num_drives] Ȥä
Ѳǽʥɥ饤֤Ĥ뤫Τ뤳ȤǤޤ
ꥹȤκǽΥɥ饤֤ϥǥե CD-ROM ɥ饤֤Ǥ
ɥ饤֤򤷡@[CD.open] ǥץ󤷤ϡ
ơå CD ɥ饤֤ˤʤ򳫻Ϥ뤳ȤǤޤ

CD-ROM  1 ĤޤϤʾΥȥåǹ졢
ġΥȥåϤΡ֥ե졼פǹƤޤ
ե졼 CD δåǡñ̤ǡ
줾Υե졼ϥˤ 2K Ǥꡢ
CD ̾κԡɤˤ 1 ô֤ 75(= SDL::CD::FPS)
ե졼ޤ
SDL  CD Υե졼Ȥäưޤ
@[CD.frames_to_msf] ȤȤǡ
긫줿ʬ/äΥեޥåȤ˴ñѴ뤳ȤǤޤ
ޤѴεդ @[CD.msf_to_frames] ǤǤޤ

== SDL::CD
@[CD.open] ˤäƥץ󤵤줿 CDROM ǥХɽ
ǥˤȥåΥ쥤ȤξǼޤ

== CD-ROMϢ᥽å
%%%
NAME num_drives
MOD CD
TYPE .
PURPOSE ƥ CD-ROM ο֤ޤ
RVAL Integer

PROTO
num_drives
numDrives

DESC
ƥ CD-ROM ο֤ޤ

SEEALSO
CD.open

%%
NAME index_name
MOD CD
TYPE .
PURPOSE CD-ROM ˤĤơʹ֤ɤ륷ƥ¸ ID ֤ޤ
RVAL String

PROTO
index_name(drive)
indexName(drive)

DESC
CD-ROM ˤĤơʹ֤ɤ륷ƥ¸ ID ʸ֤ޤ
$[drive] ϥɥ饤֤ΥǥåֹǤ
ǥåֹ 0 ǻϤޤꡢ@[CD.num_drives]-1 
ޤ

֤ͤ㤨аʲΤ褦ʸǤ
* "/dev/cdrom"
* "E:"
* "/dev/disk/ide/1/master"

SEEALSO
CD.num_drives

%%
NAME open
MOD CD
TYPE .
PURPOSE CD-ROM ɥ饤֤˥뤿˥ץ󤷤ޤ
RVAL SDL::CD

PROTO
open(drive)

DESC
CD-ROM ɥ饤֤˥뤿˥ץ󤷤ޤ
 @[CD] Υ󥹥󥹤֤ޤ

EXCEPTION
ɥ饤֤ʤӥ֤ΤȤ㳰 @[Error] ȯޤ

EXAMPLE
SDL.init SDL::INIT_CDROM

# CD ɥ饤֤å 
if SDL::CD.num_drives == 0
  # Ĥʤä 
  STDERR.print "Ѳǽ CDROM ǥХޤ\n"
  exit 255
end

begin
  # ǥեȥɥ饤֤򥪡ץ
  cdrom = SDL::CD.open(0)
rescue SDL::Error
  # ץǤʤä
  STDERR.puts "ɥ饤֤ץǤޤǤ"
  exit 255
end

# ܥ塼ξɽ 
printf "̾: %s\n", SDL::CD.index_name(0)
printf "ȥå: %d\n", cdrom.num_tracks
num_tracks.times do |cur_track|
  min, sec, frame = SDL::CD.frames_to_msf(cdrom.track_length(cur_track))
  printf "\tȥå %d: Ĺ %d:%d\n", cur_track, min, sec
end

%%
NAME status
MOD CD
TYPE #
PURPOSE ꤵ줿ɥ饤֤θߤξ֤֤ޤ
RVAL UINT

PROTO
status

DESC
δؿϻꤵ줿ɥ饤֤θߤξ֤֤ޤ
֤ϼΤ줫Ǥ
* SDL::CD::TRAYEMPTY
* SDL::CD::STOPPED
* SDL::CD::PLAYING
* SDL::CD::PAUSED
* SDL::CD::ERROR

ɥ饤֤ CD äƤȡ
@[current_track], @[current_frame], @[num_tracks], @[track_type],
@[track_lenght]ξ󤬹ޤ

EXAMPLE
def play_track(track)
  raise "not cd in drive" unless $cdrom.in_drive?

  # ºݤ CD ΥȥåڤΤ
  track = $cdrom.num_tracks-1 if track >= $cdrom.num_tracks
  $cdrom.play_tracks(track, 0, 1, 0)
end

%%
NAME play
MOD CD
TYPE #
PURPOSE CD ޤ

PROTO
play(start, length)

DESC
$[self] ǼCD
ե졼 $[start]
$[length] ե졼
ޤ

EXCEPTION *

SEEALSO
CD#play_tracks

%%
NAME play_tracks
MOD CD
TYPE #
PURPOSE ꤵ줿 CD ȥåޤ

PROTO
play_tracks(start_track, start_frame, ntracks, nframes)

DESC
$[start_track] ܤΥȥå
$[ntracks] ȥåʬ
ꤵ줿 CD ޤ

$[start_frame] 
Ϥ $[start_track] Ƭ
ե졼ΥեåͤǤ
$[nframes] 
λǸΥȥå
($[start_track]+$[ntracks]) 
Ƭե졼ΥեåͤǤ

Υ᥽åɤϡ@[CD#status]
Ƥ CD ΥȥåˤΤߡƤ֤٤Ǥ

NOTES
ǡȥå̵뤵ޤ

EXCEPTION *

EXAMPLE
# ä cdrom ץ󤵤줿ǥХȲ 
# CD Τ 
if cdrom.in_drive?
  cdrom.play_tracks 0, 0, 0, 0
end
# ǽΥȥå 
if cdrom.in_drive?
  cdrom.play_tracks 0, 0, 1, 0
end
# 2 ܤΥȥåκǽ餫 15 ä 
if cdrom.in_drive?
  cdrom.play_tracks 1, 0, 0, SDL::CD::FPS*15
end
SEEALSO
CD#play
CD#status

%%
NAME pause
MOD CD
TYPE #
PURPOSE CD-ROM κߤޤ

PROTO
pause

DESC
ꤵ줿 CD-ROM κߤޤ

EXCEPTION *

SEEALSO
CD#play
CD#resume

%%
NAME resume
MOD CD
TYPE #
PURPOSE CD-ROM κƳޤ

PROTO
resume

DESC
ꤷ CD-ROM κƳޤ

EXCEPTION *

SEEALSO
CD#play
CD#pause

%%
NAME stop
MOD CD
TYPE #
PURPOSE CD-ROM κߤޤ

PROTO
stop

DESC
ꤵ줿 CD-ROM κߤޤ

EXCEPTION *

SEEALSO
CD#play

%%
NAME eject
MOD CD
TYPE #
PURPOSE CD-ROM Фޤ

PROTO
eject

DESC
ꤵ줿 CD-ROM Фޤ

EXCEPTION *

%%
NAME num_tracks
MOD CD
TYPE #
PURPOSE CD Υȥå֤ޤ
RVAL Integer

PROTO
num_tracks
numTracks

DESC
ꤵ줿 CD-ROM Υȥå֤ޤ
@[CD#status]Ƥޤ

SEEALSO
CD#status

%%
NAME current_track
MOD CD
TYPE #
PURPOSE ߤΥȥå֤ޤ
RVAL Integer

PROTO
current_track
currentTrack

DESC
ꤵ줿 CD-ROM θߤΥȥå֤ޤ
@[CD#status]Ƥޤ

SEEALSO
CD#status

%%
NAME current_frame
MOD CD
TYPE #
PURPOSE ȥåθߤΥե졼४եå֤ͤޤ
RVAL Integer

PROTO
current_frame
currentFrame

DESC
ꤵ줿 CD-ROM Υȥåθ߱դƤե졼४եå֤ͤޤ
@[CD#status]Ƥޤ

SEEALSO
CD#status

%%
NAME track_type
MOD CD
TYPE #
PURPOSE ȥåμ֤ޤ
RVAL UINT

PROTO
track_type(track)
trackType(track)

DESC
$[track] ǻꤷȥåμ֤ޤ
SDL::CD::AUDIO_TRACK  SDL::CD::DATA_TRACK Τ줫֤ޤ

%%
NAME track_length
MOD CD
TYPE #
PURPOSE ȥåĹ֤ޤ
RVAL Integer

PROTO
track_length(track)
trackLength(track)

DESC
$[track] ǻꤷȥåĹե졼ñ̤֤ޤ

%%
NAME in_drive?
MOD CD
TYPE #
PURPOSE ɥ饤֤˥ǥ뤫ɤĴ٤ޤ
RVAL true/false

PROTO
in_drive?

DESC
ɥ饤֤˥ǥʤ true ֤ޤ

SEEALSO
CD#status

%%
NAME frames_to_msf
MOD CD
TYPE .
PURPOSE ե졼ʬ//ե졼ʬ򤷤ޤ
RVAL [Integer, Integer, Integer]

PROTO
frames_to_msf(frames)
framesToMSF(frames)

DESC
ե졼ʬ//ե졼Ѵ[ʬ, , ե졼] Ȥ3Ĥ
ˤ֤ޤ

SEEALSO
CD.msf_to_frames

%%
NAME msf_to_frames
MOD CD
TYPE .
PURPOSE ʬ//ե졼Ȥͤե졼Ѵޤ
RVAL Integer

PROTO
msf_to_frames(min, sec, frames)
MSFToFrames(min, sec, frames)

DESC
ʬ//ե졼Ȥͤե졼Ѵޤ

SEEALSO
CD.frames_to_msf

%%
NAME close
MOD CD
TYPE #
PURPOSE CDǥХ򥯥ޤ

PROTO
close

DESC 
$[self]򥯥ޤ

SEEALSO
CD.open
CD#closed?

%%
NAME closed?
MOD CD
TYPE #
PURPOSE CDǥХ줿ɤ֤ޤ

PROTO
closed?

DESC 
@[CD#close]ˤäƥǥХ줿ɤ
֤ޤ

SEEALSO
CD#close