使用 quil 在 clojure 中加载/显示图像

Question

我有基本的 quil example 工作

根据tutorial，在处理中加载/显示图像的代码如下所示：

PImage img; 

void setup() {
   size(320,240);
   img = loadImage("mysummervacation.jpg");
}

void draw() {
   background(0);
   image(img,0,0);
}

我把它翻译成：

(ns img-demo.core
  (:use quil.core))

(def img (ref nil))

(defn setup []
  (background 0)
  (dosync (ref-set img (load-image "bill.jpg"))))

(defn draw []
  (image @img 0 0))

(defsketch example
  :title "image demo"
  :setup setup
  :draw draw
  :size [2560 1920])

当我执行代码时，会打开一个窗口，然后闪烁白色并保持黑色。没有错误。

我怀疑它与图像位置有关，因为在教程中它说：“loadImage() 查找存储在处理草图的“数据”文件夹中的图像文件。”

我尝试了各种位置和路径，甚至在我的项目文件夹中创建了一个“数据”文件夹并将图像放在那里，但没有成功。

我正在使用 Clojure 1.5.1 / 莱宁根 2.1.3 / emacs24+ / nrepl

欢迎任何想法，

提前致谢。

Answer 1

我随机选择了一张图片，将其重命名为bill.jpg 并将其放在项目根目录下，您的代码运行良好。

以下是我认为相关的文件及其位置：

~/Projects/repl/project.clj
~/Projects/repl/bill.jpg
~/Projects/repl/src/img.clj