From c6c22a4d5d68f9a406d527f04e01006656ece979 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Fri, 28 Aug 2009 10:40:01 -0500
Subject: [PATCH] add a terrain-generation benchmark so slava will make it fast

---
 .../terrain-generation/terrain-generation.factor       | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 extra/benchmark/terrain-generation/terrain-generation.factor

diff --git a/extra/benchmark/terrain-generation/terrain-generation.factor b/extra/benchmark/terrain-generation/terrain-generation.factor
new file mode 100644
index 0000000000..7fbb0ff43f
--- /dev/null
+++ b/extra/benchmark/terrain-generation/terrain-generation.factor
@@ -0,0 +1,10 @@
+! (c)Joe Groff bsd license
+USING: io kernel terrain.generation threads ;
+IN: benchmark.terrain-generation
+
+: terrain-generation-benchmark ( -- )
+    "Generating terrain segment..." write flush yield
+    <terrain> { 0.0 0.0 } terrain-segment drop
+    "done" print ;
+
+MAIN: terrain-generation-benchmark