(bind-func init_sample_data
(lambda ()
(set! vplay1 #f)
(set! sampledata1dirty #f)
(set! sampledata1 (malloc (* 3 600 400)))
(set! vplay2 #f)
(set! sampledata2dirty #f)
(set! sampledata2 (malloc (* 3 600 400)))
(set! vplay3 #f)
(set! sampledata3dirty #f)
(set! sampledata3 (malloc (* 3 600 400)))
(set! vplay4 #f)
(set! sampledata4dirty #f)
(set! sampledata4 (malloc (* 3 600 400)))
void))