From 08d9ff6cb5f06c6f42c74ffcdd37a99782a553f6 Mon Sep 17 00:00:00 2001 From: AJ Rossini Date: Thu, 25 Jun 2009 09:38:51 +0200 Subject: [PATCH] included example for drawing and capturing via PNG the drawing. Signed-off-by: AJ Rossini --- TODO.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/TODO.lisp b/TODO.lisp index 08bc779..b1ec27e 100644 --- a/TODO.lisp +++ b/TODO.lisp @@ -1,6 +1,6 @@ ;;; -*- mode: lisp -*- -;;; Time-stamp: <2009-06-18 18:43:02 tony> +;;; Time-stamp: <2009-06-24 17:30:03 tony> ;;; Creation: <2008-09-08 08:06:30 tony> ;;; File: TODO.lisp ;;; Author: AJ Rossini @@ -226,11 +226,12 @@ (xs (num-sequence :from 0 :to 10 :length n)) (ys (map 'vector #'(lambda (x) (+ x 8 (random 4.0))) xs)) (weights (replicate #'(lambda () (1+ (random 10))) n 'fixnum)) - (da (plot-simple frame (interval-of 0 10) (interval-of 10 20) + (da (plot-simple *frame1* (interval-of 0 10) (interval-of 10 20) :x-title "x" :y-title "y"))) (draw-symbols da xs ys :weights weights)) - + (xlib-image-context-to-png (context *frame1*) "/home/tony/test1.png") + (xlib-image-context-to-png (context *frame2*) "/home/tony/test2.png") ) -- 2.11.4.GIT