Кстати, если вынести за скобки модерновые дизайнерские навороты типа цветных лучей-связей, то
куб-силуэт без проблем может быть создан в программе dal_vjaz_2, выложенной мной 17.03.12 в
теме "AB_VJAZ и DAL_VJAZ'.

Вот так выглядит скриншот:
Вложение:
kub.JPG [ 308.42 КБ | Просмотров: 21259 ]


А это исходный код куба-силуэта в dal_vjaz_2 для паскаля:
## Код:
```
(* t.0. *)
unit u_test1;

interface   // что-нибудь  _>2.2  _>1#2 _>1#3  _>1.ququ  _>.2. _>.3. _>.4.

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

implementation

{$R *.DFM}

(* i.1. kub_siluet *)

procedure  kub_siluet;
   (*i*)
   begin
   (*i CB *)
      (*i*)  if (wetka = 61)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 62;
      (*i*)  end else if (wetka = 62)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 62;
      (*i*)  end else if (wetka = 63)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 62;
      (*i*)  end else if (wetka = 64)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 62;
      (*i*)  end else if (wetka = 65)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 62;
      (*i*)  end else if (wetka = 66)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 62;
      (*i*)  end else if (wetka = 67)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 62;
      (*i*)  end;
      (*i*)  if (wetka = 51)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 52;
      (*i*)  end else if (wetka = 52)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 52;
      (*i*)  end else if (wetka = 53)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 52;
      (*i*)  end else if (wetka = 54)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 52;
      (*i*)  end else if (wetka = 55)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 4;
      (*i*)  end else if (wetka = 56)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 52;
      (*i*)  end else if (wetka = 57)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 52;
      (*i*)  end;
      (*i*)  if (wetka = 41)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 42;
      (*i*)  end else if (wetka = 42)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 42;
      (*i*)  end else if (wetka = 43)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 42;
      (*i*)  end else if (wetka = 44)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 42;
      (*i*)  end else if (wetka = 45)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 42;
      (*i*)  end else if (wetka = 46)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 42;
      (*i*)  end else if (wetka = 47)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 42;
      (*i*)  end;
      (*i*)  if (wetka = 31)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 32;
      (*i*)  end else if (wetka = 32)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 32;
      (*i*)  end else if (wetka = 33)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 32;
      (*i*)  end else if (wetka = 34)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 32;
      (*i*)  end else if (wetka = 35)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 32;
      (*i*)  end else if (wetka = 36)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 32;
      (*i*)  end else if (wetka = 37)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 32;
      (*i*)  end;
      (*i*)  if (wetka = 21)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 22;
      (*i*)  end else if (wetka = 22)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 22;
      (*i*)  end else if (wetka = 23)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 22;
      (*i*)  end else if (wetka = 24)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 22;
      (*i*)  end else if (wetka = 25)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 22;
      (*i*)  end else if (wetka = 26)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 22;
      (*i*)  end else if (wetka = 27)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 22;
      (*i*)  end;
      (*i*)  if (wetka = 11)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 12;
      (*i*)  end else if (wetka = 12)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 12;
      (*i*)  end else if (wetka = 13)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 12;
      (*i*)  end else if (wetka = 14)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 12;
      (*i*)  end else if (wetka = 15)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 12;
      (*i*)  end else if (wetka = 16)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 12;
      (*i*)  end else if (wetka = 17)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 12;
      (*i*)  end;
      (*i*)  if (wetka = 1)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 11;
      (*i*)  end else if (wetka = 2)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 21;
      (*i*)  end else if (wetka = 3)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 51;
      (*i*)  end else if (wetka = 4)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 2;
      (*i*)  end else if (wetka = 5)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 2;
      (*i*)  end else if (wetka = 6)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 2;
      (*i*)  end else if (wetka = 7)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)
         (*i*)  wetka := 0;
      (*i*)  end;
   (*i CE *)
   (*i ВЫХОД *)
   end;
(*i КОНЕЦ *)


(* t.100. *)

end.
```
