dany/Diya-API
1
0
Fork 0
mirror of https://github.com/lxsang/Diya-API.git synced 2025-02-22 02:42:48 +01:00
Code Issues Projects Releases Wiki Activity

Resolve image conflict

Browse Source
This commit is contained in:
Dany LE 2021-12-19 20:03:54 +01:00
parent 4ecbd0af73
commit 7a17c17ed5
1 changed files with 38 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
Diya/DiyaBoot.class.st
View File

@ -17,6 +17,11 @@ Class {
#category : #'Diya-Runtime' #category : #'Diya-Runtime'
} }
{ #category : #'instance creation' }
DiyaBoot class >> reset [
singleton := nil
]
{ #category : #'instance creation' } { #category : #'instance creation' }
DiyaBoot class >> startUp: status [ DiyaBoot class >> startUp: status [
self startx. self startx.
@ -87,7 +92,10 @@ DiyaBoot >> createWindow [
{ #category : #events } { #category : #events }
DiyaBoot >> init [ DiyaBoot >> init [
| status nvdrivers | | status nvdrivers |
Transcript show:'System: ', (Smalltalk globals at: #CODENAME),'-v',(Smalltalk globals at: #VERSION);cr. Transcript show:'System: ',
(Smalltalk globals at: #CODENAME ifAbsent:['']),
'-v',(Smalltalk globals at: #VERSION ifAbsent: ['']);
cr.
status := SDL2 init: SDL_INIT_EVERYTHING. status := SDL2 init: SDL_INIT_EVERYTHING.
status = 0 status = 0
ifFalse: [ ^ self error: SDL2 getErrorMessage ]. ifFalse: [ ^ self error: SDL2 getErrorMessage ].
@ -97,6 +105,9 @@ DiyaBoot >> init [
Transcript show: (SDL2 SDLGetVideoDriver: i), ' '. Transcript show: (SDL2 SDLGetVideoDriver: i), ' '.
]. ].
Transcript cr. Transcript cr.
Transcript show: 'Current selected video driver: ',
(SDL2 SDLGetCurrentVideoDriver);
cr.
] ]
{ #category : #events } { #category : #events }
@ -108,10 +119,10 @@ DiyaBoot >> initialize [
DiyaBoot >> processEvent: event [ DiyaBoot >> processEvent: event [
|mappedEvt| |mappedEvt|
mappedEvt := event mapped. mappedEvt := event mapped.
mappedEvt type = SDL_KEYDOWN ifTrue: [ Transcript show: 'keydown...'. running := false. ]. mappedEvt type = SDL_KEYDOWN ifTrue: [ Transcript show: 'keydown...'. ^running := false. ].
mappedEvt type = SDL_QUIT ifTrue:[ running:= false ]. mappedEvt type = SDL_QUIT ifTrue:[ ^running:= false ].
mappedEvt type = SDL_FINGERDOWN ifTrue:[self setCursorPosition: mappedEvt ]. mappedEvt type = SDL_FINGERDOWN ifTrue:[^self setCursorPosition: mappedEvt ].
mappedEvt type = SDL_FINGERMOTION ifTrue:[self setCursorPosition: mappedEvt ]. mappedEvt type = SDL_FINGERMOTION ifTrue:[^self setCursorPosition: mappedEvt ].
] ]
{ #category : #events } { #category : #events }
@ -144,9 +155,30 @@ DiyaBoot >> render [
{ #category : #events } { #category : #events }
DiyaBoot >> run [ DiyaBoot >> run [
self init. self init.
Transcript show: 'Current selected video driver: ', (SDL2 SDLGetCurrentVideoDriver); cr.
display := SDL_DisplayMode externalNew autoRelease. display := SDL_DisplayMode externalNew autoRelease.
SDL2 SDLGetCurrentDisplayMode: display from:0. SDL2 SDLGetCurrentDisplayMode: display from:0.
self startx
]
{ #category : #events }
DiyaBoot >> run: screenSize [
self init.
display := SDL_DisplayMode externalNew autoRelease.
SDL2 SDLGetCurrentDisplayMode: display from:0.
display w: screenSize x.
display h: screenSize y.
self startx
]
{ #category : #events }
DiyaBoot >> setCursorPosition: mappedEvt [
Transcript show: 'x: ', mappedEvt x asString, ' - y: ', mappedEvt y asString; cr.
window warpMouseX:((mappedEvt x)* (display w) )
Y: ((mappedEvt y) * (display h))
]
{ #category : #events }
DiyaBoot >> startx [
Transcript show:'Display resolution: ', display w asString, 'x',display h asString;cr. Transcript show:'Display resolution: ', display w asString, 'x',display h asString;cr.
window := self createWindow. window := self createWindow.
renderer := self createRenderer. renderer := self createRenderer.
@ -156,10 +188,3 @@ DiyaBoot >> run [
SDL2 quit. SDL2 quit.
Transcript show: 'System quit'; cr. Transcript show: 'System quit'; cr.
] ]
{ #category : #events }
DiyaBoot >> setCursorPosition: mappedEvt [
Transcript show: 'x: ', mappedEvt x asString, ' - y: ', mappedEvt y asString; cr.
window warpMouseX:((mappedEvt x)* (display w) )
Y: ((mappedEvt y) * (display h))
]