Extension { #name : #Point }

{ #category : #'*Diya' }
Point >> asGLCoord [
	|res|
	res := DiyaRendererContext uniqueInstance resolution.
	^(self / ( res / 2.0)) + (-1.0@ -1.0).
]

{ #category : #'*Diya' }
Point >> glNormalise [
	|res p|
	res := DiyaRendererContext uniqueInstance resolution.
	p := self / (res/ 2).
	^ (p x asFloat) @ (p y asFloat)
]