LslPlus 0.3.3 → 0.3.4

raw patch · 3 files changed

+8/−8 lines, 3 files

Files

• LslPlus.cabal +1/−1
• src/Language/Lsl/Internal/InternalLLFuncs.hs +6/−6
• src/LslPlus.hs +1/−1

@@ -1,5 +1,5 @@ Name:           LslPlus
-version:        0.3.3
+version:        0.3.4
 Synopsis:	    An execution and testing framework for the Linden Scripting Language (LSL)
 Description:	
 	Provides a framework for executing Linden Scripting Language scripts offline,

@@ -366,14 +366,14 @@         continueWith $ RVal x y z s
         
 llRot2Fwd _ [RVal x y z s] =
-    let ((x,_,_),(y,_,_),(z,_,_)) = quaternionToMatrix (x,y,z,s) in
-        continueWith $ VVal x y z
+    let ((x',_,_),(y',_,_),(z',_,_)) = quaternionToMatrix (x,y,z,s) in
+        continueWith $ VVal x' y' z'
 llRot2Left _ [RVal x y z s] =
-    let ((_,x,_),(_,y,_),(_,z,_)) = quaternionToMatrix (x,y,z,s) in
-        continueWith $ VVal x y z
+    let ((_,x',_),(_,y',_),(_,z',_)) = quaternionToMatrix (x,y,z,s) in
+        continueWith $ VVal x' y' z'
 llRot2Up _ [RVal x y z s] =
-    let ((_,_,x),(_,_,y),(_,_,z)) = quaternionToMatrix (x,y,z,s) in
-        continueWith $ VVal x y z
+    let ((_,_,x'),(_,_,y'),(_,_,z')) = quaternionToMatrix (x,y,z,s) in
+        continueWith $ VVal x' y' z'
    
 llRot2Euler _ [RVal x y z s] =
     let (x',y',z') = quaternionToRotations P123 False (x,y,z,s)

@@ -12,7 +12,7 @@ import System
 import System.Exit
 
-version="0.3.3"
+version="0.3.4"
 usage progName = "Usage: " ++ progName ++ " [Version|MetaData|Compiler|ExpressionHandler|SimMetaData|SystemTester|UnitTester]"
 main = do
     progName <- getProgName