57 lines
1.2 KiB
Prolog
57 lines
1.2 KiB
Prolog
PRO select_interval , $
|
|
num_of_batches , $ ; Input
|
|
init_ind , $
|
|
end_ind , $
|
|
|
|
start_batch_ind , $ ; Output
|
|
stop_batch_ind
|
|
|
|
;--Opzioni di compilazione--
|
|
COMPILE_OPT STRICTARR
|
|
|
|
COMMON ppi_video_results_c , somma_ppi_output , aux_ppi_output
|
|
|
|
; Inizializzazioni
|
|
start_batch_ind = init_ind
|
|
stop_batch_ind = end_ind
|
|
|
|
titolo = $
|
|
'Num.batch scenario corrente = ' + $
|
|
STRING( num_of_batches , Format = "(i)" )
|
|
|
|
menu_text = $
|
|
[ $
|
|
'start_batch_ind = ' , $
|
|
'stop_batch_ind = ' $
|
|
]
|
|
menu_data = $
|
|
[ $
|
|
start_batch_ind , $
|
|
stop_batch_ind $
|
|
]
|
|
cambia_dati_menu , $
|
|
menu_text , $ ; Input/Output
|
|
menu_data , $
|
|
titolo , $
|
|
2
|
|
new_start_batch_ind = LONG( menu_data[0] ) > 0
|
|
new_start_batch_ind = new_start_batch_ind < end_ind
|
|
|
|
new_stop_batch_ind = LONG( menu_data[1] ) > 0
|
|
new_stop_batch_ind = new_stop_batch_ind < end_ind
|
|
|
|
IF ( new_start_batch_ind LE new_stop_batch_ind ) THEN BEGIN
|
|
start_batch_ind = new_start_batch_ind
|
|
stop_batch_ind = new_stop_batch_ind
|
|
ENDIF
|
|
|
|
; Deleting delle matrici di visualizzazione PPI
|
|
somma_ppi_output = 0
|
|
aux_ppi_output = 0
|
|
|
|
fine_di_select_interval:
|
|
|
|
RETURN
|
|
|
|
END
|