Spider chart
[1/8] from: lmecir::mbox::vol::cz at: 23-Nov-2004 7:08
Hi, I wrote this for my colleagues to be able to draw spider charts.
; use INCLUDE to resolve dependencies
do http://www.fm.vslib.cz/~ladislav/rebol/include.r
; to be able to INCLUDE the files from Ladislav's page
include/addpath http://www.fm.vslib.cz/~ladislav/rebol/
; define ROUND if needed
if not value? 'round [include %rounding.r]
; define CASE if needed
if not value? 'case [
include %pif.r
case: :pif
]
; This is the file necessary to draw spider charts
include %spider.r
; This is a possible usage
view layout build/with [box 600x600 effect [draw [pen black spider [
size 600x600
categories ["Category 1" "Category 2" "Category 3"
Category 4
"Category 5" "Category 6" "Category 7" "Category 8"]
data [1 2 3 4 5 6 7 8]
pen red
scale 4
]
]
]
] [spider: :spider*]
-L
[2/8] from: maarten::vrijheid::net at: 23-Nov-2004 14:03
** Script Error: build has no value
:(
--Maarten
Ladislav Mecir wrote:
[3/8] from: lmecir::mbox::vol::cz at: 24-Nov-2004 7:45
Maarten Koopmans napsal(a):
[4/8] from: maarten::vrijheid::net at: 26-Nov-2004 8:25
Yes. I copied ans pasted, it (include) started downloading and then the
script threw the error.
--Maarten
Ladislav Mecir wrote:
[5/8] from: lmecir:mbox:vol:cz at: 24-Nov-2004 7:45
Maarten Koopmans napsal(a):
[6/8] from: maarten:vrijheid at: 26-Nov-2004 8:25
Yes. I copied ans pasted, it (include) started downloading and then the
script threw the error.
--Maarten
Ladislav Mecir wrote:
[7/8] from: lmecir:mbox:vol:cz at: 27-Nov-2004 13:41
Maarten Koopmans napsal(a):
>Yes. I copied ans pasted, it (include) started downloading and then the
>script threw the error.
>
>--Maarten
>
I was using all Rebol enhancements that can be found in Alpha. Made it
backwards compatible down to 1.2.10 now. (see the
http://www.fm.vslib.cz/~ladislav/rebol/spider.r file):
do http://www.fm.vslib.cz/~ladislav/rebol/include.r
include/addpath http://www.fm.vslib.cz/~ladislav/rebol/
include %spider.r
view layout build/with [
box 600x600 effect [
draw [
spider [
size 600x600
; offset 100x100
pen black
scale 4
; scale [0 200 400 600 800]
categories [
"Category 1" "Category 2" "Category 3" "Category 4"
"Category 5" "Category 6" "Category 7" "Category 8"
]
directions
pen red
data [100 200 300 400 500 600 700 800]
pen blue
data [100 100 100 100 100 100 100 100]
]
]
]
] [spider: :spider*]
-L
[8/8] from: maarten::vrijheid::net at: 27-Nov-2004 15:57
Just ran it in rebcmdview (=1.2.10), nice dialect!
--Maarten
Ladislav Mecir wrote: