Yinyang

 

Разбирал папку со сваленными подряд файлами и нашел одну статью. Немного помаялся над кодом и получил готовую картинку. Осталось изменить закраску фона:

       If Abs(h)>0.9
         co=127
       EndIf
      Box(xx*2,yy*2,2,2,Int(co))

Архив

Где-то на диске валяется еще одна программа, но пока не нашел.