Initial commit

README.txt

@@ -0,0 +1,52 @@
+sb-dxf copyright 2010 Kirill Temnov
+
+sb-dxf is a standalone library for generating dxf documents.
+
+Installstion:
+1) asdl installation
+   $ tar -pczf sb-dxf.tar.gz ./sb-dxf/
+   $ sbcl
+   * (require 'asdf)
+   * (require 'asdf-install)
+   * (asdf-install:install "sb-dxf.tar.gz")
+   * (asdf:oos 'asdf:compile-op 'sb-dxf)
+
+   You may be need to create symlink before calling (asdf:oos 'asdf:compile-op 'sb-dxf) 
+   like this:
+   $ cd ~/.sbcl/system
+   $ ln -s  ~/.sbcl/site/sb-test/sb-test.asd .
+
+   If you know how to avoid of creating symlink manualy, please write me
+
+2) manual
+   # create subdirectory in packages lisp directory
+   # for sbcl this will be
+   $ mkdir ~/.sbcl/site/sb-dxf/ 
+
+   # copy files to that directory
+   $ cp ./sb-dxf/* ~/.sbcl/site/sb-dxf/ 
+
+   # create symlink to sb-dxf.asd file 
+   # for sbcl:
+   $ cd ~/.sbcl/system
+   $ ln -s  ~/.sbcl/site/sb-test/sb-test.asd .
+
+Using sample:
+	(require 'asdf)
+	(asdf:oos 'asdf:load-op :sb-test)    
+
+	(defvar mgr (dxf:create-manager))
+	(add-object mgr (make-instance 'dxf-line :start-point '(10 10 0) :end-point '(40 40 0)))
+	(add-object mgr (make-instance 'dxf-line :start-point '(40 10 0) :end-point '(10 40 0)))
+	(add-object mgr (make-instance 'dxf-circle :center-point '(25 25 0) :radius 7.5 :thickness 5))
+	(add-object mgr (make-instance 'dxf-arc :center-point '(25 25 0) :radius 10 :start-angle 10 :end-angle 80))
+	(add-object mgr (make-instance 'dxf-arc :center-point '(25 25 0) :radius 10 :start-angle 100 :end-angle 170))
+	(add-object mgr (make-instance 'dxf-arc :center-point '(25 25 0) :radius 10 :start-angle 190 :end-angle 260))
+	(add-object mgr (make-instance 'dxf-arc :center-point '(25 25 0) :radius 10 :start-angle 280 :end-angle 350))
+	(flush-manager mgr)
+
+    After performing this command in current directory appears file "manager.dxf". 	
+
+Documentation in source file.
+
+This implementation developed under sbcl, so, in other lisps, library may not will work correctly.

license.txt

@@ -0,0 +1,30 @@
+;; sb-dxf cross-platform Common Lisp library for generating DXF files.
+
+Kirill Temnov: allselead@gmail.com
+
+sb-dxf os distributed under BSD license
+
+Copyright (c) 2010, Kirill Temnov All rights reserved.
+==========================================================================================
+Redistribution and use in source and binary forms, with or without modification, are
+permitted provided that the following conditions are met:
+
+    * Redistributions of source code must retain the above copyright notice, this list of
+    * conditions and the following disclaimer.  Redistributions in binary form must
+    * reproduce the above copyright notice, this list of conditions and the following
+    * disclaimer in the documentation and/or other materials provided with the
+    * distribution.  Neither the name of author nor the names of its contributors may be
+    * used to endorse or promote products derived from this software without specific
+    * prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY
+EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
+COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR
+TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+==========================================================================================
+

sb-dxf.asd

@@ -0,0 +1,17 @@
+;;; -*- Mode: Lisp -*-
+
+(defpackage :sb-dxf-system  
+  (:use :common-lisp :asdf))
+
+(in-package :sb-dxf-system)
+
+(defsystem sb-dxf
+  :version "0.1.0"
+  :licence "BSD"
+  :description "sb-dxf"
+  :long-description "Lisp implementation of dxf writer"
+  :author "Kirill Temnov allselead@gmail.com"
+  :components ((:file "sb-dxf")
+	       (:doc-file "README.txt")
+	       (:doc-file "licence.txt")))
+