[ns] video tracefile, binary file???

[isil ozturk]

Hi!!!
I want to simulate video trace file ....
.
I wrote some script but this do not work...
my script is: 
set ns  [new Simulator] 
set nf [open out.nam w] 
$ns namtrace-all 4nf 
proc finish { } { 
global ns nf 
$ns flush-trace 
close $nf 
exit 0 
} 
set n0 [$ns node] 
set n1 [$ns node] 
$ns duplex-link $n0 $n1 1Mb 10ms DropTail 
set udp0 [new Agent/UDP] 
$ns attach-agent 4n0 $udp0 
set original_file_name Video_Trace.txt.doc 
set trace_file_name Video.dat 
set original_file_id [open $original_file_name r ] 
set trace_file_id [open $trace_file_name w ]  
set last_time 0 
while { [ eof $original_file_id ] == 0 } { 
gets $original_file_id current_line 
if { [ string length $current_line ] == 0 || 
 [string compare [ string index $current_line 0 ] "#" ] == 0 } 7 
continue 
} 
scan $current_line "%d%d" next_time length 
set time [ expr 1000 * ($next_time-$last_time ) ] 
set last_time $next_time  
puts -nonewline $trace_file_id [binary  format "I I" $time $length ] 
} 
close $original_file_id 
close $trace_file_id 
set trace_file [ new Tracefile] 
$trace_file filename $trace_file_name 
set video [ new Application/Traffic/Trace] 
$video attach-agent $udp0 
$video attach-tracefile $trace_file 
set null0 [ new Agent/Null ] 
$ns attach-agent $n1 4null0 
$ns connect $udp0 $null0 
$ns at " 0.5 $video start" 
$ns at "4.5 "$video stop" 
$ns at 5.0 "finish " 
$ns run 
where is my fault.. please help me urgently!!
thanks..
 isil ozturk. 

		
---------------------------------
Do you Yahoo!?
SBC Yahoo! - Internet access at a great low price.