Прога для создания стереокартинок из маски. С исходниками. Кто программирует - добро пожаловать. Сам не могу - времени нет. Чем больше работаешь с программой, получаются глюки. Рецепт - заново запускать прогу. Спс.

---

code:


(*



     TStereogram ver. 1.0 (Freeware)

     (c) Copyright 1999      Andrej Olejnik



     email olej@atlas.cz  or olej@asset.sk

     Any comments and BUG reports are welcome.



     TStereogram create fast Single Image Random Dot Stereograms (SIRDS),

     or Single Image Stereograms (SIS) depending on whether the picture

     contains random dots as a base for the 3D effect, or a repetitive

     image pattern. Unfortunately, each commercial company has labelled

     them differently. Shop owners generally don't know what you mean,

     unless you say "Hollusion" or one of the many other specific names.



     See some descriptions on WWW - http://www.ucl.ac.uk/~ucapwas/stech.html



     This unit & sample is Freeware.

     for use with Delphi 3/4  (I don't try with Delphi 2.0)

     this component is for private use only,

     You must not sell the component or the source code





     TStereogram uses TFastDIB v 2.5 from

     Gordon Alex Cowie <gfody@jps.net>

     www.jps.net/gfody

Вложение: 3561145_screator.zip