将p5.js与F#Fable一起使用?

内容来源于 Stack Overflow,并遵循CC BY-SA 3.0许可协议进行翻译与使用

  • 回答 (1)
  • 关注 (0)
  • 查看 (68)

我试图用F#寓言和p5.js创建一个网页。我有setupdraw函数正确声明,并且在HTML中引用p5.js。然而,似乎没有什么起作用:setup函数从未被调用,因此canvas从未被创造过。没有显示错误消息。

下面是我使用的代码。

<!doctype html>
<html>
<head>
  <style>
    body {
        padding: 20px;
        margin: 0 auto;
    }
    canvas {
        vertical-align: top;
    }
    div {
        margin-bottom: 20px;
    }
  </style>

  <script src="https://cdnjs.cloudflare.com/ajax/libs/p5.js/0.6.1/p5.js"></script>

  <title>Simple Fable App</title>
  <meta http-equiv='Content-Type' content='text/html; charset=utf-8'>
  <meta name="viewport" content="width=device-width, initial-scale=1">
  <link rel="shortcut icon" href="fable.ico" />
</head>
<body>

</body>
</html>

open Fable.Core
open Fable.Core.JsInterop
open Fable.Import

[<Emit("fill($0)")>]
let fill (_: int): unit = jsNative

[<Emit("rect($0, $1, $2, $3)")>]
let rect (_: int) (_: int) (_: int) (_: int): unit = jsNative

[<Emit("frameRate($0)")>]
let frameRate (_: int): unit = jsNative

[<Emit("createCanvas($0, $1)")>]
let createCanvas (_: int) (_: int): unit = jsNative

let setup () =
    createCanvas 500 500
    frameRate 15

let draw () =
    fill 255
    rect 10 10 100 101

如果我使用相同的HTML与等价的JS,它将像预期的那样工作,所以我假设Fable正在搞砸我的某个地方。

<!doctype html>
<html>
<head>
  <style>
    body {
        padding: 20px;
        margin: 0 auto;
    }
    canvas {
        vertical-align: top;
    }
    div {
        margin-bottom: 20px;
    }
  </style>

  <script src="https://cdnjs.cloudflare.com/ajax/libs/p5.js/0.6.1/p5.js"></script>

  <title>Simple Fable App</title>
  <meta http-equiv='Content-Type' content='text/html; charset=utf-8'>
  <meta name="viewport" content="width=device-width, initial-scale=1">
  <link rel="shortcut icon" href="fable.ico" />
</head>
<body>

</body>

<script>
function setup () {
    createCanvas(500, 500)
    frameRate(15)
}

function draw () {
    fill(255)
    rect(10, 10, 100, 101)
}

</script>
</html>
提问于
用户回答回答于

将两个相关的函数添加到Browser.window对象(即使其成为全局的):

Browser.window?setup <- setup
Browser.window?draw <- draw

现在一切都正常了。

扫码关注云+社区

领取腾讯云代金券