Update cfdg models: call doesn't work on 'f'. fix related pits.

diff --git a/extra/cfdg/models/flower6/flower6.factor b/extra/cfdg/models/flower6/flower6.factor
index cae8024b5028823064bd5aecf131c1b3d991465e..b77968c863ab320dbada4792ff388c0e5cd92477 100644 (file)
--- a/extra/cfdg/models/flower6/flower6.factor
+++ b/extra/cfdg/models/flower6/flower6.factor
@@ -19,6 +19,7 @@ iterate? [
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
 : run ( -- )
+[ ] >background
 { -1 2 -1 2 } viewport set
 0.01 threshold set
 [ flower6 ] start-shape set

diff --git a/extra/cfdg/models/lesson/lesson.factor b/extra/cfdg/models/lesson/lesson.factor
index bd3f7914d812a56b22840386700e1ea1a694d0a7..26934aa182410ca5efe3b960b2d929f3455cf5c8 100644 (file)
--- a/extra/cfdg/models/lesson/lesson.factor
+++ b/extra/cfdg/models/lesson/lesson.factor
@@ -97,6 +97,7 @@ iterate? [
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
 : run ( -- )
+[ ] >background
 { -5 25 -15 25 } viewport set
 0.03 threshold set
 [ toc ] start-shape set

diff --git a/extra/cfdg/models/snowflake/snowflake.factor b/extra/cfdg/models/snowflake/snowflake.factor
index 42e0b3e3045883c9a894754e78650abc972b95db..e42c297581453c6e3dfde3a60e7e9f12db5972c5 100644 (file)
--- a/extra/cfdg/models/snowflake/snowflake.factor
+++ b/extra/cfdg/models/snowflake/snowflake.factor
@@ -26,6 +26,7 @@ spike
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
 : run ( -- )
+[ ] >background
 { -40 80 -40 80 } viewport set
 0.1 threshold set
 [ snowflake ] start-shape set