Diya-API/Diya/DiyaEllipse.class.st

Class {
	#name : #DiyaEllipse,
	#superclass : #Diya2DPrimShape,
	#instVars : [
		'rx',
		'ry'
	],
	#category : #'Diya-Graphics'
}

{ #category : #'as yet unclassified' }
DiyaEllipse class >> rx: rx ry: ry [
	^self new rx: rx;
		ry: ry;
		yourself
]

{ #category : #'as yet unclassified' }
DiyaEllipse class >> rx: rx ry: ry shader: s [
	^self new rx: rx;
		ry: ry;
		shader: s;
		yourself
]

{ #category : #initialization }
DiyaEllipse >> drawBorder [
	"do nothing"
]

{ #category : #initialization }
DiyaEllipse >> drawLines [
	self shouldNotBeCalled 
]

{ #category : #initialization }
DiyaEllipse >> initialize [
	super initialize.
	translation  := nil.
	vbuffer :=  FFIExternalArray externalNewType: GLfloat size: 24.
	vbuffer autoRelease.
	shader := DiyaEllipseShader uniqueInstance.
]

{ #category : #initialization }
DiyaEllipse >> inner: aPoint [
	|dxy|
	dxy  := self local: aPoint.
	^ ((((dxy x) ** 2)/(rx**2)) + (((dxy y) ** 2) / (ry**2))) < 1.
]

{ #category : #accessing }
DiyaEllipse >> process [
	bbox := Rectangle origin: ((rx negated) @ (ry negated)) corner: (rx @ ry).
	{
		bbox origin x. bbox origin y. 0.0. 0.0.            
      bbox origin x. bbox corner y. 0.0. 1.0.
      bbox corner x. bbox corner y. 1.0. 1.0.

		bbox corner x. bbox corner y. 1.0. 1.0.
		bbox corner x. bbox origin y. 1.0. 0.0.
		bbox origin x. bbox origin y. 0.0. 0.0.      
	} doWithIndex: [:e :i| vbuffer at: i put: e].
	^true
]

{ #category : #accessing }
DiyaEllipse >> rx [
	^ rx
]

{ #category : #accessing }
DiyaEllipse >> rx: anObject [
	rx := anObject.
	self setDirty
]

{ #category : #accessing }
DiyaEllipse >> ry [
	^ ry
]

{ #category : #accessing }
DiyaEllipse >> ry: anObject [
	ry := anObject.
	self setDirty
]

{ #category : #initialization }
DiyaEllipse >> setUpShader [
	super setUpShader.
	self shader
		setUniform: #u_border value: (self ? #border);
		setUniform: #u_border_color value: ( self ? #borderColor) asGL4FArray;
		setUniform: #u_rx value: rx;
		setUniform: #u_ry value: ry.
]