mirror of
https://github.com/lxsang/Diya-API.git
synced 2024-12-27 03:48:21 +01:00
101 lines
1.8 KiB
Smalltalk
101 lines
1.8 KiB
Smalltalk
Class {
|
|
#name : #DiyaRendererContext,
|
|
#superclass : #DiyaSingleton,
|
|
#instVars : [
|
|
'mouse',
|
|
'display',
|
|
'vbo',
|
|
'vao',
|
|
'texture0',
|
|
'projection',
|
|
'buffer'
|
|
],
|
|
#pools : [
|
|
'OpenGLConstants',
|
|
'OpenGLTypes'
|
|
],
|
|
#category : #'Diya-Graphics'
|
|
}
|
|
|
|
{ #category : #'instance creation' }
|
|
DiyaRendererContext class >> cleanUpInstance: singleton [
|
|
singleton destroy
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
DiyaRendererContext >> buffer [
|
|
^ buffer
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
DiyaRendererContext >> destroy [
|
|
vao delete.
|
|
vbo delete.
|
|
texture0 delete.
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
DiyaRendererContext >> display [
|
|
^ display
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
DiyaRendererContext >> display: anObject [
|
|
display := anObject
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
DiyaRendererContext >> initialize [
|
|
super initialize.
|
|
vbo := OpenGLVertexBuffer new.
|
|
vao := OpenGLVertexArray new.
|
|
texture0 := OpenGLTexture fromUnit: 0.
|
|
vao bind.
|
|
vbo bind: GL_ARRAY_BUFFER.
|
|
projection := Array2D identity: 4.
|
|
buffer := FFIExternalArray externalNewType: GLfloat size: 128.
|
|
buffer autoRelease.
|
|
vbo data: GL_ARRAY_BUFFER data: nil size:512 usage: GL_DYNAMIC_DRAW.
|
|
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
DiyaRendererContext >> mouse [
|
|
^ mouse
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
DiyaRendererContext >> mouse: anObject [
|
|
mouse := anObject
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
DiyaRendererContext >> projection [
|
|
^ projection
|
|
]
|
|
|
|
{ #category : #'as yet unclassified' }
|
|
DiyaRendererContext >> resolution [
|
|
^ (display w) @ (display h)
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
DiyaRendererContext >> texture0 [
|
|
^ texture0
|
|
]
|
|
|
|
{ #category : #'as yet unclassified' }
|
|
DiyaRendererContext >> useProjection: aClass [
|
|
projection := aClass fromDisplay: self display
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
DiyaRendererContext >> vao [
|
|
^ vao
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
DiyaRendererContext >> vbo [
|
|
^ vbo
|
|
]
|