From: AK on
Hi,

I was wondering if some kind-hearted soul could fix the following
notebook for me, which was written for some older version (pre-2002)
of Mathematica, so that it works with Mathematica 7:
http://www.bmi2.bmt.tue.nl/image-analysis/People/BRomeny/publications/Computer
Vision and Mathematica.zip
alternate link:
http://www.mediafire.com/download.php?mmu2myyenny

It is available as a PDF paper as well:
http://bmia.bmt.tue.nl/people/BRomeny/publications/Computer%20Vision%20and%20Mathematica.pdf

I've so far only dabbled with a small subset of Mathematica on and off
over the last couple of months, and have not used any version before
7, and for all I know what might take me hours to fix could be done by
a pro in 10 or 20 minutes (at least, that's the hope).
(I tried running the notebook without any changes, and with all of
Mathematica's suggested changes, but didn't get very far.)

Anyway, if it's asking too much, just ignore the request.

I would also like to know how I could change the overall font size of
the notebook as it's too big.

TIA and regards,
AK

From: Alexander Elkins on
First and foremost note the existence of the book by the same author as the
notebook, "Front-End Vision and Multi-Scale Image Analysis: Multi-scale
Computer Vision Theory and Applications, written in Mathematica
(Computational Imaging and Vision)" by Bart M. ter Haar Romeny, PhD
(November 2003), Springer-Verlag, ISBN 1402015038 HardCover / 1402015070
PaperBack.

The images you need for the notebook are:

mr64.gif (5323 bytes)
mr128.gif (18201 bytes)
mr256.gif (62120 bytes)
fundus256.gif (61227 bytes)
us.gif (78283 bytes)

These available individually as
http://extras.springer.com/2003/978-1-4020-1507-6/AddOns/Applications/FrontEndVision/Images/*.gif
Replace *.gif with mr64.gif, etc. as list above and download.

The images are also available as part of the extras for the book listed
above on its CD or online from
http://bmia.bmt.tue.nl/Education/Courses/FEV/book/FrontEndVision2005.zip,
Content-Length: 246216481, Last-Modified: Sun, 06 Nov 2005 15:21:28 GMT.

As to additional changes needed to make the notebook to work in version 7:

As of version 6, importing a GIF file produces different results:

Change: im=Import["mr64.gif"][[1,1]];
into: im=Reverse[Import["mr64.gif"][[1]]/.{g_Integer,
g_Integer,g_Integer}:>g];

In the older versions 4 & 5, ListPlot3D is different:

ListPlot3D[array, shades] generates a plot with each element of the surface
shaded according to the specification in shades.

So my best guess for now is:

Change: Graphics3D[ListPlot3D[array, shades, otheroptions]]
into: ListPlot3D[array, VertexColors->{shades}, otheroptions]

More than 10 minutes work is needed...

Alexander Elkins

"AK" <aaarbk(a)gmail.com> wrote in message news:hto932$ksf$1(a)smc.vnet.net...
> Hi,
>
> I was wondering if some kind-hearted soul could fix the following
> notebook for me, which was written for some older version (pre-2002)
> of Mathematica, so that it works with Mathematica 7:
>
http://www.bmi2.bmt.tue.nl/image-analysis/People/BRomeny/publications/Computer
> Vision and Mathematica.zip
> alternate link:
> http://www.mediafire.com/download.php?mmu2myyenny
>
> It is available as a PDF paper as well:
>
http://bmia.bmt.tue.nl/people/BRomeny/publications/Computer%20Vision%20and%20Mathematica.pdf
>
> I've so far only dabbled with a small subset of Mathematica on and off
> over the last couple of months, and have not used any version before
> 7, and for all I know what might take me hours to fix could be done by
> a pro in 10 or 20 minutes (at least, that's the hope).
> (I tried running the notebook without any changes, and with all of
> Mathematica's suggested changes, but didn't get very far.)
>
> Anyway, if it's asking too much, just ignore the request.
>
> I would also like to know how I could change the overall font size of
> the notebook as it's too big.
>
> TIA and regards,
> AK
>