Author Topic: Ромашки лютики  (Read 2233 times)

0 Members and 3 Guests are viewing this topic.

Prorok.18

  • Guest
Ромашки лютики
« on: May 08, 2015, 04:45:27 AM »
Можно ли получить список всех цветов по убывающей для Colormode 4 например?
« Last Edit: May 08, 2015, 04:49:12 AM by Prophet »

quant13

  • Активный участник
  • ***
  • Posts: 174
    • View Profile
Re: Ромашки лютики
« Reply #1 on: May 08, 2015, 11:34:08 AM »

dramster

  • Герой форума
  • *****
  • Posts: 1134
    • View Profile
Re: Ромашки лютики
« Reply #2 on: May 09, 2015, 09:29:12 AM »
например для колормод 4 этих цветов будет 4096 комбинаций. вот скрипт который запишет эти все цвета в лог.
Code: (clickermann) [Select]
#logfile

$clm=4 //число, соответствующее режиму коррекции


IF($clm=0)
   $bit=1
ELSE
   IF($clm=1)
      $bit=2
   ELSE
      IF($clm=2)
         $bit=4
      ELSE
         IF($clm=3)
            $bit=8
         ELSE
            IF($clm=4)
               $bit=16
            ELSE
               IF($clm=5)
                  $bit=32
               ELSE
                  IF($clm=6)
                     $bit=64
                  ELSE
                     IF($clm=7)
                        $bit=128
                     ELSE
                        IF($clm=8)
                           inc($n)
                           print($n," - 0")
                           $bit=256
                        ELSE
                           print("не существует этого режима")
                           halt
                        END_IF
                     END_IF
                  END_IF
               END_IF
            END_IF
         END_IF
      END_IF
   END_IF
END_IF

$r=-1
$g=-1
$b=-1
inc($r,$bit)
inc($g,$bit)
inc($b,$bit)
WHILE($b < 256)
   WHILE($g < 256)
      WHILE($r < 256)
         inc($n)
         print($n," - ",colorgen($r,$g,$b)
         inc($r,$bit)
      END_CYC
      $r=-1
      inc($r,$bit)
      inc($g,$bit)
   END_CYC
   $r=-1
   $g=-1
   inc($r,$bit)
   inc($g,$bit)
   inc($b,$bit)
END_CYC

halt

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: Ромашки лютики
« Reply #3 on: May 09, 2015, 09:34:02 AM »
например для колормод 4 этих цветов будет 4096 комбинаций. вот скрипт который запишет эти все цвета в лог

А ты учитываешь что кликер также осветляет изображение при коррекции?

Да и вообще зачем этот список не понятно  :o

dramster

  • Герой форума
  • *****
  • Posts: 1134
    • View Profile
Re: Ромашки лютики
« Reply #4 on: May 09, 2015, 09:43:31 AM »

А ты учитываешь что кликер также осветляет изображение при коррекции?

Да и вообще зачем этот список не понятно  :o

осветляет? это как? я чегото недопонимаю.

был поставлен вопрос - список всех цветов для к-мод4. скрипт вроде как дает этот список. и для других режимов коррекции тоже дает.

а то что этот список бесполезен, так это и я понимаю  :D. просто мне стало интересно как это реализовать, вот и попробовал. если я в чемто ошибаюсь, прошу обьяснить в чем.

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: Ромашки лютики
« Reply #5 on: May 09, 2015, 11:07:15 AM »
У тебя там скобки в printe не достает.

Действительно получаемые этим скриптом цвета верны, значит осветление это побочный эффект коррекции.

Вот доработанный вариант.
Code: (clickermann) [Select]
$clm = 4 // уровень коррекции от 0 до 8

SWITCH($clm)
CASE(0)
   $bit=1
CASE(1)
   $bit=2
CASE(2)
   $bit=4
CASE(3)
   $bit=8
CASE(4)
   $bit=16
CASE(5)
   $bit=32
CASE(6)
   $bit=64
CASE(7)
   $bit=128
CASE(8)
   TFWRITE(STRCONCAT("Цвета для Уровня ", $clm,".txt"), 0)
   $bit=256
DEFAULT
   HINTPOPUP("Задан не верный уровень коррекции!", "Ошибка")
   halt
END_SWITCH

$r=-1
$g=-1
$b=-1
inc($r,$bit)
inc($g,$bit)
inc($b,$bit)
WHILE($b < 256)
   WHILE($g < 256)
      WHILE($r < 256)
         TFWRITE(STRCONCAT("Цвета для Уровня ", $clm,".txt"), colorgen($r,$g,$b))
         inc($r,$bit)
      END_CYC
      $r=-1
      inc($r,$bit)
      inc($g,$bit)
   END_CYC
   $r=-1
   $g=-1
   inc($r,$bit)
   inc($g,$bit)
   inc($b,$bit)
END_CYC

halt
« Last Edit: May 09, 2015, 11:09:44 AM by Oraven »

Prorok.18

  • Guest
Re: Ромашки лютики
« Reply #6 on: May 10, 2015, 01:08:57 AM »
Здорово, спасибо, Oraven и Dramster :)