cl-cairo2-cvs May 2007

cl-cairo2-cvs@common-lisp.net

1 participants
3 discussions

Start a nNew thread

[cl-cairo2-cvs] r4 - tutorial
by tpapp＠common-lisp.net 30 May '07

30 May '07

Author: tpapp Date: Tue May 29 22:35:50 2007 New Revision: 4 Removed: tutorial/.tex Log: Deleted cruft

1 0

[cl-cairo2-cvs] r3 - tutorial
by tpapp＠common-lisp.net 30 May '07

30 May '07

Author: tpapp Date: Tue May 29 22:23:32 2007 New Revision: 3 Removed: tutorial/tutorial.lisp Modified: Makefile README tutorial/Makefile tutorial/example.lisp tutorial/tutorial.tex Log: Cleaned up examples Modified: Makefile ============================================================================== --- Makefile (original) +++ Makefile Tue May 29 22:23:32 2007 @@ -3,3 +3,10 @@ test-swig.lisp: test.i swig -cffi -generate-typedef test.i + +asdf: + rm -Rf /tmp/cl-cairo2-latest + mkdir /tmp/cl-cairo2-latest + cp * -R /tmp/cl-cairo2-latest + tar -cvzf /tmp/cl-cairo2-latest.tar.gz -C /tmp cl-cairo2-latest + gpg -b -a /tmp/cl-cairo2-latest.tar.gz \ No newline at end of file Modified: README ============================================================================== --- README (original) +++ README Tue May 29 22:23:32 2007 @@ -1,6 +1,6 @@ Please read the tutorial to get started. To compile the tutorial from source, you will need a reasonably complete LaTeX installation with -dvipdfm, and the pdftops utility. +dvipdfm. The project webpage is at http://common-lisp.net/project/cl-cairo2, where you will find the repository, mailing lists, contact information Modified: tutorial/Makefile ============================================================================== --- tutorial/Makefile (original) +++ tutorial/Makefile Tue May 29 22:23:32 2007 @@ -1,12 +1,5 @@ tutorial.pdf: tutorial.dvi dvipdfm tutorial -tutorial.dvi: tutorial.tex hearts.png lissajous.eps text.eps +tutorial.dvi: tutorial.tex hearts.png lissajous.ps text.ps example.ps latex tutorial.tex - -lissajous.eps: lissajous.pdf - pdftops -eps lissajous.pdf lissajous.eps - -text.eps: ../text.pdf - pdftops -eps text.pdf text.eps - Modified: tutorial/example.lisp ============================================================================== --- tutorial/example.lisp (original) +++ tutorial/example.lisp Tue May 29 22:23:32 2007 @@ -47,7 +47,7 @@ (defparameter size 50) (defparameter x 20) (defparameter y 50) -(setf *context* (create-pdf-context "text.pdf" width height)) +(setf *context* (create-ps-context "text.ps" width height)) ;; white background (rectangle 0 0 width height) (set-source-rgb 1 1 1) @@ -89,7 +89,7 @@ (defparameter b 8) (defparameter delta (/ pi 2)) (defparameter density 2000) -(setf *context* (create-pdf-context "lissajous.pdf" size size)) +(setf *context* (create-ps-context "lissajous.ps" size size)) ;; pastel blue background (rectangle 0 0 width height) (set-source-rgb 0.9 0.9 1) @@ -150,3 +150,25 @@ (scale scaling scaling) ; scale (rotate (deg-to-rad (- (random (* 2 max-angle)) max-angle 180))) ; rotate (heart (+ 0.1 (random 0.7)))))) + + +;;;; +;;;; short example for the tutorial +;;;; + +(defparameter *surface* (create-ps-surface "example.ps" 200 100)) +(setf *context* (create-context *surface*)) +(destroy *surface*) +;; clear the whole canvas with blue +(rectangle 0 0 200 100) +(set-source-rgb 0.2 0.2 1) +(fill-path) +;; draw a white diagonal line +(move-to 0 0) +(line-to 200 100) +(set-source-rgb 1 1 1) +(set-line-width 5) +(stroke) +;; destroy context, this also destroys the surface and closes the file +(destroy *context*) + Modified: tutorial/tutorial.tex ============================================================================== --- tutorial/tutorial.tex (original) +++ tutorial/tutorial.tex Tue May 29 22:23:32 2007 @@ -39,6 +39,7 @@ breaklines=true, % frame=single, columns=fullflexible, + literate={-}{}{0\discretionary{-}{}{-}}, } \begin{document} @@ -134,7 +135,7 @@ on a blue background, using a Postscript file -- the result is shown in Figure~\ref{fig:example}. -\lstinputlisting[firstline=3,lastline=17]{tutorial.lisp} +\lstinputlisting[firstline=159,lastline=173]{example.lisp} \begin{figure}[htbp] \centering @@ -346,18 +347,18 @@ \texttt{example.lisp}. Figures~\ref{fig:text}--\ref{fig:hearts} show the results. -\lstinputlisting{../example.lisp} +\lstinputlisting{example.lisp} \begin{figure}[htbp] \centering - \includegraphics[height=8cm]{text.eps} + \includegraphics[height=8cm]{text.ps} \caption{text.pdf} \label{fig:text} \end{figure} \begin{figure}[htbp] \centering - \includegraphics[height=8cm]{lissajous.eps} + \includegraphics[height=8cm]{lissajous.ps} \caption{lissajous.pdf} \label{fig:lissajous} \end{figure}

1 0

[cl-cairo2-cvs] r2 - .git
by tpapp＠common-lisp.net 28 May '07

28 May '07

Author: tpapp Date: Mon May 28 15:38:28 2007 New Revision: 2 Removed: .git/ svn-commit.2.tmp svn-commit.tmp Log: deleted leftover cruft

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

cl-cairo2-cvs May 2007