1. Pascal / Говнокод #2072

    +92.8

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    procedure MyLine(X1, Y1, X2, Y2: Integer; Color: TColor; Canvas: TCanvas);
    begin
      if (Abs(X1 - X2) <= 1) and (Abs(Y1 - Y2) <= 1) then
        Canvas.Pixels[X1, Y1] := Color
      else
      begin
        MyLine(X1, Y1, (X1 + X2) shr 1, (Y1 + Y2) shr 1, Color, Canvas);
        MyLine((X1 + X2) shr 1, (Y1 + Y2) shr 1, X2, Y2, Color, Canvas);
      end;
    end;

    Когда-то давно очень увлекался рисованием в ДОС-е.
    До сих пор помню процедуру быстрого рисования кривой прямой %)
    представляю на суд тот же алгоритм.

    Запостил: Arch, 29 Октября 2009

    Комментарии (5) RSS

    • "кривой прямой"? Это как? :-)
      А графики функций в консоли строить не пробовали? xD (Я, кстати, серьезно...)
      Ответить
      • Наверно имеется ввиду прямая уродливо выглядит.
        А так весьма забавно :)
        Ответить
    • наговнокодил - так наговнокодил. надеюсь, тебе стыдно
      Ответить
    • Редкий экземпляр. Чистый говнокод.
      Ответить
    • Этот код для Делфи...

      // Капитан Очевидность
      Ответить

    Добавить комментарий