clojure - 使用 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