[Commit] nickle/examples/turtle Makefile.am, NONE, 1.1 snowflake.5c, 1.2, 1.3

[Keith Packard]

Committed by: keithp

Update of /local/src/CVS/nickle/examples/turtle
In directory home.keithp.com:/tmp/cvs-serv7599/examples/turtle

Modified Files:
	snowflake.5c 
Added Files:
	Makefile.am 
Log Message:
2004-05-26  Keith Packard  <keithp at keithp.com>
version 2.35

	* compile.c: (CompileArrayDimValue):
	Array dimension values are always local in static initializers
	
	* Makefile.am:
	* bench/Makefile.am:
	* configure.in:
	* examples/Makefile.am:
	* examples/menace2.5c:
	* examples/randtest.5c:
	* examples/rsa.5c:
	* examples/smlng/.cvsignore:
	* examples/smlng/Makefile.am:
	* examples/smlng/data.sgml:
	* examples/smlng/parse.5c:
	* examples/smlng/test.5c:
	* examples/turtle/Makefile.am:
	* examples/turtle/snowflake.5c:
	* make-version.sh:
	* scanf.5c:
	* update-version.sh:
	Clean up examples so they all work again.  Remove old files.
	add 'scanf' to top-level namespace


--- NEW FILE: Makefile.am ---
NICKLEFILES=\
	snowflake.5c \
	turtle.5c

exampledir=$(pkgdatadir)/examples/turtle

example_DATA=$(NICKLEFILES) snowflake.tex

EXTRA_DIST=$(example_DATA)

TESTS_ENVIRONMENT=NICKLESTART=$(top_srcdir)/builtin.5c NICKLEPATH=$(top_srcdir):$(top_srcdir)/$(subdir) $(top_builddir)/nickle
TESTS=snowflake.5c

CLEANFILES=snowflake.eepic snowflake.aux snowflake.dvi snowflake.log


Index: snowflake.5c
===================================================================
RCS file: /local/src/CVS/nickle/examples/turtle/snowflake.5c,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- a/snowflake.5c	25 Jul 2002 18:15:48 -0000	1.2
+++ b/snowflake.5c	26 May 2004 08:01:42 -0000	1.3
@@ -7,8 +7,7 @@
 # where <width> is the curve width in inches
 # and <depth> is the iteration depth
 
-load "turtle.5c"
-import Turtle;
+autoimport Turtle;
 
 void
 do_flake(int depth, rational scale) {
@@ -25,6 +24,9 @@
     do_flake(depth - 1, scale / 3);
 }
 
+if (dim(argv) < 3)
+    argv = (string[*]) { "snowflake.5c", "3", "3" };
+
 int width = string_to_integer(argv[1]);
 real height = sqrt((width / 3) ** 2 - (width / 6) ** 2) + 0.05 * width;
 start_turtle("snowflake.eepic", width, height);