DosTips.com

Code: Select all

@echo off &setlocal
echo "%~f0"
pause

Code: Select all

"C:\Users\steffen\AppData\Local\Temp\1\test.bat"
Drücken Sie eine beliebige Taste . . .

Code: Select all

@echo off & setlocal EnableDelayedExpansion

call :init_color_fast

rem Legge L'HEADER. Solo file a colori(P3) o grayscale(P2)

rem conversione p3 imagemagik: convert mona.png -resize 154x106! -compress none mona1.ppm
rem per la dimensione usare in asse X multipli della coda findstr=8

set l=1

(

  For /f "eol=# tokens=*" %%f in (%~1) do (

   rem echo(DEBUG:%%f

   if !l! equ 1 (
      set MAGIC=%%f
      if not "!MAGIC!"=="P2" if not "!MAGIC!"=="P3" (echo Not supported format[!MAGIC!].&goto :eof)
      if "!MAGIC!"=="P2" (set BPP=1) else (set BPP=3)
        ) else (
      rem verificare se sono su due righe separate.
      if !l! equ 2 (
         For /f "tokens=1-2" %%p in ("%%f") do set /a WIDTH=%%p, HEIGHT=%%q
      ) else (
         if !l! equ 3 set MAXVALUE=%%f
      )
   )
   set /a l+=1
        if !l! equ 4 goto :body
   
  )

)

:body

echo MAGIC=!MAGIC! BPP=!BPP!
echo WIDTH=!WIDTH! HEIGHT=!HEIGHT!
echo MAXVALUE=!MAXVALUE!

pause

type nul > %tmp%\txt.$$$.txt

rem questo e' il metoto più veloce di leggere e scrivere su file

set t0=%time%

set /a l=0, t=-1, x=0, y=0
(
  
  For /f "eol=# tokens=* skip=3" %%f in (%~1) do (

   for %%g in (%%f) do (
      set /a "t=(t+1) %% 3"
      if !t! equ 0 set R=%%g
      if !t! equ 1 set G=%%g
      if !t! equ 2 (

         rem echo Plot R:!R! G:!G! B:%%g

rem To get luminance of a color use the formula recommended by CIE: 
rem L = 0.2126·R + 0.7152·G + 0.0722·B CCIR 709 RGB 
rem L'= 0.3*R' + 0.59*G' + 0.11*B' dove R' G' B' sono i valori gamma-corretti e L' e' luminanza gamma-corretta. 

         rem if !my! equ 0 if !mx! equ 0 (
            set /A "Lu=(R*2126+G*7152+B*722)/10000"
            rem indice gradiente : 9 10 11 12 5 13 4 14 15 3 8 7 6 1
            If !Lu! gtr 180 (call :color_fast 09 "°") else If !Lu! gtr 160 (call :color_fast 0a "°") else If !Lu! gtr 140 (call :color_fast 0b "°") else If !Lu! gtr 130 (call :color_fast 0c "°") else If !Lu! gtr 115 (call :color_fast 05 "°") else If !Lu! gtr 105 (call :color_fast 0d "°") else If !Lu! gtr 90 (call :color_fast 04 "°") else If !Lu! gtr 80 (call :color_fast 0e "°") else If !Lu! gtr 65 (call :color_fast 0f "°") else If !Lu! gtr 55 (call :color_fast 03 "°") else If !Lu! gtr 45 (call :color_fast 08 "°") else If !Lu! gtr 35 (call :color_fast 07 "°") else If !Lu! gtr 25 (call :color_fast 06 "°") else call :color_fast 01 " "
            if !lu! gtr !maxLu! set /a maxlu=Lu
         rem )

         set /a "x=x+1, mx=x %% 2"
         if !x! geq !WIDTH! (set /a "x=0, y+=1, my=y %% 2" & echo()
         rem if !my! equ 0 echo()
      )
        )

   set /a "l+=1, m=l %% 100"
        if !m! equ 0 title !l! !x!x!y! !Lu! !maxLu!

   rem if !l! gtr 3 goto :eof

  )

)
rem )>>%tmp%\txt.$$$.txt

rem echo(!l!:%%f
rem if !l! gtr 3 goto :eof

for /f "tokens=1-8 delims=:.," %%a in ("%t0: =0%:%time: =0%") do set /a "a=(((1%%e-1%%a)*60)+1%%f-1%%b)*6000+1%%g%%h-1%%c%%d, a+=(a>>31) & 8640000"

echo %a% cs

rem fc %1 %tmp%\txt.$$$.txt

goto :eof

:color_fast %1=color %2=string 
(

    set str=%~2
    set color=%~1
    rem prima accoda e memorizza la stringa e il colore. Fare flush.

    set "color_str[!color_coda!]=!str!"
    
    set "color_c[!color_coda!]=!color!"

    rem mentre accodo potrei fare la compressione dei colori ed evitare di farlo nell'if che segue. DA FARE

    if !color_coda! equ !color_lcm1! (

      rem se il colore e' invariato può unire le stringhe e fare una sola chiamata

      rem unisco le stringhe e le metto nei file

      set /a da=0, count=-1
      set str=
      for /L %%c in (0,1,!color_len_coda!) do (
   
   for %%d in (!da!) do if not "!color_c[%%d]!"=="!color_c[%%c]!" (
      
      rem set /a a=%%c-1, da=%%c, count+=1
      set /a da=%%c, count+=1
      echo(!str!\..\'>%color_$$$%_$$$.color!count!.txt

      rem salvo in variabili i colori compressi per la successiva chiamata con il findstr.
      set color_c[!count!]=!color_c[%%d]!

      rem echo da:%%d a:!a! next=!da! color:!color_c[%%d]! str=!str!
      set str=

   )
        set str=!str!!color_str[%%c]!
   rem echo !da! %%c
      )

      rem chiamo i findstr necessari, dati da count.

      for /L %%e in (0,1,!count!) do findstr /a:!color_c[%%e]! /f:%color_$$$%_$$$.color%%e.txt "."

    )

    set /a "color_coda=(color_coda+1) %% !color_len_coda!"

goto :eof
)

:init_color_fast

rem mi sposto nella directory temporanea
rem pushd %tmp%

rem creo il carattere DEL
for /F "tokens=1,2 delims=#" %%a in ('"prompt #$H#$E# & echo on & for %%b in (1) do rem"') do set "DEL=%%a"

rem creo carattere condiviso '
<nul set /p ".=%DEL%%DEL%%DEL%%DEL%%DEL%%DEL%" > "'"

rem creo identificativo univoco sessione
set color_$$$=%random%_%random%

rem contatore buffer
set color_coda=0

rem lunghezza coda
set /a color_len_coda=64, color_lcm1=color_len_coda-1


goto :eof