1
0
mirror of https://github.com/lxsang/Diya-API.git synced 2024-12-30 21:38:22 +01:00
Diya-API/Diya/Diya2DPrimShape.class.st

115 lines
2.5 KiB
Smalltalk
Raw Normal View History

2022-03-06 18:33:10 +01:00
Class {
#name : #Diya2DPrimShape,
#superclass : #Diya2DNode,
#instVars : [
2022-03-16 01:32:01 +01:00
'texture',
'type',
'border',
2022-03-19 02:18:29 +01:00
'bcolor',
'bbox'
2022-03-06 18:33:10 +01:00
],
#category : #'Diya-Graphics'
}
2022-03-16 01:32:01 +01:00
{ #category : #accessing }
Diya2DPrimShape >> borderColor: c [
bcolor := c
]
{ #category : #accessing }
Diya2DPrimShape >> borderWidth: w [
border := w
]
2022-03-19 02:18:29 +01:00
{ #category : #accessing }
Diya2DPrimShape >> boundingBox [
^ bbox applyTf: self tf.
]
{ #category : #initialization }
Diya2DPrimShape >> draw [
vbuffer ifNil: [ ^self ].
"configure vao vbo for texture QUAD"
self texture ifNotNil: [
self texture setup.
2022-03-08 23:30:01 +01:00
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.
2022-03-16 01:32:01 +01:00
OpenGL drawArrays: type first:0 count:((vbuffer size )>> 2 ).
"reset value"
self texture ifNotNil: [self texture drop.].
2022-03-16 01:32:01 +01:00
border > 0 ifTrue: [ self drawBorder ].
context vao disableAttribute: 0.
]
{ #category : #initialization }
Diya2DPrimShape >> drawBorder [
"Diya2DShader uniqueInstance use."
color = bcolor ifFalse:[
shader setUniform: #u_color value: bcolor asGL4FArray;
setUniform: #u_texture_type value: 0.
].
OpenGL
lineWidth: border.
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
]
2022-03-19 02:18:29 +01:00
{ #category : #accessing }
Diya2DPrimShape >> extent [
^ bbox extent
]
2022-03-06 18:33:10 +01:00
{ #category : #initialization }
Diya2DPrimShape >> initialize [
super initialize.
texture := nil.
2022-03-16 01:32:01 +01:00
children := nil.
type := GL_TRIANGLES.
border := 0.
2022-03-16 17:48:18 +01:00
bcolor := Color white.
2022-03-19 02:18:29 +01:00
bbox := Rectangle origin: 0@0 corner: 0@0.
]
{ #category : #'as yet unclassified' }
Diya2DPrimShape >> inner: aPoint [
bbox ifNil: [ ^false ].
^ bbox containsPoint: (self local: aPoint)
2022-03-06 18:33:10 +01:00
]
{ #category : #initialization }
Diya2DPrimShape >> setUpShader [
2022-03-19 02:18:29 +01:00
super setUpShader.
self shader
setUniform: #u_texture_type value:
(self texture ifNil: [ 0 ] ifNotNil:[self texture format]).
2022-03-06 18:33:10 +01:00
]
{ #category : #accessing }
Diya2DPrimShape >> texture [
^ texture
]
{ #category : #accessing }
Diya2DPrimShape >> texture: anObject [
texture := anObject
]
{ #category : #accessing }
Diya2DPrimShape >> textureNamed: name [
self texture: (context assets texture: name)
]