1 # sources should contains a list of ip address patterns for the sources
2 # that we are interested in.
3
4 sources *
5
6 # Maximum number of source
7
8 max_num_of_sources 1
9
10 # This is the session we are interested in
11
12 input_session 137.132.83.29/3000/16
13
14 # This is the description of the program
15
16 description {A transcoder that transcode a source into H261 formats}
17
18 # These are the variables that hooks the input video to the dali program
19
20 input_frame {in inW inH}
21 output_frame {out outW outH}
22
23 # Specifies the output format of the degas program. Can be either H261/JPEG
24
25 output_format {H261}
26
27 # Specifies the output size of the output video. Can be either "QCIF", "CIF",
28 # "SCIF", "PAL", "1/4 PAL", "1/16 PAL", "NTSC", "1/4 NTSC", "1/16 NTSC".
29
30 output_size {QCIF}
31
32 # Output rate
33
34 output_fps {4}
35
36 # A unique string that helps identify the source. For example if there are
37 # more than one source, we can use an array of frames, indexed by the
38 # source_id.
39
40 source_id {src}
41
42 # For server to check if they are eligible to provide service.
43
44 precondition { }
45 server_responds { }
46
47 # List of Dali packages required by this program
48
49 packages {DvmByteGeom}
50
51 # All the following are dali programs
52
53 init_callback {
54 set num_of_source 0
55 set src_list {}
56 set clip [frame_clip $out 0 0 80 60]
57 frame_set_black $out
58 }
59
60 output_resize_callback {
61 puts "output resized!"
62 frame_free clip
63 set clip [frame_clip $out 8 8 [expr $outW/4] [expr $outH/4]]
64 }
65
66 output_grayed_callback {
67 puts "output grayed!"
68 frame_free clip
69 set clip [frame_clip $out 8 8 [expr $outW/4] [expr $outH/4]]
70 }
71
72 new_source_callback {
73 puts stderr "New source $src detected"
74 incr num_of_source
75 lappend src_list $src
76 set sw [frame_get_w_subsample $in($src)]
77 set sh [frame_get_h_subsample $in($src)]
78 set f($src) [frame_new $inW($src) $inH($src) $sw $sh]
79 }
80
81 del_source_callback {
82 # frame_free in($src)
83 }
84
85 recv_frame_callback {
86 frame_scale in($src) clip
87 }
88
89 mouse_click_callback {
90 }
91
92 destroy_callback {
93 frame_free clip
94 }
95
96 # The following is not supported yet.
97 input_resize_callback {
98 puts "input $src resize : $inW($src) x $inH($src)"
99 }
This page was automatically generated by the
LXR engine.
Visit the LXR main site for more
information.