光沢Haskellのフリーズシミュレーション

Question

私は光沢ライブラリを使用してシミュレーションを行っています。条件が真であるときにsimulation関数を停止する関数はありますか？最後に描画された画像だけがウィンドウに残ります。事前

Answer 1

で

おかげ@ErikRは、あなたが探している状態に達した後、あなたはもうモデルを更新しないように金額を記載しているものを、示唆したように。あなたがstep機能を持っていて、isFrozenは、モデルの真となった場合のシミュレーションを停止したいときは

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 

、あなたは、単に変更されたステップ関数simulateを渡すことができます：あなたはまさにこのことステッピングの機能に作用するコンビネータを定義することができますstep `untilModel` isFrozen。