Commit 528014ec4d05a3ec8c55dfd4efda3475f56a5e2a

Returned imagetree test code to main
testclassification.hs
(4 / 4)
  
556556 fs <- glob $ compile $ head $ args
557557 print $ "Loading " ++ (show $ length fs) ++ " images"
558558
559 --let ps = normalize $ map fileToFeatureVector fs
560 --plotHistList ps
559 let ps = normalize $ map fileToFeatureVector fs
560 plotHistList ps
561561 --let ps = concatMap cvColorImageToColorPairs fs
562562 --plotScatterPairs ps
563 displayInWindow "forest" (512, 512) (200, 200) white $
564 translate (-50) 50 $ scale 100 100 $ draw $ makeColorHistogram p1 (16,16) 16
563 --displayInWindow "forest" (512, 512) (200, 200) white $
564 -- translate (-50) 50 $ scale 100 100 $ draw $ makeColorHistogram p1 (16,16) 16
565565 -- pictures $ map plotColor $ ps
566566 print $ "Finished analyzing " ++ (show $ length fs) ++ " images"
567567