u/tlreddit

Anti-aliasing with McClim ?

Hi, judging from some examples on the McClim webpage, it should be possible to draw things with anti-aliasing in a McClim application frame. There is a "X rendering extension" that is maybe just doing that. But I can't find a documentation or code example.

Is there someone familiar with the subject that could point me in the right direction ?

Maybe it is easier this way. I have this minimalist example that draws a circle. How can I draw the same circle with anti-aliasing ?

(define-application-frame circle-app ()
  ()
  (:panes
   (canvas :application
           :background +white+
           :display-time :command-loop
           :display-function 'display-my-circle
           :width 400 :height 400))
  (:layouts (default canvas)))

(defun display-my-circle (frame pane)
  (declare (ignore frame))
  (draw-circle* pane 200 200 100
                :ink +red+
                :filled nil
                :line-thickness 2))

(define-circle-app-command (com-quit :name t :menu t :keystroke (#\q)) ()
  (frame-exit *application-frame*))

(defun run-circle-app ()
  (run-frame-top-level (make-application-frame 'circle-app)))

Maybe related: I am also interested in pointers that show how to draw text using TTF fonts (zpb-ttf).

BTW, i am using SBCL on Linux (archlinux).

reddit.com
u/tlreddit — 2 days ago