Commit 2c4c7a983d431b1d011f40587d63f02d68e041bb

Some small modifications
testclassification.hs
(4 / 2)
  
407407 then
408408 return []
409409 else
410 withForestFromColorCVImage (fromJust i) 8 8 $ (mapForestDeep toColorPair) . updateForest
410 withForestFromColorCVImage (fromJust i) 8 8 $ (mapForestDeep $ toColorPair . divideTree) . updateForest
411411
412412--forestToCategory :: String -> ImageForest -> Category BlockFeatures
413413--forestToCategory l f = (C l (map toFeatures (trees f)))
586586
587587imagefile = "./sign/ajoneuvolla_ajo_kielletty.png"
588588b1 = cvColorImageToBlocksWithFeatures imagefile
589p1 = cvColorImageToColorPairs imagefile
589590
590591main = --plotScatterAll
591592 --print $ normShapes
592593 do
594 print $ length p1
593595 --print $ countedWords
594596 --print $ "All Triangles: " ++ (show tWords)
595597 --print $ "Triangle 1: " ++ (show t1Words)
606606
607607 --plotScatterAll
608608 --plotHistAll
609 plotScatterPairs $ cvColorImageToColorPairs imagefile
609 plotScatterPairs $ p1 -- cvColorImageToColorPairs imagefile
610610 --print $ bw1
611611 displayInWindow "forest" (512, 512) (200, 200) black $
612612 translate (-256) (256) $ pictures $ map draw $ map mirrorYBlock b1