NetLogo version NetLogo 4.0.4
Running with NetLogoLite.jar version 404.
NetLogo Version: NetLogo 4.0.4
globals[ old-1 old-2 old-3 ] to-report get-method-1 let cnames (list "brick" "red" "blue" "orange" "yellow" "lemon" "midnight") let cvalues (list (red - 2) red blue orange yellow (yellow + 2) (violet - 2) ) report item (position method-1 cnames) cvalues end to-report get-method-2 report last method-2 end to-report get-method-3 report run-result method-3 end to-report dark-green report green - 2 end to-report medium-green report green end to-report light-green report green + 2 end to-report update-view if get-method-1 != old-1 [ set old-1 fill get-method-1 1 tick report old-1 ] if get-method-2 != old-2 [ set old-2 fill get-method-2 2 tick report old-2 ] if get-method-3 != old-3 [ set old-3 fill get-method-3 3 tick report old-3 ] report "..." end to-report fill [ #color #section ] let band-start min-pxcor + (world-width / 3) * (#section - 1) let band-end min-pxcor + (world-width / 3) * (#section ) - 1 ask patches with [ pxcor >= band-start and pxcor <= band-end ] [ set pcolor #color ] report #color end
View or download the complete model file (to download: right-click, save-link-as):
-- Download color-chooser_2009 --