Permalink
Browse files

mcl/sbcl/ccl snapshot for external push

  • Loading branch information...
1 parent a64fdae commit 1a89bf83a6764f5147d97746e94c78aec135c8a8 @lisp committed Mar 5, 2010
Showing with 22,875 additions and 46 deletions.
  1. +8 −2 README.md
  2. +33 −6 base/parameters.lisp
  3. +4 −4 base/utilities.lisp
  4. +15 −0 clx/clx.asd
  5. +1,289 −0 clx/clx.lisp
  6. +53 −0 clx/external.lisp
  7. +10 −7 geometry/location-math.lisp
  8. +10 −3 geometry/location-transform.lisp
  9. +3 −2 geometry/locations.lisp
  10. +1 −1 geometry/matrix.lisp
  11. +6 −5 geometry/transform-context.lisp
  12. +2 −0 model/.svn/README.txt
  13. 0 model/.svn/empty-file
  14. +115 −0 model/.svn/entries
  15. +1 −0 model/.svn/format
  16. 0 model/.svn/prop-base/abstract.lisp.svn-base
  17. 0 model/.svn/prop-base/editing.lisp.svn-base
  18. 0 model/.svn/prop-base/geodesic.lisp.svn-base
  19. 0 model/.svn/prop-base/geometric-constituents.lisp.svn-base
  20. 0 model/.svn/prop-base/node.lisp.svn-base
  21. 0 model/.svn/prop-base/polyline.lisp.svn-base
  22. 0 model/.svn/prop-base/projection.lisp.svn-base
  23. 0 model/.svn/prop-base/raster.lisp.svn-base
  24. 0 model/.svn/prop-base/sphere.lisp.svn-base
  25. 0 model/.svn/prop-base/stroke.lisp.svn-base
  26. 0 model/.svn/prop-base/view.lisp.svn-base
  27. 0 model/.svn/props/abstract.lisp.svn-work
  28. 0 model/.svn/props/editing.lisp.svn-work
  29. 0 model/.svn/props/geodesic.lisp.svn-work
  30. 0 model/.svn/props/geometric-constituents.lisp.svn-work
  31. 0 model/.svn/props/node.lisp.svn-work
  32. 0 model/.svn/props/polyline.lisp.svn-work
  33. 0 model/.svn/props/projection.lisp.svn-work
  34. 0 model/.svn/props/raster.lisp.svn-work
  35. 0 model/.svn/props/sphere.lisp.svn-work
  36. 0 model/.svn/props/stroke.lisp.svn-work
  37. 0 model/.svn/props/view.lisp.svn-work
  38. +184 −0 model/.svn/text-base/abstract.lisp.svn-base
  39. +66 −0 model/.svn/text-base/editing.lisp.svn-base
  40. +701 −0 model/.svn/text-base/geodesic.lisp.svn-base
  41. +145 −0 model/.svn/text-base/geometric-constituents.lisp.svn-base
  42. +21 −0 model/.svn/text-base/node.lisp.svn-base
  43. +41 −0 model/.svn/text-base/polyline.lisp.svn-base
  44. +57 −0 model/.svn/text-base/projection.lisp.svn-base
  45. +618 −0 model/.svn/text-base/raster.lisp.svn-base
  46. +83 −0 model/.svn/text-base/sphere.lisp.svn-base
  47. +85 −0 model/.svn/text-base/stroke.lisp.svn-base
  48. +139 −0 model/.svn/text-base/view.lisp.svn-base
  49. +212 −0 model/abstract.lisp
  50. +714 −0 model/geodesic.lisp
  51. +170 −0 model/geometric-constituents.lisp
  52. +670 −0 model/raster.lisp
  53. +24 −0 opengl/external.lisp
  54. +14 −0 opengl/opengl.asd
  55. +2,027 −0 opengl/opengl.lisp
  56. +78 −0 opengl/package.lisp
  57. +2 −0 projection/.svn/README.txt
  58. 0 projection/.svn/empty-file
  59. +139 −0 projection/.svn/entries
  60. +1 −0 projection/.svn/format
  61. 0 projection/.svn/prop-base/abstract-projection.lisp.svn-base
  62. 0 projection/.svn/prop-base/abstract.lisp.svn-base
  63. 0 projection/.svn/prop-base/clim.lisp.svn-base
  64. 0 projection/.svn/prop-base/clx.lisp.svn-base
  65. 0 projection/.svn/prop-base/common-graphics.lisp.svn-base
  66. 0 projection/.svn/prop-base/core-graphics.lisp.svn-base
  67. 0 projection/.svn/prop-base/ndc-transform-context.lisp.svn-base
  68. 0 projection/.svn/prop-base/opengl.lisp.svn-base
  69. 0 projection/.svn/prop-base/port-transform-context.lisp.svn-base
  70. 0 projection/.svn/prop-base/quickdraw.lisp.svn-base
  71. 0 projection/.svn/prop-base/quicktime.lisp.svn-base
  72. 0 projection/.svn/prop-base/svg-stream.lisp.svn-base
  73. 0 projection/.svn/prop-base/svg.lisp.svn-base
  74. 0 projection/.svn/props/abstract-projection.lisp.svn-work
  75. 0 projection/.svn/props/abstract.lisp.svn-work
  76. 0 projection/.svn/props/clim.lisp.svn-work
  77. 0 projection/.svn/props/clx.lisp.svn-work
  78. 0 projection/.svn/props/common-graphics.lisp.svn-work
  79. 0 projection/.svn/props/core-graphics.lisp.svn-work
  80. 0 projection/.svn/props/ndc-transform-context.lisp.svn-work
  81. 0 projection/.svn/props/opengl.lisp.svn-work
  82. 0 projection/.svn/props/port-transform-context.lisp.svn-work
  83. 0 projection/.svn/props/quickdraw.lisp.svn-work
  84. 0 projection/.svn/props/quicktime.lisp.svn-work
  85. 0 projection/.svn/props/svg-stream.lisp.svn-work
  86. 0 projection/.svn/props/svg.lisp.svn-work
  87. +1,931 −0 projection/.svn/text-base/abstract-projection.lisp.svn-base
  88. +869 −0 projection/.svn/text-base/abstract.lisp.svn-base
  89. +744 −0 projection/.svn/text-base/clim.lisp.svn-base
  90. +1,244 −0 projection/.svn/text-base/clx.lisp.svn-base
  91. +648 −0 projection/.svn/text-base/common-graphics.lisp.svn-base
  92. +1,123 −0 projection/.svn/text-base/core-graphics.lisp.svn-base
  93. +296 −0 projection/.svn/text-base/ndc-transform-context.lisp.svn-base
  94. +2,016 −0 projection/.svn/text-base/opengl.lisp.svn-base
  95. +303 −0 projection/.svn/text-base/port-transform-context.lisp.svn-base
  96. +1,030 −0 projection/.svn/text-base/quickdraw.lisp.svn-base
  97. +193 −0 projection/.svn/text-base/quicktime.lisp.svn-base
  98. +105 −0 projection/.svn/text-base/svg-stream.lisp.svn-base
  99. +708 −0 projection/.svn/text-base/svg.lisp.svn-base
  100. +1,982 −0 projection/abstract-projection.lisp
  101. +299 −0 projection/ndc-transform-context.lisp
  102. +319 −0 projection/port-transform-context.lisp
  103. +216 −0 projection/quicktime-context.lisp
  104. +40 −0 readmes/README-build-ccl.md
  105. +53 −0 readmes/README-build-sbcl.md
  106. +49 −0 readmes/asdf.diff
  107. +47 −0 readmes/build-init.lisp
  108. +268 −0 tests/geometry/matrix.lisp
  109. +9 −9 tests/projection/abstract-projection.lisp
  110. +7 −4 tests/projection/clx.lisp
  111. +82 −0 tests/projection/drawing-mode.lisp
  112. +224 −0 tests/projection/life-in-color.lisp
  113. +3 −3 tests/projection/opengl.lisp
  114. +41 −0 tests/projection/ops-per-second.lisp
  115. +285 −0 tests/projection/sampler.lisp
View
@@ -31,7 +31,8 @@ Over the years, it has been built and [probed](./tests/tests.asd) in the followi
<td></td></tr>
</table>
-
+The documentation is, unfortunately, to be found in the form of files intended for Word for Macintosh, Version 4.0, only.
+Until that improves, consult the [tests](./tests/) for examples.
Notes
-----
@@ -80,9 +81,14 @@ in this combined form, under the GAL as well
- 2005 [Alexander Repenning](mailto:ralex@cs.colorado.edu)
- closer-mop : MIT-style
- 2005 - 2010 [Pascal Costanza](http://p-cos.net)
-- clx : TI; additional attributions undated
+- clx : TI; additional attributions undated (consult the (external.lisp)[./clx/ecternal.lisp] for the reference to the
+ exact version
- 1987 : Texas Instruments
- 1988, 1989 : Franz Inc
+- meta : anon
+ - 2002 [Jochen Schmidt](jsc@dataheaven.de)
+- skippy : public domain
+ - 2005 [Zach Beane](xach@xach.com)
This library has evolved over the years under various copyrights
View
@@ -1,7 +1,8 @@
;;; -*- Mode: LISP; Syntax: Common-lisp; Package: de.setf.graphics.implementation; Base: 10; Lowercase: Yes -*-
-(de.setf.utility:document :file
- (description "This file defines utilities for the 'de.setf.graphics' library.")
+(in-package :de.setf.graphics.implementation)
+
+(document "This file defines global parameters for the 'de.setf.graphics' library."
(copyright
"Copyright 2010 [james anderson](mailto:james.anderson@setf.de) All Rights Reserved"
"'de.setf.graphics' is free software: you can redistribute it and/or modify it under the terms of version 3
@@ -25,16 +26,16 @@
(defvar dsg::*version* "0.1.3")
-(defparameter *context-view-transform* (matrix-identity (transform-matrix))
+(defparameter *context-view-transform* nil
"special binding for the active context's view transform")
-(defparameter *context-projection-transform* (matrix-identity (transform-matrix))
+(defparameter *context-projection-transform* nil
"special binding for the active context's projection transform")
-(defparameter *context-transform* (matrix-identity (transform-matrix))
+(defparameter *context-transform* nil
"special binding for the active context's composite transform")
-(defVar *path-modes* '(:erase ; fill with background or transparent
+(defvar *path-modes* '(:erase ; fill with background or transparent
:eofill ; fill with even/odd rule where supported, otherwise fill
:eofill-stroke ; fill then stroke with e/o rule
:fill ; fill with color/pattern
@@ -51,6 +52,32 @@
(defvar *rgba-registry* (make-hash-table :test 'equalp))
+;;; ndc transform context parameters
+
+(defparameter *arc-ndc* nil)
+(defparameter *line-ndc* nil)
+(defparameter *raster-ndc* nil)
+(defparameter *rectangle-ndc* nil)
+(defparameter *text-ndc* nil)
+
+(defparameter *ndc-context* nil
+ "bound within a call-with-projection-context for a ndc-transform-context for use the ndc-based operators.")
+
+(defparameter *ndc-coordinate-type* 'short-float
+ "if all coordinates satisfy this type, they are not transformed.")
+
+;;; port context parameters
+
+(defparameter *arc-port* nil)
+(defparameter *line-port* nil)
+(defparameter *raster-port* nil)
+(defparameter *rectangle-port* nil)
+(defparameter *text-port* nil)
+(defparameter *port-coordinate-type* 'fixnum
+ "if all coordinates satisfy this type, they are not transformed.
+ if nound to NIL, all coordinates are transformed.")
+
+
:de.setf.graphics
View
@@ -4,8 +4,8 @@
(in-package :de.setf.graphics.implementation)
-(de.setf.utility:document :file
- (description "This file defines utilities for the 'de.setf.graphics' library.")
+(document "This file defines utilities for the 'de.setf.graphics' library."
+
(copyright
"Copyright 2010 [james anderson](mailto:james.anderson@setf.de) All Rights Reserved"
"'de.setf.graphics' is free software: you can redistribute it and/or modify it under the terms of version 3
@@ -86,8 +86,8 @@
`(progn ,@(mapcar #'(lambda (v) `(assert-type ,v ,type)) variables)))
(defmacro defgraphicelement ((name (&key (include 'node))) &rest slots)
- "the defGraphicElement translates the older structure-oriented descriptions to CLOS defClass forms"
- `(defClass ,name (,include)
+ "the defGraphicElement translates the older structure-oriented descriptions to CLOS defclass forms"
+ `(defclass ,name (,include)
,(mapcar #'(lambda (slot-declaration)
(destructuring-bind (name initform &key type) slot-declaration
`(,name :initform ,initform :initarg ,(intern (string name) :keyword)
View
@@ -0,0 +1,15 @@
+;;; -*- Mode: LISP; Syntax: Common-lisp; Package: common-lisp-user; Base: 10; Lowercase: Yes -*-
+
+(in-package :common-lisp-user)
+
+(asdf:defsystem :de.setf.graphics.clx
+ :depends-on (:de.setf.graphics)
+ :long-description "The de.setf.graphics clx projection relies on
+ the common lisp x library and uses the `port-transform-context` to render scene models
+ in terms of that interface."
+ :serial t
+ :components ((:file "external")
+ (:file "clx")))
+
+(pushnew :de.setf.graphics.clx *features*)
+
Oops, something went wrong.

0 comments on commit 1a89bf8

Please sign in to comment.