projects
/
L-seed.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
0de3edf
)
Better Zoom&Pan (still with bug)
author
Joachim Breitner
<mail@joachim-breitner.de>
Sat, 27 Jun 2009 19:14:41 +0000
(21:14 +0200)
committer
Joachim Breitner
<mail@joachim-breitner.de>
Sat, 27 Jun 2009 19:14:41 +0000
(21:14 +0200)
src/Lseed/Renderer/Cairo.hs
patch
|
blob
|
history
diff --git
a/src/Lseed/Renderer/Cairo.hs
b/src/Lseed/Renderer/Cairo.hs
index
9ac9c6e
..
53b7aeb
100644
(file)
--- a/
src/Lseed/Renderer/Cairo.hs
+++ b/
src/Lseed/Renderer/Cairo.hs
@@
-97,7
+97,7
@@
cairoObserver = do
let (xLeft,xRight,xHeight) = gardenOffset garden
scaleY = 1/xHeight
shiftX = if xRight-xLeft-xHeight > 0
- then scaleY * (xLeft + (1+sin (s/
2
))/2 * max 0 (xRight-xLeft-xHeight))
+ then scaleY * (xLeft + (1+sin (s/
(xHeight*4)
))/2 * max 0 (xRight-xLeft-xHeight))
else 0
renderWithDrawable dwin $ do