О стереограммах

[Somebody]

Для тех, кто совсем ничего не видит. Мне кажется, всякие осмысленные текстуры часто отвлекают в начале, поэтому можно попробовать с заранее известным изображением:

uses
  graph;
const
  n = 90;
  d1 = 88;
  d2 = 86;
var
  d, m, x, y: integer;
begin
initgraph(d, m, '');
setcolor(15);
settextstyle(0, 0, 6);
settextjustify(1, 1);
outtextxy(350, 240, 'TEXT');
readln;
for x := 0 to n - 1 do
  for y := 0 to 479 do
    putpixel(x, y, random(16));
for x := n to 639 do
  for y := 0 to 479 do
    if getpixel(x, y) = 0 then
      putpixel(x, y, getpixel(x - d1, y))
    else
      putpixel(x, y, getpixel(x - d2, y));
readln;
closegraph;
end.

[mutabor]

Вот эта, имхо, красивая.. Еще б море было по-натуральнее...

Это точно стереокартинка? Что-то я ничего в ней не вижу, и даже намека нет.

[Sazary]

Сообщение от mutabor

Это точно стереокартинка? Что-то я ничего в ней не вижу, и даже намека нет.

Да, стереокартинка. Просто она без скрытого изображения.
Мне понравилось, что тут хорошо объемность сделана.