1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
|
=
TOC
Ruby/SDLȤˤɬ@[init]ǽɬפޤ@[init]ϡ
桼λꤷ٤ƤΥ֥ƥ(ӥǥǥ祤ƥå
ޡCD-ROMΤ줫뤤)뤳ȤǤޤ
== Methods
%%%
NAME init
TYPE .
PURPOSE SDLޤ
PROTO
init(flags)
DESC
SDLޤ
٤ƤRuby/SDLΥåɤƤӽФˤδؿƤФʤФޤ
$[flags]ˤSDLΤɤʬ뤫ꤷޤ
:SDL::INIT_AUDIO
ǥ֥ƥ(ϵǽ)
:SDL::INIT_VIDEO
ӥǥ֥ƥ(ϵǽȥܡɡޥϵǽ)
:SDL::INIT_CDROM
CDROM֥ƥ(CDǽ)
:SDL::INIT_JOYSTICK
祤ƥå֥ƥ(祤ƥåϵǽ)
:SDL::INIT_EVERYTHING
˵ǽƽޤ
EXCEPTION
Ԥ㳰@[Error]ȯޤ
%%
NAME quit
TYPE .
PURPOSE SDLåȥޤ
PROTO
quit
DESC
ƤSDL֥ƥåȥ餬ݤ٤Ʋ
ޤ̾ϼưǸƤФ뤿桼Ū˸ƤӤɬפϤޤ
SDLRuby/SDLλͤɬפʾΤȤäƤ
%%
NAME inited_system
TYPE .
PURPOSE ֥ƥबƤ뤫ɤåޤ
RVAL UINT
PROTO
inited_system(flags)
initedSystem(flags)
DESC
ϡɤSDL֥ƥब@[Ƥ뤫|init]𤷤ޤ
$[flags]ˤϡĴ٤֥ƥ¤ꤷޤ
(Ǥ륵֥ƥΥե饰ˤĤƤ@[init]ιȤƤ)
RET
Ƥ륵֥ƥ¤֤ޤ
EXAMPLE
# SDL.inited_systemλȤ
# ƤΥ֥ƥν֤ޤ
subsystem_init = SDL.inited_system(SDL::INIT_EVERYTHING)
if subsystem_init & SDL::INIT_VIDEO
puts "ӥǥϽƤޤ"
else
puts "ӥǥϽƤޤ"
end
# 1ĤΥ֥ƥåޤ
if SDL.inited_system(SDL::INIT_VIDEO) != 0
puts "ӥǥϽƤޤ"
else
puts "ӥǥϽƤޤ"
end
# 2ĤΥ֥ƥåޤ
subsystem_mask = SDL::INIT_VIDEO|SDL::INIT_AUDIO;
if SDL.inited_system(subsystem_mask) == subsystem_mask
puts "ӥǥȥǥϤɤƤޤ"
else
puts "ӥǥȥǥΤɤ餫ޤξƤޤ"
end
SEEALSO
init
%%
NAME getenv
TYPE .
PURPOSE Ķѿޤ
RVAL String
PROTO
getenv(var)
DESC
$[var]ǻꤷĶѿޤ
RET
Ķѿͤʸ֤ޤ
%%
NAME putenv
TYPE .
PURPOSE Ķѿѹޤ
PROTO
putenv(string)
DESC
ĶѿɲäޤͤѹԤޤ$[string] "name=value"
Ȥޤ
WindowsSDL_WINDOWIDSDL_VIDEODRIVERȤäĶѿȤä
SDLμ¹Ԥ˱ƶͿȤѤޤ
SDLλͤˤWindowsǤ ENV ľѹƤ⤳εǽȤ
ʤᤳΤ褦ʴؿ¸ߤޡUnixǤ ENV ȤΤƱ
̤ޤ
EXCEPTION
Իˤ㳰@[Error]ȯޤ
EXAMPLE
# http://moriq.tdiary.net/20051006.html
# Ruby/SDL Apolloʻ
require 'phi'
require 'sdl'
# ե
form = Phi::Form.new
$terminated = false
form.on_close{ $terminated = true }
form.caption = "Ruby/SDL on Phi::Form"
# ѥͥեξ˺
panel = Phi::Panel.new(form)
panel.align = Phi::AL_LEFT
# WINDOWID hackȤѥͥSDLΥɥΤ
SDL.putenv("SDL_VIDEODRIVER=windib")
SDL.putenv("SDL_WINDOWID=#{panel.handle}")
form.show
# SDLΤνʤ
SDL.init(SDL::INIT_VIDEO)
screen = SDL.setVideoMode(640, 480, 16, SDL::SWSURFACE)
# ᥤ롼סȤꤢ⤷ʤ
unless $terminated
while event = SDL::Event2.poll
case event
when SDL::Event2::KeyDown, SDL::Event2::Quit
exit
end
end
sleep 0.05
end
|
