Blob分析之clip.hdev

• clip.hdev: Orientation of clips-找出Clip与极轴的夹角
• 关闭窗体更新
  dev_update_window (‘off’)
  *读取图像
  read_image (Clip, ‘clip’)
  *获取图像大小
  get_image_size (Clip, Width, Height)
  *关闭窗体
  dev_close_window ()
  *打开窗体，大小为图像的1/4
  dev_open_window (0, 0, Width / 2, Height / 2, ‘black’, WindowID)
  *显示图像
  dev_display (Clip)
  *设置显示字体
  set_display_font (WindowID, 14, ‘mono’, ‘true’, ‘false’)
  *显示’Press F5 to continue’
  disp_continue_message (WindowID, ‘black’, ‘true’)
  stop ()
  *bin_threshold:二值化阈值，自动地全局阈值方法，使用Threshold找到两个波峰之间的最小值,分割出来的是非黑即白。
  binary_threshold (Clip, Dark, ‘max_separability’, ‘dark’, UsedThreshold)
  *联通区域
  connection (Dark, Single)
  *选择像素面积在5000-10000的区域
  select_shape (Single, Selected, ‘area’, ‘and’, 5000, 10000)
  *设置填充方式
  dev_set_draw (‘fill’)
  *设置显示颜色数量
  dev_set_colored (12)
  *显示选择的区域
  dev_display (Selected)
  disp_continue_message (WindowID, ‘black’, ‘true’)
  stop ()
  *显示原图像
  dev_display (Clip)
  *设置显示颜色为绿色
  dev_set_color (‘green’)
  *显示选择图像
  dev_display (Selected)
  *求外接椭圆的长轴与水平线的夹角
  orientation_region (Selected, Phi)
  *取得所选面积的中心坐标和面积
  area_center (Selected, Area, Row, Column)
  *设置线宽
  dev_set_line_width (3)
  *设置填充方式为边际填充
  dev_set_draw (‘margin’)
  Length := 80
  *设置显示颜色
  dev_set_color (‘blue’)
  *显示箭头
  disp_arrow (WindowID, Row, Column, Row - Length * sin(Phi), Column + Length * cos(Phi), 4)
  *显示信息
  disp_message (WindowID, deg(Phi)$‘3.1f’ + ’ deg’, ‘image’, Row, Column - 100, ‘black’, ‘false’)
  dev_update_window (‘on’)