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

Create Data.NumIdr.Transform.Transform

Browse source
This commit is contained in:
Kiana Sheibani 2022-09-16 12:46:36 -04:00
parent 8839dd049a
commit 33f64c69d9
Signed by: toki
GPG key ID: 6CB106C25E86A9F7
3 changed files with 125 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -103,8 +103,9 @@ scalingH : {n : _} -> Num a => a -> HMatrix' n a
scalingH x = indexSet [last,last] 1 $ repeatDiag x 0
export
translationH : {n : _} -> Num a => Vector n a -> HMatrix' n a
translationH = hmatrix identity
translationH : Num a => Vector n a -> HMatrix' n a
translationH {n} v with (viewShape v)
_ | Shape [n] = hmatrix identity v
export
rotation2DH : Double -> HMatrix' 2 Double