toki/numidr
1
0
Fork 0
Code Issues Pull requests Activity

Misc. changes

Browse source
This commit is contained in:
Kiana Sheibani 2022-11-30 12:54:01 -05:00
parent 0a54f607b0
commit 524486bb58
Signed by: toki
GPG key ID: 6CB106C25E86A9F7
5 changed files with 51 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

20
src/Data/NumIdr/Homogeneous.idr
View file

@ -27,7 +27,7 @@ public export
HMatrix' : Nat -> Type -> Type
HMatrix' n = HMatrix n n
||| An `n`-dimensional homogeneous vector type.
||| An homogeneous vector type.
|||
||| Homogeneous vectors are vectors intended to be multiplied with homogeneous
||| matrices (see `HMatrix`). They have an extra dimension compared to regular
@ -129,6 +129,7 @@ translationH : Num a => Vector n a -> HMatrix' n a
translationH {n} v with (viewShape v)
_ | Shape [n] = hmatrix identity v
||| Construct a 2D homogeneous matrix that rotates by the given angle (in radians).
export
rotate2DH : Double -> HMatrix' 2 Double
@ -148,3 +149,20 @@ rotate3DYH = matrixToH . rotate3DY
export
rotate3DZH : Double -> HMatrix' 3 Double
rotate3DZH = matrixToH . rotate3DZ
export
reflectH : {n : _} -> Neg a => Fin n -> HMatrix' n a
reflectH i = indexSet [weaken i,weaken i] (-1) identity
export
reflectXH : {n : _} -> Neg a => HMatrix' (1 + n) a
reflectXH = reflectH 0
export
reflectYH : {n : _} -> Neg a => HMatrix' (2 + n) a
reflectYH = reflectH 0
export
reflectZH : {n : _} -> Neg a => HMatrix' (3 + n) a
reflectZH = reflectH 0