From 59f35e4d97c8ee9c0d1852e076112c90bfd2e4e4 Mon Sep 17 00:00:00 2001
From: Alexander Iljin <ajsoft@yandex.ru>
Date: Sun, 22 Jan 2017 00:52:00 +0300
Subject: [PATCH] charts.demos: add demo vocab

---
 charts.factor      |  2 --
 demos/authors.txt  |  1 +
 demos/demos.factor | 22 ++++++++++++++++++++++
 demos/tags.txt     |  2 ++
 4 files changed, 25 insertions(+), 2 deletions(-)
 create mode 100644 demos/authors.txt
 create mode 100644 demos/demos.factor
 create mode 100644 demos/tags.txt

diff --git a/charts.factor b/charts.factor
index b8054cd7b1..e9b1c1bfac 100644
--- a/charts.factor
+++ b/charts.factor
@@ -22,5 +22,3 @@ M: chart pref-dim* drop { 300 300 } ;
 ! Map the data coordinates to the screen coordinates.
 ! Cut off data outside the presentation window. When cutting off vertically, split the line into segments and add new points if necessary. Return an array of line segments.
 ! Remove redundant points from the drawing pass.
-
-! chart new line new COLOR: blue >>color { { 0 100 } { 100 0 } { 100 50 } { 150 50 } { 200 100 } } >>data add-gadget "Chart" open-window
diff --git a/demos/authors.txt b/demos/authors.txt
new file mode 100644
index 0000000000..8e1955f8e1
--- /dev/null
+++ b/demos/authors.txt
@@ -0,0 +1 @@
+Alexander Ilin
diff --git a/demos/demos.factor b/demos/demos.factor
new file mode 100644
index 0000000000..24ba490f5a
--- /dev/null
+++ b/demos/demos.factor
@@ -0,0 +1,22 @@
+! Copyright (C) 2017 Alexander Ilin.
+! See http://factorcode.org/license.txt for BSD license.
+USING: accessors arrays charts charts.lines colors.constants
+kernel literals math math.constants math.functions sequences ui
+ui.gadgets ;
+IN: charts.demos
+
+CONSTANT: -pi $[ pi neg ]
+
+: sine-wave ( steps -- seq )
+    [ iota ] keep
+    pi 2 * swap / [ * pi - dup sin 2array ] curry map
+    ${ pi $[ pi sin ] } suffix ;
+
+: chart-demo ( -- )
+    chart new ${ ${ -pi pi } { -1 1 } } >>axes
+    line new COLOR: blue >>color 40 sine-wave >>data
+    add-gadget "Chart" open-window ;
+
+MAIN: chart-demo
+
+! chart new line new COLOR: blue >>color { { 0 100 } { 100 0 } { 100 50 } { 150 50 } { 200 100 } } >>data add-gadget "Chart" open-window
diff --git a/demos/tags.txt b/demos/tags.txt
new file mode 100644
index 0000000000..1297d821fd
--- /dev/null
+++ b/demos/tags.txt
@@ -0,0 +1,2 @@
+graphics
+demos