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

    +98

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    case ColorChunkStart of  
   0 : result := RGB(255,   
                     (255 div ColorChunk) * ColorChunkIndex,   
                     0);   
   1 : result := RGB(255 - (255 div ColorChunk) * ColorChunkIndex,   
                     255,   
                     0);   
   2 : result := RGB(0, 255, (255 div ColorChunk) * ColorChunkIndex);   
   3 : result := RGB(0,   
                     255 - (255 div ColorChunk) * ColorChunkIndex,   
                     255);   
   4 : result := RGB((255 div ColorChunk) * ColorChunkIndex,   
                     0,   
                     255);   
   5 : result := RGB(255,   
                     0,   
                     255 - (255 div ColorChunk) * ColorChunkIndex);   
  else  
    if WrapToRed <> false then  
      result := RGB(255, 0, 0) else  
      result := RGB(255, 0, 255);   
end;{Case}

    Говно?

    Запостил: Fai, 02 Августа 2011

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

    • ava guest 02.08.2011 22:41 # 0

      чё уж. давайте весь код мира суда запостим.
      унылый же код-стена
      Ответить

    • ava TarasB 02.08.2011 22:50 # −3

      я бы закешировал (255 div ColorChunk) * ColorChunkIndex
      Ответить

    • ava Lure Of Chaos 02.08.2011 23:20 # 0

      непонятно, что оно делает, но, наверное, можно в 1-2 строки
      Ответить

    • ava RaZeR 03.08.2011 16:50 # −1

      Атценити код!
      Ответить

      • ava Fai 03.08.2011 19:10 # 0

        Код не мой. Просто мне он не понравился, но лучше сделать не могу. Вот и спрашиваю говно или нет.
        Ответить

    • ava guest8 09.04.2019 11:16 # −999

      показать все, что скрытоvanished
      Ответить

    • ava Bezeus 25.08.2021 01:02 # 0

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

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