gloss中的冻结模拟

Question

我正在使用gloss库来描绘一个模拟。是否有一个函数，当条件为真时停止simulation函数。只有最后绘制的图片应该保留在窗口中。

提前感谢

Answer 1

正如@ErikR建议的那样，一旦你达到了你正在寻找的状态，你所描述的就相当于不再更新模型。您可以定义一个作用于单步执行函数的组合子，执行以下操作：

untilModel
  :: (ViewPort -> Float -> model -> model)
  -> (model -> Bool)
  -> (ViewPort -> Float -> model -> model)
untilModel step isFrozen v f m =
  if isFrozen m then m
  else step v f m

如果您有一个step函数，并且想要在isFrozen对模型为真时停止模拟，则只需将修改后的步长函数step `untilModel` isFrozen传递给simulate即可。