Messages

1

Общие вопросы / Масштабирование картинки

« on: September 15, 2018, 01:03:08 PM »

Нужно решение, размеры снимка 2560х 1600 рх, через стороннюю программу записываю в файл нужные координаты ху для копирования на другом рисунке с уменьшенным масштабом на 30%. Делаю снимок экрана GETSCREEN 1920х 1080 рх, через функцию PXLREPLACE копирую  рисунок с новым масштабом см. скриншот. Линии небольшого размера соединяются в одну линию, после подсчета линий на новом рисунке их меньше. Как перенести все линии ?

2

Общие вопросы / Re: Разделение отрезка на заданное число равных частей

« on: September 09, 2018, 05:21:38 PM »

Code: (clickermann) [Select]

FOR($y=$y1,$y!$y2+$n,$n)
   $x = ROUND((($x1*$y2-$x2*$y1)+($x2-$x1)*$y)/($y2-$y1),0)
   PXLREPLACE ($x,$y,$x,$y, -1, 0)
end_cyc
$x = (($x1*$y2-$x2*$y1)+($x2-$x1)*$y)/($y2-$y1)
Какой порядке выполнения действий, $x1*$y2-$x2*$y1 с начало все перемножить и вычисть, или по порядку умножить вычесть умножить ?

3

Общие вопросы / Re: Разделение отрезка на заданное число равных частей

« on: September 08, 2018, 07:36:40 PM »

Code: (clickermann) [Select]

$i_1 = 1
$i_2 = 1
$i_3 = 1
$i_4 = 1
$i_5 = 1
$i_6 = 1
$i_7
$i_9 = 1

while($i_1<=ARRSIZE($Line_x)-1)                //1
   if($i_4=1)                                                 // заполнение массива значениями из из 1 цикла 
      if($Line_x[$i_1]>=$i_2)                         // если 8 добавлений интервал 3 больше 20 равное 24
         $i_2 = $Line_x[$i_1]                           //массив заполнен в первом цикле до 6 интервал 3,записан в массив 3,6,9,12,15,18,
   else                                                          //добавить 2 если 8 добавлений или 1 при семи добавлениях
         $Line[$i_3] = $Line_x[$i_1]           //записан в массив 3,6,9,12,15,18,6,12
if($i_8<$Line[$i_3])
    $i_8=$Line[$i_3]
else
    if($i_8>=$Line[$i_3])
       $Line_1[$i_9]=$Line[$i_3]
       $i_9=$i_9+1
               INC ($Line_1)
    end_if
end_if
      $i_3=$i_3+1
      INC ($Line)
      end_if
   end_if

   if($i_4=0 )
      $i_8=1
      $i_9=1
      $i_10=1

      while($i_8<=ARRSIZE($Line)-1)                      //1.1
         if($i_9<=ARRSIZE($Line_1)-1)                    //ARRSORT  массив 3,6,9,12,15,18
           if($Line[$i_10]<$Line_1[$i_9])                   //второй массив 6,12
               $Line_y[$i_8]=$Line[$i_10]
       $i_10=$i_10+1
    else
       $Line_y[$i_8]=$Line_1[$i_9]
               $i_9=$i_9+1
    end_if
else
    $Line_y[$i_8]=$Line[$i_10]
            $i_10=$i_10+1
         end_if    
  $i_8=$i_8+1
         if($i_8>ARRSIZE($Line)-1)
            $i_8=1
            while($i_8<=ARRSIZE($Line)-1 )
               INC ($Line_2)
       $Line_2[$i_8]=$Line_y[$i_8]               
               $i_8=$i_8+1
    end_cyc
            $Line_2[$i_8]=0
         end_if
      end_cyc
   end_if   
   $i_7=$i_1                                             //3
   if($i_4=0 & 0<ARRSIZE($Line_2)-1)       //заполнение общий массив $Line_xy ...3,6,6,9,12,12,15,18......
      while($Line_x[$i_7]=$Line_2[$i_3])             
         $i_7=$i_7+1
if($Line_x[$i_7]>$Line_2[$i_3])
    while($i_3<=ARRSIZE($Line_2)-1 & $i_6<=ARRSIZE($Line_x)-1) 
       $Line_xy[$i_6]=$Line_x[$i_5]
               if($Line_xy[$i_6]>$Line_2[$i_3] & $i_4=0)
            $Line_xy[$i_6]=$Line_2[$i_3]
  $i_5=$i_5-1
  $i_4=4
       end_if
   $i_6=$i_6+1
   $i_5=$i_5+1
   if($i_6>ARRSIZE($Line_x)-1)
              $i_6=1
      while($i_6<=ARRSIZE($Line_x)-1)     // заполнение массива поочередно //1//3
                 $Line_x[$i_6]=$Line_xy[$i_6]
           $i_6=$i_6+1
      end_cyc
   end_if
       end_cyc 
       if($i_4=4)
  $i_4=0
  $i_5=1
          $i_6=1
          $i_3=$i_3+1                                       
        end_if
     end_if
   end_cyc
 end_if
 $i_1=$i_1+1
   if($i_1>ARRSIZE($Line_x)-1 & $i_4=1)        //2
      if($i_4=1)                                               //функция завершения первого цикла заполнение массива
$i_1=1
$i_3=1
        $i_9=1
        $i_4=0
      end_if
   end_if
end_cyc


4

Общие вопросы / Re: Разделение отрезка на заданное число равных частей

« on: September 08, 2018, 06:57:22 PM »

Code: (clickermann) [Select]

$x1 = 10
$y1 = 10
$x2 = 20
$y2 = 30координаты xy

Code: (clickermann) [Select]

DEFINE ( $Line_x, $x2 )
DEFINE ( $Line_y, $y2 )
DEFINE ( $Line_xy, $y2 )
DEFINE ( $Line, 1 )
DEFINE ( $Line_1, 1)
DEFINE ( $Line_2, 1)Массивы для сортировки

Code: (clickermann) [Select]

if($x1<$x2 & $y1<$y2 & $y2>=$x2 & $x1>=$y1) $y2>=$x2  линия с верху в низ или горизонтальная

Code: (clickermann) [Select]

$x2=$x2+$x1
$y2=$y2+$y1Начало линии

Code: (clickermann) [Select]

$var1=$x2-$x1                    // количество рх длина
$var2=$y2-$y1                    // количество рх высота

Code: (clickermann) [Select]

$i_1=INT($var2/$var1)
$i_3=$var2-($i_1*$var1) // количество добавлений по высоте при условии что $y2>$x2

Code: (clickermann) [Select]

$x2 = $x1                    //х2 и у2 приминаются в  функции когда необходимо увеличить на несколько рх по высоте на 1 уровне
$y2 = $y1

Code: (clickermann) [Select]

while($i_3>=0)                       //проверка условия нужно добавить высоту $ i_3 
   if($i_3=1)                            //прибавление по высоте в по 2 циклам, 1 цикл интервал 2,3,4,5,6,9,10
      $i_6=1+INT($var1/2)        //цикл 2 интервал 7,8 прибавлений по высоте       
      $i_7=$i_6                         //$i_7 присваивается интервал между прибавлениям высоты
      else                                  //количество прибавлений не должно больше 20 к примеру 20/9 интервал 3 шага
         $i_6=INT($var1/$i_3)   
if($i_6=1)         
    $i_7=2
         else
            if($i_3=7 | $i_3=8)     //количество прибавлений 20/8 или 20/8  интервал 2 шага, линия изменит угол
       $i_6=3                    //нужно определить интервал больше длины, интервал для 7,8 добавлений по высоте будет равен 3
       $i_7=3                    //в 1 цикле если 8 добавлений, 3*8=24, 24-20=4
            else                            //в цикле 2 нужно определить интервал для 4 прибавления, интервал 20/4=5
               if($i_6=10 & $i_3=2)//для числи 7 и 8 нужны 2 итерации
          $i_7=6
               else
                  $i_7=$i_6
               end_if
            end_if
        end_if
    end_if
//---  
   for($i=0, $i<$var1) //1 цикл интервал 1,2,3,4,5,6,,,9,10 умноженное на количество прибавлений,не превышать цифру 20
                                  // шаг                  10,9,6,5,4,3,2,1
      if($i_4=2)             // если интервал 2 нужно увеличить на 1 для асимметрии линии, к примеру  2 добавления высоты через интервал 10
         $y2=$y2+1       // асимметрия интервал равный 7 при 2 добавлений высоты, я установил 1 что не соответствует асимметрии
      end_if                 
      if($i_4=1)   
         $y2=$y1
         $x2=$x1
         $i_4=2
      end_if     
      $i_2=0
      while($i_2<$i_1 & $i_4=0)      //1 цикл
         ARRPUSH ($Line_x, $x2)      //увеличить размер массива
ARRPUSH ($Line_y, $y2)
$y2=$y2+1
         $i_2=$i_2+1
      end_cyc
      if($i_8<$i_3 & $i=$i_6)           
         if($i=$i_6 & $i_6!=0)
            if($i_3>0)
               ARRPUSH ($Line_x, $x2)
               ARRPUSH ($Line_y, $y2)
               $y2=$y2+1
               $i_3=$i_3-1
            end_if
         $i_6=$i_6+$i_7
         end_if
      $i_8=$i_8+1
      end_if
   $x2=$x2+1
   $i_8=0
   end_cyc
   $i_4=1
   if($i_3=0)
      $i_3=$i_$i_3-1
    end_if
end_cyc


5

Общие вопросы / Re: Разделение отрезка на заданное число равных частей

« on: September 08, 2018, 01:20:31 PM »

Нужна помощь правильного деления отрезка на равные части, мой вариант $i_4=INT($var2/($i_3+$i_1))  при увеличении длины принимает не правильную форму.

Не много не понятно, что именно не получается - рисование ровного отрезка, или деление его на равные части.

По теме, решил вспомнить уравнение прямой, проходящей через две заданные точки. Ато ранее постоянно какие-то хитрые способы использовались  .

Из учебника: ($y1-$y2)*$x + ($x2-$x1)*$y + ($x1*$y2-$x2*$y1) = 0 . Где ($x1,$y1) и ($x2,$y2) это известные точки.

Зная к примеру значение $x (оно в промежутке между $x1 и $x2), можем рассчитать $y : $y = (($x1*$y2-$x2*$y1)+($y1-$y2)*$x)/($x1-$x2)
И то же самое с $x = (($x1*$y2-$x2*$y1)+($x2-$x1)*$y)/($y2-$y1)
Если ($x2-$x1)>($y2-$y1) , то наращиваем $x, а переменную $y считаем по формуле. Иначе, ...наоборот.

Все оказалось довольно просто, не считая всяких оптимизаций для отдельных случаев:

Code: (clickermann) [Select]

$x1 = 10    //наши две точки
$y1 = 10
$x2 = 200
$y2 = 300

PXLREPLACE(0,0,300,300, -1, 16777215)

IF((abs($x2-$x1))>=(abs($y2-$y1)))
   $n = ($x2-$x1)/abs($x2-$x1)
   FOR($x=$x1,$x!$x2+$n,$n)
      $y = ROUND((($x1*$y2-$x2*$y1)+($y1-$y2)*$x)/($x1-$x2),0)
      PXLREPLACE ($x,$y,$x,$y, -1, 0)
   end_cyc
ELSE
   $n = ($y2-$y1)/abs($y2-$y1)
   FOR($y=$y1,$y!$y2+$n,$n)
      $x = ROUND((($x1*$y2-$x2*$y1)+($x2-$x1)*$y)/($y2-$y1),0)
      PXLREPLACE ($x,$y,$x,$y, -1, 0)
   end_cyc
END_IF

SCREENSHOTEX(0,0,300,300, "Image_", 0)

halt
Единственно, что одну точку поставить не выйдет, то есть (($x2-$x1)!0)&(($y2-$y1)!0) . Проще - эти две точки не должны быть одной.


Демонстрация рисования рандомных отрезков в области:

Code: (clickermann) [Select]

PXLREPLACE(0,0,300,300, -1, 16777215)

FOR($a=0,$a<30)
   $x1 = 0
   $y1 = 0
   $x2 = 0
   $y2 = 0
   WHILE((($x2-$x1)=0)&(($y2-$y1)=0))
      $x1 = rnd(0,300)
      $y1 = rnd(0,300)
      $x2 = rnd(0,300)
      $y2 = rnd(0,300)
   END_CYC
   
   
   IF((abs($x2-$x1))>=(abs($y2-$y1)))
      $n = ($x2-$x1)/abs($x2-$x1)
      FOR($x=$x1,$x!$x2+$n,$n)
         $y = ROUND((($x1*$y2-$x2*$y1)+($y1-$y2)*$x)/($x1-$x2),0)
         PXLREPLACE ($x,$y,$x,$y, -1, 0)
      end_cyc
   ELSE
      $n = ($y2-$y1)/abs($y2-$y1)
      FOR($y=$y1,$y!$y2+$n,$n)
         $x = ROUND((($x1*$y2-$x2*$y1)+($x2-$x1)*$y)/($y2-$y1),0)
         PXLREPLACE ($x,$y,$x,$y, -1, 0)
      end_cyc
   END_IF
   
END_CYC

SCREENSHOTEX(0,0,300,300, "Image_", 0)
halt




А насчет деления отрезка на равные части, тут я думаю проблем не должно быть.

У меня все просто, написал без формул как начинающий, я эту ошибку исправлю !!!
Добавил функцию ARRSORT не сортирует массив правильно

Code: (clickermann) [Select]

Print($Line_x[$i_1],"   1")                                 
if ($i_1=ARRSIZE($Line_x)-1)
  Print ("функция_ARRSORT")
  ARRSORT ($Line_x)
  $i_10=1
  while($i_10<=ARRSIZE($Line_x)-1 & $i_1=ARRSIZE($Line_x)-1)
     Print($Line_x[$i_10],"   2")
     $i_10=$i_10+1
  end_cyc
end_if

6

Общие вопросы / Re: Разделение отрезка на заданное число равных частей

« on: September 03, 2018, 06:40:27 PM »

Code: (clickermann) [Select]

if(($x1<$x2) & ($y1<$y2) & ($y2>=$x2))     // обозначение направления когда  высота больше длинны $y2 > $x2

Code: (clickermann) [Select]

$x2=$x2+$x1                             //отступ от края х1,y1 на заданное кол-во px
$y2=$y2+$y1

Code: (clickermann) [Select]

$var1=$x2-$x1                    // колличество рх длина
$var2=$y2-$y1                    // колличество рх высота   

Code: (clickermann) [Select]

$i_1=INT($var2/$var1)            // высота делится на ширину, $i_1= кол-во шагов
$i_3=$var2-($i_1*$var1)         // вычисление на сколько высота больше длины        

Code: (clickermann) [Select]

$i_4=INT($var2/$i_3)   // если высота больше ширины добавить $у2 px по высоте

Code: (clickermann) [Select]

$i_5=INT($var1/$i_3)   // добавлять $y1=$y1+1 через $i_5 шагов 
Проблема в расчете шагов $i_5 
Когда высота превышает длину на 50%,  шаг  $i_5  округляется до 1, и то расстояние которое превышает длину $i_4 прибавляется сразу, не получается распределить правильно $i_5  по длине                       

7

Общие вопросы / Разделение отрезка на заданное число равных частей

« on: September 03, 2018, 05:24:56 PM »

Нужна помощь правильного деления отрезка на равные части, мой вариант $i_4=INT($var2/($i_3+$i_1))  при увеличении длины принимает не правильную форму, [/img]

Code: (clickermann) [Select]

$x1 = 10
$y1 = 10
$x2 = 20
$y2 = 30

if($x1<$x2 & $y1<$y2 & $y2>=$x2)     // направление с верху в низ   $y2>$x2
   $x2=$x2+$x1
   $y2=$y2+$y1

   $var1=$x2-$x1                    // количество рх длина
   $var2=$y2-$y1                    // колличество рх высота
   
   $i_1=INT($var2/$var1) 
   $i_3=$var2-($i_1*$var1) 
   $i_4=INT($var2/($i_3+$i_1))   
   $i_5=INT($var1/$i_3)


   for($i=0, $i<$var1)
      $i_2=0
      while($i_2<$i_1)
          PXLREPLACE ($x1,$y1, $x1,$y1, -1, 0)
          $y1=$y1+1
          $i_2=$i_2+1
      end_cyc
     
      if(($i==$i_4-1 & $i_4!=0))   
  if($i_3>0)
             PXLREPLACE ($x1,$y1, $x1,$y1, -1, 0)
             $y1=$y1+1
             $i_3=$i_3-1
         end_if
         $i_4=$i_4+$i_5
      end_if
         
      $i++
      x1=$x1+1
   end_cyc   
   SCREENSHOT 
end_if
 
WNDBUMP (WNDFIND ("Clickermann - New Script"))
WAIT (600)

8

Общие вопросы / Работа с экраном функция GETSCREEN

« on: June 04, 2018, 11:55:22 PM »

В какой папке хранится скриншот с экрана, папку Skreens с для хранения скриншота не нашел!
При запуске Большой тест v1.0 в лог выводится текст IF_PIXEL_IN: Пиксел не найден! Тест IF_PICTURE_IN: Картинка не найдена!