# vim: set et sta sw=4 ts=4 :

import
    std/os,
    std/strformat
import raylib

# Emscripten specific imports
proc emscripten_set_main_loop( f: proc() {.cdecl.}, a: cint, b: bool ) {.importc.}
proc emscripten_sleep( a: cuint ) {.importc.}

var camera = Camera(
    position: Vector3(x: 5, y: 5, z: 10),  # Camera position
    target: Vector3(x: 0, y: 0, z: 0),     # Camera target it looks-at
    up: Vector3(x: 0, y: 1, z: 0),         # Camera up vector (rotation over its axis)
    fovy: 45,                              # Camera field-of-view apperture in Y (degrees)
    projection: Perspective                # Defines projection type, see CameraProjection
)

# This only works with:
# --passL:"-s EXPORT_FUNCTIONS=_nativeGreet", but it breaks raylib loading.
# hmmmmm.  EXPORT_ALL=1 is also a no go.
# Maybe it won't be necessary with raylib/opengl input
#
#[ proc nativeGreet*(): int {.exportc.} =
    echo "Oh jeez, hello from native nim!"
    return 0 ]#


proc mainLoop() {.cdecl.} =
    defer: closeWindow()

    initWindow( 800, 600, "raylib nim playground" )

    var count = 0

    while not windowShouldClose():

        beginDrawing();
        clearBackground( WHITE );
        beginMode3D( camera );
        drawGrid( 10, 1.0f );
        endMode3D();

        var col = if isCursorOnScreen(): BLUE else: GRAY
        drawText( "OH SNAP IT'S WORKING\n{count}".fmt, 10, 10, 20, col );
        endDrawing();

        count = count + 1

        if defined( emscripten ):
            emscripten_sleep 10
            echo "wasm: hi"
        else:
            sleep 10
            echo "native: hi"


if defined( emscripten ):
    emscripten_set_main_loop( mainLoop, 0, true );
else:
    mainLoop()