Changeset 20943 for lang/haskell/nario/Actor/Flower.hs

Timestamp:

10/08/08 07:34:08 (3 months ago)

Author:

mokehehe

Message:

キー入力処理変更
Sキーでスクリーンショットを取れるように

Files:

• lang/haskell/nario/Actor/Flower.hs (modified) (1 diff)

lang/haskell/nario/Actor/Flower.hs

@@ -27 +27 @@
         update fld self = (self, [])
 
-        render self imgres scrx sur = do
+        render self imgres scrx sur =
                 putimg sur imgres ImgFlower ((x self) `div` one - chrSize `div` 2 - scrx) ((y self) `div` one - 15 - 8)
-                return ()
 
         getHitRect self = Just $ Rect (xx - 8) (yy - 16) (xx + 8) yy