🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Thread View: comp.sys.next.misc
1 messages
1 total messages Started by Karl L. Barrus Tue, 14 Apr 1992 02:57
Mathematica & Tiffs
#1472
Author: Karl L. Barrus
Date: Tue, 14 Apr 1992 02:57
34 lines
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             |
\-----------------------------------/
Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads