*
  Мысли   Галерея   Проекты   Тексты  
  Мысли   Галерея   Проекты   Тексты  
Giver: сол фетка  (2015-01-31 12:06:41)

Пофракталим на форте, даже не знаю что тут объяснят, все интуитивно понятно или очевидно.

: d s>d 0 d.r ;
: l ." <line x1='" d ." ' y1='" d ." ' x2='" d ." ' y2='" d ." ' style='stroke:rgb(255,0,0);stroke-width:2' />" cr ;
: tri >r 2dup swap r@ - swap r> rot rot >r >r >r r@ - 2dup 2dup r@ 2* + 2dup r> drop r> r> 2dup >r >r l l r> r> l ;
: lol >r 2dup r@ tri r> dup 20 < if 2drop drop exit then
2/ >r 2dup r@ + r@ recurse  2dup r@ - r@ recurse 2dup swap r@ - swap r@ recurse r> drop 2drop ;
cr 500 dup dup lol

Имя:
Комментарий: