Permalink
Browse files

fix demo

  • Loading branch information...
1 parent 8410488 commit 46a027d28b8158605a0472fe0b66b75d62cfb14d @albertoruiz committed Jun 14, 2012
Showing with 1 addition and 3 deletions.
  1. +0 −2 Makefile
  2. +1 −1 projects/tour/interface.hs
View
@@ -1,5 +1,3 @@
-projects = tour demos vision/geom vision/multiview patrec gpu
-
all:
cd packages; make
cd packages; make optional
@@ -7,7 +7,7 @@ clickPoints :: ITrans Channels ([Point], ImageGray)
clickPoints = transUI $ interface (Size 240 320) "pts" [] ft updt [] r sh
where
r _ pts input = (pts, (pts, notI . grayscale $ input))
- sh _ _ (pts,x) = Draw [ Draw x, color green . pointSz 3 $ pts ]
+ sh _ _ _ (pts,x) = Draw [ Draw x, color green . pointSz 3 $ pts ]
updt = [(key (MouseButton LeftButton), \_ p st -> p:st)]
ft _ _ = return ()

0 comments on commit 46a027d

Please sign in to comment.