Prove (angoli, tangenti ...)

2021-07-27 19:25:01 +02:00
1 changed files with 14 additions and 2 deletions
@@ -1,7 +1,7 @@
 -- Intestazioni
 require( 'EgtBase')
 _ENV = EgtProtectGlobal()
-EgtEnableDebug( true)
+EgtEnableDebug( false)

 EgtAddToPackagePath(EgtGetSourceDir() .. 'LuaLibs\\?.lua')
 require( 'EgtCompo')
@@ -15,4 +15,16 @@ EgtLinePDL(2, Point, 0, 500)
 EgtLinePDL(2, -Point+Vett, 0, 500)

 --_G.CMP_Draw = CMP_Draw
-            EgtZoom(SCE_ZM.ALL)
+            EgtZoom(SCE_ZM.ALL)
+            
+            
+            -- Restituisce l'angolo interno di due lati consecutivi di un poligono
+
+
+  local v1 = Vector3d( 1,0,0)
+  local v2 = Vector3d( 0,1,0)
+
+  local Ang = atan2((v1^v2)*Z_AX(),v1*v2)
+  print( Ang)
+  --return 180 - AngEst
+