mirror of
https://github.com/lxsang/Diya-API.git
synced 2024-12-27 03:48:21 +01:00
f61e17de9c
Some checks reported errors
gitea-sync/Diya-API/pipeline/head Something is wrong with the build of this commit
65 lines
1.2 KiB
Smalltalk
65 lines
1.2 KiB
Smalltalk
Class {
|
|
#name : #DiyaRectangle,
|
|
#superclass : #Diya2DPrimShape,
|
|
#category : #'Diya-Graphics'
|
|
}
|
|
|
|
{ #category : #'instance creation' }
|
|
DiyaRectangle class >> size: size [
|
|
^(self new) extent: size; yourself
|
|
]
|
|
|
|
{ #category : #'instance creation' }
|
|
DiyaRectangle class >> size: size shader:s [
|
|
^(self with:s) extent: size; yourself
|
|
]
|
|
|
|
{ #category : #initialization }
|
|
DiyaRectangle >> drawLines [
|
|
OpenGL drawArrays: GL_LINE_LOOP first:0 count: (vbuffer size >> 2).
|
|
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
DiyaRectangle >> extent: v [
|
|
bbox := Rectangle origin:0@0 corner: v.
|
|
self setDirty
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
DiyaRectangle >> initialize [
|
|
super initialize.
|
|
self extent:10@10.
|
|
translation := nil.
|
|
vbuffer := FFIExternalArray externalNewType: GLfloat size:16.
|
|
vbuffer autoRelease.
|
|
type := GL_QUADS.
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
DiyaRectangle >> process [
|
|
|extent|
|
|
extent := self extent.
|
|
vbuffer
|
|
at: 1 put: 0.0;
|
|
at: 2 put: 0.0;
|
|
at: 3 put: 0.0;
|
|
at: 4 put: 0.0;
|
|
|
|
at: 5 put: 0.0;
|
|
at: 6 put: extent y asFloat;
|
|
at: 7 put: 0.0;
|
|
at: 8 put: 1.0;
|
|
|
|
at: 9 put: extent x asFloat;
|
|
at: 10 put: extent y asFloat;
|
|
at: 11 put: 1.0;
|
|
at: 12 put: 1.0;
|
|
|
|
at: 13 put: extent x asFloat;
|
|
at: 14 put: 0.0;
|
|
at: 15 put: 1.0;
|
|
at: 16 put: 0.0.
|
|
^true
|
|
]
|