使用滑块获取海龟颜色的用户输入

Question

我想根据我可以在界面中更改的变量设置海龟的颜色。我正在考虑使用一个值从 1 到 5 的滑块，该值将决定将使用多少种颜色来为海龟着色。

例如，如果值为 2，那么海龟将用两种颜色着色。如果我可以控制要选择的颜色，我将不胜感激，但随机颜色也可以。

我曾经有一个静态的双色设置：

set color one-of [ red blue green brown orange ]

就这么简单。但是对于动态设置，我是这样做的。有没有更有效的方法来做到这一点？

 if groups = 1 [ set color red ]
    if groups = 2 [ set color one-of [ red blue ] ]
    if groups = 3 [ set color one-of [ red blue green ] ]
    if groups = 4 [ set color one-of [ red blue green orange ] ]
    if groups = 5 [ set color one-of [ red blue green orange brown ] ]

Answer 1

您可以使用sublist 从所需颜色列表中提取您想要的颜色数量：

let colors sublist [ red blue green orange brown ] 0 groups
ask turtles [ set color one-of colors ]

如果您不想总是以相同的顺序获得相同的颜色，您可以使用n-of 和base-colors：

let colors n-of groups base-colors