256 256     ;rozmery vstupneho pola
NELLA.PIC     ;Zadaj meno obrazku(napr. 'vstup'):
1              ;robit kompresiu?
0              ; robit CTC
0   	        ;robit logaritmus obrazku ?(1=ano)
256 256           ;Zadaj bxmax,bxmin(pri kazdom prechode sa deli 2)
1               ;velkost blokov rovnaka?(1=ano)
2               ;Upravovat spektrum?(0=nie;1=rusit;2=kvantovat,...
0               :maticou ?
0 0 1        ;Zadaj kv.urovne pre stried. zlozky: max,min,krok
0 0   10        ;Zadaj kv.urovne pre jsm zlozky: max,min,krok:
0               ;Ako nacitavat ?(0=cik/cak,1=rovno,2=uzivatelsky)
0               ;typ podmienky rezania(0=perc,1=energ,2=nenuly)
99 99 10          ;max min krok na podmienku rezania
0 	        ;Obnovit energiu po rezani?(1=ano)
1               ;vypisovat vystupne subory(0=nie,1=ano)
0               ;vypisat float spektrum (0=nie;1=neupravovane;2=upravovane)?
1 1 1           ;pisat a kreslit spektra,upravovat mena  ?
/****************************************************************/
0  	        ;robit logaritmus obrazku ?(1=ano)
8 8               ;Zadaj bxmax,bxmin(pri kazdom prechode sa deli 2)
1               ;velkost blokov rovnaka?(1=ano)
2              ;Upravovat spektrum?(0=nie;1=rusit;2=kvantovat...)
0              ;Kvantovat aj maticou?(0=nie,1=ano,2=len filtrovat)
800 800 10      ;Zadaj kv.urovne pre stried. zlozky: max,min,krok:
200 200 10       ;Zadaj kv.urovne pre jsm zlozky: max,min,krok:
0               ;Ako nacitavat ?(0=cik/cak,1=rovno,2=uzivatelsky)
0               ;typ podmienky rezania(0=perc,1=energ,2=nenuly)
90 90 10         ;max min krok na podmienku rezania
0
1               ;vypisovat vystupne subory ?(1=ano)
0              ;vypisat float spektrum (0=nie;1=neupravovane;2=upravovane)?
1 1 0           ;pisat a kreslit spektra,upravovat mena  ?
-----------------------------------------------------------------
0               ;Robit CTC ?(0=nie,1=ZL,2=RL+Huffman)
1 8             ;Z-L pocet bit. rovin , pocet bitov na Byte do compressu
8 5             ;R-L zadaj kolko bitovy slovnik pre : r-l , huffmana
0   	        ;robit logaritmus obrazku ?(1=ano)
32 32           ;Zadaj bxmax,bxmin(pri kazdom prechode sa deli 2)
1               ;velkost blokov rovnaka?(1=ano)
2               ;Upravovat spektrum?(0=nie;1=rusit;2=kvantovat,...
1               ;Kvantovat aj maticou?(0=nie,1=ano,2=len filtrovat)
matrix          ;zadaj meno suboru s kvant. maticou
1               ;transformovat maticu?
80 80 10        ;Zadaj kv.urovne pre stried. zlozky: max,min,krok:
1               ;Kvantovat JSM zlozky? (1=ano)
80 80 10        ;Zadaj kv.urovne pre jsm zlozky: max,min,krok:
2               ;Ako nacitavat ?(0=cik/cak,1=rovno,2=uzivatelsky)
razac           ;zadaj meno suboru s definicnou maticou rezania
0               ;typ podmienky rezania(0=nerezat,0=perc,1=energ,2=nenuly)
20 20 1         ;max min krok na podmienku rezania
0 	        ;Obnovit energiu po rezani?(1=ano)
2               ;vypisat float spektrum (0=nie;1=neupravovane;2=upravovane)?
1 1 1           ;pisat a kreslit spektra,upravovat mena  ?
/****************************************************************/
data            ;data pre gaussovsku rusicku
30 50           ;posx posy 
2 10.0 5        ;rel.amplituda(voci maximu) ,tvar , hranica.
data 
20 20
0 100.0 20      
end             ; koniec dat 
1               ;Zadaj typ rusenia:(0=gaussovske rozdelenie ; 1=cik cak tvar)
0 5 40         ;Zadaj aplitudu, tvar ,hranicu