Я перешел от попытки использовать OpenGL через Penumbra к попытке рисовать непосредственно на JPanel с использованием ее графического контекста.
Это было бы здорово, за исключением того, что у меня возникли некоторые проблемы ... Я компилирую свой код, и ~ 1 раз из 25 графика (это прямоугольник для примера) отрисовывается просто отлично.Другие ~ 24 раза, это не так.
Вот мой код:
(def main
(let [frame (JFrame. "This is a test.")
main-panel (JPanel. (GridBagLayout.))
tpan (proxy [JPanel] [] (getPreferredSize [] (Dimension. 600 400)))]
(doto frame
(set-content-pane
(doto main-panel
(grid-bag-layout
:gridx 0 :gridy 0
tpan
:gridx 0 :gridy 1
xy-label)))
(pack-frame)
(set-visible))
(draw-line tpan Color/RED 250 250 50 50)))
Функция draw-line
ниже:
(defn draw-line [panel color x y w h]
(let [graphics (.getGraphics panel)]
(doto graphics
(.setColor color)
(.drawRect x y w h))))
У меня нетИдея, что происходит.Сначала я думал, что это были ссылки, над которыми я работал, но потом я их убрал, и у меня все еще есть эти проблемы.Я сбросил lein и slime / swank и emacs тоже.Я очень озадачен.
Как обычно, любая помощь будет оценена.Надеюсь это вопрос с ответом!В последнее время я, кажется, спрашиваю о невозможном :)