2021-12-18 02:02:16 +01:00
|
|
|
Class {
|
|
|
|
#name : #DiyaBoot,
|
|
|
|
#superclass : #DiyaBaseObject,
|
2021-12-19 12:32:23 +01:00
|
|
|
#instVars : [
|
|
|
|
'running',
|
|
|
|
'window',
|
|
|
|
'renderer'
|
|
|
|
],
|
|
|
|
#classVars : [
|
|
|
|
'singleton'
|
|
|
|
],
|
|
|
|
#pools : [
|
|
|
|
'SDL2Constants',
|
|
|
|
'SDL2Types'
|
|
|
|
],
|
|
|
|
#category : #'Diya-Core'
|
2021-12-18 02:02:16 +01:00
|
|
|
}
|
|
|
|
|
2021-12-19 12:32:23 +01:00
|
|
|
{ #category : #'instance creation' }
|
2021-12-18 02:02:16 +01:00
|
|
|
DiyaBoot class >> startUp: status [
|
2021-12-18 22:49:03 +01:00
|
|
|
self startx.
|
2021-12-18 02:02:16 +01:00
|
|
|
]
|
|
|
|
|
2021-12-19 12:32:23 +01:00
|
|
|
{ #category : #'instance creation' }
|
2021-12-18 22:49:03 +01:00
|
|
|
DiyaBoot class >> startx [
|
2021-12-19 12:32:23 +01:00
|
|
|
self uniqueInstance eventLoop
|
|
|
|
]
|
|
|
|
|
|
|
|
{ #category : #'instance creation' }
|
|
|
|
DiyaBoot class >> uniqueInstance [
|
|
|
|
singleton ifNil: [ singleton := self new ].
|
|
|
|
^ singleton
|
|
|
|
]
|
|
|
|
|
|
|
|
{ #category : #events }
|
|
|
|
DiyaBoot >> checkDrivers [
|
|
|
|
|ndriver usableDrivers|
|
|
|
|
ndriver := SDL2 SDLGetNumVideoDrivers.
|
|
|
|
usableDrivers := OrderedCollection new.
|
|
|
|
Transcript show: 'Available drivers: '.
|
|
|
|
0 to: ndriver - 1 do: [ :i | |dname|
|
|
|
|
dname := SDL2 SDLGetVideoDriver: i.
|
|
|
|
Transcript show: dname, ' '.
|
|
|
|
(SDL2 SDLVideoInit: dname) = 0 ifTrue:[
|
|
|
|
usableDrivers add: dname.
|
|
|
|
SDL2 SDLVideoQuit
|
|
|
|
]
|
|
|
|
].
|
|
|
|
Transcript cr.
|
|
|
|
|
|
|
|
]
|
|
|
|
|
|
|
|
{ #category : #events }
|
|
|
|
DiyaBoot >> createRenderer [
|
|
|
|
|numdriver rinfo|
|
|
|
|
numdriver := SDL2 SDLGetNumRenderDrivers.
|
|
|
|
Transcript show: 'SDL_RENDER_DRIVER available:'.
|
|
|
|
rinfo := SDL_RendererInfo externalNew autoRelease.
|
|
|
|
0 to: numdriver - 1 do:[:i|
|
|
|
|
SDL2 SDLGetRendererDriverInfo: rinfo from: i.
|
|
|
|
Transcript show: rinfo name readString, ' '.
|
|
|
|
].
|
|
|
|
Transcript cr.
|
|
|
|
renderer := window primCreateRenderer: -1 flags: SDL_RENDERER_ACCELERATED.
|
|
|
|
renderer ifNil: [ ^self error: SDL2 getErrorMessage ].
|
|
|
|
renderer primGetRendererInfo: rinfo.
|
|
|
|
Transcript show: 'SDL_RENDER_DRIVER selected: ', rinfo name readString;cr.
|
|
|
|
^renderer
|
|
|
|
|
|
|
|
]
|
|
|
|
|
|
|
|
{ #category : #events }
|
|
|
|
DiyaBoot >> createWindow [
|
|
|
|
|handle|
|
|
|
|
handle := SDL2 createWindow: 'Diya test'
|
|
|
|
x: 0
|
|
|
|
y: 0
|
|
|
|
width: 480
|
|
|
|
height: 640
|
|
|
|
flags: SDL_WINDOW_SHOWN.
|
|
|
|
handle ifNil: [ ^self error: SDL2 getErrorMessage ].
|
|
|
|
"handle fullscreen: SDL_WINDOW_FULLSCREEN."
|
|
|
|
^handle
|
|
|
|
]
|
|
|
|
|
|
|
|
{ #category : #events }
|
|
|
|
DiyaBoot >> eventLoop [
|
|
|
|
| dm|
|
|
|
|
self init.
|
|
|
|
Transcript show: 'Current selected video driver ', (SDL2 SDLGetCurrentVideoDriver); cr.
|
|
|
|
dm := SDL_DisplayMode externalNew autoRelease.
|
|
|
|
SDL2 SDLGetCurrentDisplayMode: dm from:0.
|
|
|
|
Transcript show: dm w asString, 'x',dm h asString;cr.
|
|
|
|
window := self createWindow.
|
|
|
|
renderer := self createRenderer.
|
|
|
|
self render: renderer.
|
|
|
|
renderer destroy.
|
|
|
|
window destroy.
|
|
|
|
SDL2 quit.
|
|
|
|
Transcript show: 'System quit'
|
|
|
|
]
|
|
|
|
|
|
|
|
{ #category : #events }
|
|
|
|
DiyaBoot >> init [
|
|
|
|
| tmp1 |
|
|
|
|
tmp1 := SDL2 init: SDL_INIT_EVERYTHING.
|
|
|
|
tmp1 = 0
|
|
|
|
ifFalse: [ ^ self error: SDL2 getErrorMessage ]
|
|
|
|
]
|
|
|
|
|
|
|
|
{ #category : #events }
|
|
|
|
DiyaBoot >> initialize [
|
|
|
|
running := true
|
|
|
|
]
|
|
|
|
|
|
|
|
{ #category : #events }
|
|
|
|
DiyaBoot >> processEvent: event [
|
|
|
|
|mappedEvt|
|
|
|
|
mappedEvt := event mapped.
|
|
|
|
mappedEvt type = SDL_KEYDOWN ifTrue: [ Transcript show: 'keydown...'. running := false. ].
|
|
|
|
mappedEvt type = SDL_QUIT ifTrue:[ running:= false ].
|
|
|
|
mappedEvt type = SDL_FINGERDOWN ifTrue:[window warpMouseX:((mappedEvt x)* 480 )Y: ((mappedEvt y) * 640)].
|
|
|
|
mappedEvt type = SDL_FINGERMOTION ifTrue:[window warpMouseX:((mappedEvt x)* 480 )Y: ((mappedEvt y) * 640)].
|
|
|
|
]
|
|
|
|
|
|
|
|
{ #category : #events }
|
|
|
|
DiyaBoot >> randomColorChannel [
|
|
|
|
| rand |
|
|
|
|
rand := Random new.
|
|
|
|
rand := (rand next) * 255.
|
|
|
|
rand := rand asInteger.
|
|
|
|
^ rand
|
|
|
|
]
|
|
|
|
|
|
|
|
{ #category : #events }
|
|
|
|
DiyaBoot >> render: renderer [
|
|
|
|
|event|
|
|
|
|
event := SDL_Event new.
|
|
|
|
[ running ] whileTrue: [
|
|
|
|
[ (SDL2 pollEvent: event) > 0 ] whileTrue: [
|
|
|
|
self processEvent: event
|
|
|
|
].
|
|
|
|
renderer drawColorR: self randomColorChannel g: self randomColorChannel b: self randomColorChannel a: 255.
|
|
|
|
renderer clear.
|
|
|
|
renderer present.
|
|
|
|
SDL2 delay: 50.
|
|
|
|
].
|
2021-12-18 02:02:16 +01:00
|
|
|
]
|