0

我编写了一个 Clojurescript Quil网页应用程序，它由浮动的对象组成。这个“游戏”旨在成为普通 html 文本的背景。Quil 具有文本功能，但我没有找到任何我需要做的例子。理想情况下，我希望将网页文本呈现在游戏上方的图层上，使用类似Sablono的东西，而不必担心透明度问题或任何其他问题 - 游戏只是在后台！

如果不能简单地将 Quil 放在下面的图层上，那么我有理由确定我可以在 Quil 中做到这一点，但是会有很多细节需要整理：z-ordering，让文本保持颜色，让包含字符的矩形的背景透明等 - 我想避免许多问题。

给定这种设置，在画布层顶部有一个 html 文本层的最简单方法是什么？

以下是我到目前为止提出的内容，即在与动画相同的功能中绘制文本，但在动画之后。不完全是我正在寻找的东西，而是可能需要做的事情：

(ns scratch.core
  (:require [quil.core :as q :include-macros true]
            [quil.middleware :as m]))

(def dark-blue [0,0,139])

(defn setup []
  (q/text-font (q/create-font "DejaVu Sans" 28 true))
  (q/frame-rate 15)
  ; Set color mode to HSB (HSV) instead of default RGB.
  ;(q/color-mode :hsb)
  ; setup function returns initial state. It contains
  ; circle color and position.
  {:color 0
   :angle 0})

(defn draw-text
  []
  (apply q/fill dark-blue)
  (q/text "The quick, brown fox jumped over the lazy dog"
          100 200 300 200))

(defn update-state [state]
  ; Update sketch state by changing circle color and position.
  {:color (mod (+ (:color state) 0.7) 255)
   :angle (+ (:angle state) 0.1)})

(defn draw-state [state]
  ; Clear the sketch by filling it with light-grey color.
  (q/background 240)
  ; Set circle color.
  (q/fill (:color state) 255 255)
  ; Calculate x and y coordinates of the circle.
  (let [angle (:angle state)
        x (* 150 (* 0.4 (q/cos angle)))
        y (* 150 (* 0.4 (q/sin angle)))]
    ; Move origin point to the center of the sketch.
    (q/with-translation [(/ (q/width) 2)
                         (/ (q/height) 2)]
      ; Draw the circle.
      (q/ellipse x y 100 100)))
  ;; Simply make sure the text is drawn after the 'background'
  (draw-text))

(q/defsketch moving-ball
  :host "moving-ball"
  :size [500 500]
  :setup setup
  :update update-state
  :draw draw-state
  :middleware [m/fun-mode])
4

1 回答 1

0

这是这个问题在别处有所回答。但是，问题中使用的解决方法 - 在画布上绘制文本 - 对于我的用例来说可能已经足够好了。

于 2015-08-23T14:05:42.753 回答