Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- namespace GeoNodes
- open FlareTic.API
- open FlareTic.Graph.Interface
- [<FunctionLibrary("Geo")>]
- module Geo =
- [<AutomatonNode(Name = "LatLongToSphere", Category = "Geo", SubCategory="Vector", SystemName = "flt.automaton.geo.latlongvec")>]
- let latlong([<FP(Name = "X")>] x:float32, [<FP(Name = "Y")>] y:float32) =
- let c1 = x * 0.0175f
- let c2 = y * 0.0175f
- let cos1 = cos(c1)
- let cos2 = cos(c2)
- let sin1 = sin(c1)
- let sin2 = sin(c2)
- SharpDX.Vector3(cos1 * cos2,sin1, cos1 * sin2)
- [<AutomatonNode(Name = "LatLongToSphere", Category = "Geo", SubCategory="Vector", SystemName = "flt.automaton.geo.latlong")>]
- let latlongVec([<FP(Name = "Input")>] input:SharpDX.Vector2) =
- latlong(input.X, input.Y)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement