Использование p5.js с F # Fable - PullRequest
Новая
       25

Использование p5.js с F # Fable

0 голосов
/ 04 июня 2018

Я пытаюсь создать веб-страницу с F # Fable и p5.js.У меня правильно объявлены функции setup и draw, а в 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>

1 Ответ

0 голосов
/ 04 июня 2018

Следуя подсказке @FyodorSoikin, я искал документацию и выяснил , как добавить свойства к объектам JS .

Поэтому я добавил две соответствующие функции в Browser.windowобъект (т.е. сделал их глобальными): 

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

И теперь все работает.

...