Article View: comp.sys.next.misc
Article #1472Mathematica & Tiffs
From: Karl L. Barrus
Date: Tue, 14 Apr 1992 02:57
Date: Tue, 14 Apr 1992 02:57
34 lines
1698 bytes
1698 bytes
Well, I have a weenie way of importing tiffs into Mathematica: 1) I have a program that extracts pixel intensities from a tiff and writes out the values, one to a line Come to think of it, this is probably the key to the whole thing... 2) data = ReadList["file", Number] 3) array = Partition[data, 256, 256] My tiffs are all 256 x 256... 4) ListDensityPlot[array, Mesh->False, Axes->None, PlotLabel->"whatever"] NOTE: without the Mesh->False (or you can select/unselect ShowLines from the Graph menu) your plot will be all black!! At least that is what happens to me... From here, I histogram equalize, edge detect, etc. This procedure works pretty well for me. I would be interested in hearing about others ways!!! /-----------------------------------\ | Karl L. Barrus | | barrus@tree.egr.uh.edu (NeXTMail) | | elee7h5@jetson.uh.edu | \-----------------------------------/ I know, the spacing is probably messed up... -- /-----------------------------------\ | Karl L. Barrus | | barrus@tree.egr.uh.edu (NeXTMail) | | elee7h5@jetson.uh.edu | \-----------------------------------/
Technical Details
Message-ID:
<BARRUS.92Apr13205709@elm.tree.egr.UH.EDU>Path:
arc1-ca.pugleaf.net!sparky!uunet!think.com!zaphod.mps.ohio-state.edu!menudo.uh.edu!menudo.uh.edu!barrusShow Full Headers
Complete Article Headers
Newsgroups: comp.sys.next.misc Path: arc1-ca.pugleaf.net!sparky!uunet!think.com!zaphod.mps.ohio-state.edu!menudo.uh.edu!menudo.uh.edu!barrus From: barrus@elm.tree.egr.UH.EDU (Karl L. Barrus) Subject: Mathematica & Tiffs Message-ID: <BARRUS.92Apr13205709@elm.tree.egr.UH.EDU> Sender: usenet@menudo.uh.edu (USENET News System) Nntp-Posting-Host: elm.egr.uh.edu Organization: University of Houston, College of Engineering Distribution: comp.sys.next.misc Date: Tue, 14 Apr 1992 02:57:09 GMT Lines: 34