Import Debian changes 5d6-3.2debian/5d6-3.2

scm (5d6-3.2) unstable; urgency=low

  * Fix hppa compile.  Closes: #144062

scm (5d6-3.1) unstable; urgency=low

  * NMU with patch from James Troup, to fix FTBFS on sparc. Closes: #191171

scm (5d6-3) unstable; urgency=low

  * Add build depend on xlibs-dev (Closes: #148020)

scm (5d6-2) unstable; urgency=low

  * Remove libregexx-dev from build-depends.
  * Change build to use ./scmlit rather than scmlit (should fix some build
    problems) (looks like alpha is mostly building)
  * New release (Closes: #140175)
  * Built with turtlegraphics last time (Closes: #58515)

scm (5d6-1) unstable; urgency=low

  * New upstream.
  * Add xlib and turtlegr to requested list of features. (closes
    some bug)
  * Make clean actually clean most everything up.
  * Remove hacks renaming build to something else and just set build as a
    .PHONY target in debian/rules.
  * Add the turtlegr code.

scm (5d5-1) unstable; urgency=low

  * New upstream
  * Has fixes for 64 bit archs.  May fix alpha compile problem.  Does fix
    (Closes: #140175)
  * Take out -O2 arg.

scm (5d4-3) unstable; urgency=low

  * Don't link with regexx, but just use libc6's regular expression
    functions.
  * Define (terms) to output /usr/share/common-licenses/GPL (Closes:
    #119321) 

scm (5d4-2) unstable; urgency=low

  * Add texinfo to build depends (Closes: #107011)

scm (5d4-1) unstable; urgency=low

  * New upstream release.
  * Move install-info --remove to prerm.

scm (5d3-5) unstable; urgency=low

  * Move scm info files to section "The Algorithmic Language Scheme" to
    match up with guile.

scm (5d3-4) unstable; urgency=low

  * Fix build depends (Closes: #76691)

scm (5d3-3) unstable; urgency=low

  * Fix path in scm dhelp file.

scm (5d3-2) unstable; urgency=low

  * Actually put the header files in the package.  Oops.

scm (5d3-1) unstable; urgency=low

  * New upstream. (Closes: #74761)
  * Make (terms) use new license location.
  * Make use libregexx rather than librx.
  * Fix build depends for above.
  * Using new regex lib seems to fix crash (Closes: #66787)
  * Consider adding scm-dev package with headers, but instead just add the
    headers to the scm package. (Closes: #70787)
  * Add doc-base support.

1 files changed, 82 insertions, 0 deletions

diff --git a/grtest.scm b/grtest.scm
new file mode 100644
index 0000000..7401308
--- /dev/null
+++ b/grtest.scm
@@ -0,0 +1,82 @@
+
+; This is a quick hack to test the graphics primitives.
+; The SLIB scheme library is needed for random.
+; IMHO, the syntax of `do' in scheme is horrible!
+; - sjm
+
+(define (grtest)
+  (require 'random) ; needs SLIB
+  (graphics-mode!)
+
+  (display "testing draw-to") (newline)
+  (clear-graphics!)
+  (goto-center!)
+  (do ((x 0 (+ x 3)))
+      ((> x (max-x)) 0)
+    (set-color! (remainder (/ x 3) (max-color)))
+    (draw-to x 0)
+    (draw-to x (max-y))
+  )
+
+  (do ((y 0 (+ y 3)))
+      ((> y (max-y)) 0)
+    (set-color! (remainder (/ y 3) (max-color)))
+    (goto-center!)
+    (draw-to! 0 y)
+    (goto-center!)
+    (draw-to! (max-x) y)
+  )
+
+  (goto-nw!)
+  (do ((x 0 (+ x 2)))
+      ((> x (max-x)) 0)
+    (set-color! (remainder (/ x 2) (max-color)))
+    (draw-to x (max-y))
+  )
+  (do ((y (+ (max-y) 1) (- y 2)))
+      ((< y 0) 0)
+    (set-color! (remainder (/ y 2) (max-color)))
+    (draw-to (max-x) y)
+  )
+
+  (display "testing set-dot!") (newline)
+  (clear-graphics!)
+  (do ((x 0 (+ x 1)))
+      ((= x 100) 0)
+    (set-dot! (+ (random (max-x)) 1) (+ (random (max-y)) 1)
+	      (+ (random (max-color)) 1))
+  )
+
+  (display "testing draw with turn-to!") (newline)
+  (clear-graphics!)
+  (goto-center!)
+  (do ((x 0 (+ x 1)))
+      ((= x 100) 0)
+    (set-color! (+ (random (max-color)) 1))
+    (turn-to! (random 360))
+    (draw (random 50))
+  )
+
+  (display "testing draw with turn-right") (newline)
+  (clear-graphics!)
+  (goto-center!)
+  (do ((x 0 (+ x 1)))
+      ((= x 100) 0)
+    (set-color! (+ (random (max-color)) 1))
+    (turn-right (random 90))
+    (draw (random 50))
+  )
+
+  (display "testing draw with turn-left") (newline)
+  (clear-graphics!)
+  (goto-center!)
+  (do ((x 0 (+ x 1)))
+      ((= x 100) 0)
+    (set-color! (+ (random (max-color)) 1))
+    (turn-left (random 90))
+    (draw (random 50))
+  )
+
+  (text-mode!)
+)
+