funscript three.js test

three.fs

[<ReflectedDefinition>]
module Program

open FunScript
open FunScript.TypeScript

let main() =
    let scene : THREE.Scene = THREE.Scene.Create() 
    let camera = THREE.PerspectiveCamera.Create( 75., Globals.window.innerWidth / Globals.window.innerHeight, 0.1, 1000. );

    let renderer = THREE.WebGLRenderer.Create()
    renderer.setSize( Globals.window.innerWidth, Globals.window.innerHeight )
    Globals.document.body.appendChild( renderer.domElement ) |> ignore
    //let vector3 = THREE.Vector3.Create(1.0, 1.0, 1.0)
    let geometry = THREE.CubeGeometry.Create()
    let matProps = createEmpty<THREE.MeshBasicMaterialParameters>()
    matProps.color <- float(0x00ff00)
    let material = THREE.MeshBasicMaterial.Create( matProps )
    let cube = THREE.Mesh.Create( geometry, material )
    scene.add( cube )
    camera.position.z <- 5.

    let rec render(dt:float) =
        Globals.requestAnimationFrame(new FrameRequestCallbackDelegate(render)) |> ignore
        cube.rotation.x <- cube.rotation.x + 0.1
        cube.rotation.y <- cube.rotation.y + 0.1
        renderer.render(scene, camera)
    render(0.0)
   
do Runtime.Run(directory="Web")