Open Mash Cross Reference
mash/tcl/degas/degasclient/PIP.degas

   # sources should contains a list of ip address patterns for the sources
   # that we are interested in.
   
   sources *
   
   # Maximum number of source
   
   max_num_of_sources 2
   
  # This is the session we are interested in
  
  input_session 224.4.5.6/4444/16
  
  # This is the description of the program
  
  description {A transcoder that transcode a source into H261 formats}
  
  # These are the variables that hooks the input video to the dali program
  
  input_frame     {in inW inH}
  output_frame    {out outW outH}
  
  # Specifies the output format of the degas program. Can be either H261/JPEG
  
  output_format   {JPEG}
  
  # Specifies the output size of the output video.  Can be either "QCIF", "CIF",
  # "SCIF", "PAL", "1/4 PAL", "1/16 PAL", "NTSC", "1/4 NTSC", "1/16 NTSC".
  
  output_size     {1/16 NTSC}
  
  # Output rate
  
  output_fps      {5}
  
  # A unique string that helps identify the source.  For example if there are
  # more than one source, we can use an array of frames, indexed by the
  # source_id.
  
  source_id       {src}
  
  # For server to check if they are eligible to provide service.
  
  precondition    { }
  server_responds { }
  
  # List of Dali packages required by this program
  
  packages {DvmByteGeom}
  
  # All the following are dali programs
  
  init_callback {
          set num_of_source 0
          set src_list {}
          set clip [frame_clip $out 8 8 80 60]
  }
  
  output_resize_callback {
          puts "output resized!"
          frame_free clip
          set clip [frame_clip $out 8 8 [expr $outW/4] [expr $outH/4]]
  }
  
  output_grayed_callback {
          puts "output grayed!"
          frame_free clip
          set clip [frame_clip $out 8 8 [expr $outW/4] [expr $outH/4]]
  }
  
  new_source_callback {
          puts stderr "New source $src detected"
          incr num_of_source
          lappend src_list $src
          set sw [frame_get_w_subsample $in($src)]
          set sh [frame_get_h_subsample $in($src)]
          set f($src) [frame_new $inW($src) $inH($src) $sw $sh]
  }
  
  del_source_callback {
      frame_free f($src)
  }
  
  recv_frame_callback {
          if {$num_of_source == 1} {
                  frame_scale in($src) out
          } else {
                  frame_copy in($src) f($src)
                  set s1 [lindex $src_list 0]
                  set s2 [lindex $src_list 1]
                  frame_scale f($s1) out
                  frame_scale f($s2) clip
          }
  }
  
  mouse_click_callback {
          set s1 [lindex $src_list 0]
          set s2 [lindex $src_list 1]
          set src_list [lreplace $src_list 0 0 $s2]
         set src_list [lreplace $src_list 1 1 $s1]
 }
 
 destroy_callback {
         frame_free clip
 }
 
 # The following is not supported yet.
 input_resize_callback {
         puts "input $src resize : $inW($src) x $inH($src)"
 }