;; SUMMARY
;;;;  An HSB color model color wheel.
;; COPYRIGHT & LICENSE
;;;; Copyright (C) 2005 James P. Steiner
;;;; Some Rights Reserved.
;;;; Creative Commons Attribution-NonCommercial-ShareAlike License v. 2.0.
;;;; Visit http://creativecommons.org/licenses/by-nc-sa/2.0/ for more information.

to-report update-colors

ask patches
[ if self != patch 0 0
  [ let hh towardsxy 0 0 / 360
    let bb distancexy 0 0 / screen-edge-x * 1.2
    ;;let tt timer 
    ;;let ss abs sin (( tt * .125 - int (tt * .125)) *  360)
    set pcolor hsb hh sss bb
  ]
]
report true
end
@#$#@#$#@
GRAPHICS-WINDOW
303
10
733
461
17
17
12.0
1
10
1
1
1
0
1
1
1

CC-WINDOW
5
475
742
570
Command Center
0

BUTTON
14
15
152
48
Update from Slider
wait 1 ;; do nothing
T
1
T
OBSERVER
NIL
NIL

SLIDER
15
68
187
101
sss
sss
0
1
1.0
0.0010
1
NIL

MONITOR
28
112
118
161
NIL
update-colors
3
1

@#$#@#$#@
WHAT IS IT?
-----------
An HSB color-wheel demo 
@#$#@#$#@
default
true
0
Polygon -7500403 true true 150 5 40 250 150 205 260 250

@#$#@#$#@
NetLogo 3.0
@#$#@#$#@
@#$#@#$#@
@#$#@#$#@
@#$#@#$#@