diff --git a/.gitattributes b/.gitattributes
index 37c03cc9075eb7d7ab31bd1908027260a20ee0de..72656622019daccf4eda0abb0d8b36cafaabeddd 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -48,6 +48,7 @@ testfont binary
 /src/modules/Image/dct.c foreign_ident
 /src/modules/Image/doc/Image.html foreign_ident
 /src/modules/Image/font.c foreign_ident
+/src/modules/Image/illustration.pike foreign_ident
 /src/modules/Image/image.c foreign_ident
 /src/modules/Image/image.h foreign_ident
 /src/modules/Image/lzw.c foreign_ident
diff --git a/src/modules/Image/illustration.pike b/src/modules/Image/illustration.pike
new file mode 100644
index 0000000000000000000000000000000000000000..f0c3d2e6943064a0c7637ea74e6393a4b175e284
--- /dev/null
+++ b/src/modules/Image/illustration.pike
@@ -0,0 +1,27 @@
+/* $Id: illustration.pike,v 1.1 1997/05/29 22:51:19 mirar Exp $ */
+
+import Image;
+import Stdio;
+
+object lena_image;
+
+object lena()
+{
+   return lena_image;
+}
+
+object foo()
+{
+***the string***
+}
+
+string doit(string name)
+{
+   object o=foo();
+   if (o->toppm()==lena()->toppm()) 
+      return "<img src=lena.gif width=67 height=67>";
+   
+   rm("doc/"+name);
+   write_file("doc/"+name,o->togif());
+   return "<img src="+name+" width="+o->xsize()+" height="+o->ysize()+">";
+}