mirror of
https://github.com/lxsang/Diya-API.git
synced 2024-12-27 03:48:21 +01:00
141 lines
3.1 KiB
Smalltalk
141 lines
3.1 KiB
Smalltalk
Class {
|
|
#name : #Diya2DPrimShape,
|
|
#superclass : #Diya2DNode,
|
|
#instVars : [
|
|
'texture',
|
|
'type',
|
|
'bbox'
|
|
],
|
|
#category : #'Diya-Graphics'
|
|
}
|
|
|
|
{ #category : #accessing }
|
|
Diya2DPrimShape >> bgColor [
|
|
^style get: #bgcolor
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
Diya2DPrimShape >> bgColor: c [
|
|
^style set: #bgcolor value: c
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
Diya2DPrimShape >> borderColor [
|
|
^style get: #borderColor
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
Diya2DPrimShape >> borderColor: c [
|
|
style set: #borderColor value: c.
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
Diya2DPrimShape >> borderWidth [
|
|
^style get: #border
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
Diya2DPrimShape >> borderWidth: w [
|
|
style set: #border value: w.
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
Diya2DPrimShape >> boundingBox [
|
|
^ bbox applyTf: self tf.
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
Diya2DPrimShape >> color [
|
|
^ self style get: #color.
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
Diya2DPrimShape >> color: value [
|
|
^ self style set: #color value: value
|
|
]
|
|
|
|
{ #category : #initialization }
|
|
Diya2DPrimShape >> draw [
|
|
vbuffer ifNil: [ ^self ].
|
|
"configure vao vbo for texture QUAD"
|
|
self texture ifNotNil: [
|
|
self texture setup.
|
|
context texture0 setImage2D: self texture.
|
|
context texture0 active.
|
|
].
|
|
context vao enableAttribute: 0.
|
|
OpenGLVertexArray vertexAttributePointerIndex: 0 size:4 type: GL_FLOAT normalized: GL_FALSE stride: 16 pointer: nil .
|
|
context vbo data: GL_ARRAY_BUFFER data: vbuffer usage: GL_STATIC_DRAW.
|
|
OpenGL drawArrays: type first:0 count:((vbuffer size )>> 2 ).
|
|
"reset value"
|
|
self texture ifNotNil: [self texture drop.].
|
|
self borderWidth > 0 ifTrue: [ self drawBorder ].
|
|
context vao disableAttribute: 0.
|
|
]
|
|
|
|
{ #category : #initialization }
|
|
Diya2DPrimShape >> drawBorder [
|
|
"Diya2DShader uniqueInstance use."
|
|
shader setUniform: #u_color value: self borderColor asGL4FArray;
|
|
setUniform: #u_texture_type value: 1.
|
|
OpenGL
|
|
lineWidth: self borderWidth.
|
|
self drawLines.
|
|
OpenGL lineWidth: 1.0.
|
|
]
|
|
|
|
{ #category : #initialization }
|
|
Diya2DPrimShape >> drawLineAt: offset [
|
|
OpenGL drawArrays: GL_LINES first:(offset) count:2.
|
|
]
|
|
|
|
{ #category : #initialization }
|
|
Diya2DPrimShape >> drawLines [
|
|
self subclassResponsibility
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
Diya2DPrimShape >> extent [
|
|
^ bbox extent
|
|
]
|
|
|
|
{ #category : #initialization }
|
|
Diya2DPrimShape >> initialize [
|
|
super initialize.
|
|
texture := nil.
|
|
children := nil.
|
|
type := GL_TRIANGLES.
|
|
bbox := Rectangle origin: 0@0 corner: 0@0.
|
|
]
|
|
|
|
{ #category : #'as yet unclassified' }
|
|
Diya2DPrimShape >> inner: aPoint [
|
|
bbox ifNil: [ ^false ].
|
|
^ bbox containsPoint: (self local: aPoint)
|
|
]
|
|
|
|
{ #category : #initialization }
|
|
Diya2DPrimShape >> setUpShader [
|
|
super setUpShader.
|
|
self shader
|
|
setUniform: #u_color value: self color asGL4FArray;
|
|
setUniform: #u_bg_color value: self bgColor asGL4FArray;
|
|
setUniform: #u_texture_type value:
|
|
(self texture ifNil: [ 0 ] ifNotNil:[self texture format]).
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
Diya2DPrimShape >> texture [
|
|
^ texture
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
Diya2DPrimShape >> texture: anObject [
|
|
texture := anObject
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
Diya2DPrimShape >> textureNamed: name [
|
|
self texture: (context assets texture: name)
|
|
]
|