'Make Inverse UHJ filters CLS PRINT "Creating inverse UHJ filters in the \MLSSAWIN directory..." filWL$ = "left_W.frq" filWR$ = "right_W.frq" filXL$ = "left_X.frq" filXR$ = "right_X.frq" filYL$ = "left_Y.frq" filYR$ = "right_Y.frq" SHELL "copy \mlssawin\a-w.frq \mlssawin\" + filWL$ SHELL "copy \mlssawin\a-w.frq \mlssawin\" + filWR$ SHELL "copy \mlssawin\a-w.frq \mlssawin\" + filXL$ SHELL "copy \mlssawin\a-w.frq \mlssawin\" + filXR$ SHELL "copy \mlssawin\a-w.frq \mlssawin\" + filYL$ SHELL "copy \mlssawin\a-w.frq \mlssawin\" + filYR$ OPEN "\mlssawin\" + filWL$ FOR BINARY AS #1 OPEN "\mlssawin\" + filWR$ FOR BINARY AS #2 OPEN "\mlssawin\" + filXL$ FOR BINARY AS #3 OPEN "\mlssawin\" + filXR$ FOR BINARY AS #4 OPEN "\mlssawin\" + filYL$ FOR BINARY AS #5 OPEN "\mlssawin\" + filYR$ FOR BINARY AS #6 poin = 5 GET #1, poin, DeltaF GET #1, , Leng& GET #2, poin, DeltaF GET #2, , Leng& GET #3, poin, DeltaF GET #3, , Leng& GET #4, poin, DeltaF GET #4, , Leng& GET #5, poin, DeltaF GET #5, , Leng& GET #6, poin, DeltaF GET #6, , Leng& FOR i = 0 TO Leng& - 1 f = 1000! * i * DeltaF' frequenza attuale in kHz IF f > 0 THEN WLr = .982 / 2 WLi = .164 / 2 WRr = .982 / 2 WRi = -.164 / 2 XLr = .419 / 2 XLi = -.828 / 2 XRr = .419 / 2 XRi = .828 / 2 YLr = .763 / 2 YLi = .385 / 2 YRr = -.763 / 2 YRi = .385 / 2 END IF PUT #1, , WLr PUT #1, , WLi PUT #2, , WRr PUT #2, , WRi PUT #3, , XLr PUT #3, , XLi PUT #4, , XRr PUT #4, , XRi PUT #5, , YLr PUT #5, , YLi PUT #6, , YRr PUT #6, , YRi NEXT CLOSE 1 CLOSE 2 CLOSE 3 CLOSE 4 CLOSE 5 CLOSE 6