在HDevelop中

read_image (Image, 'D:/bb/tu/20.jpg')
get_image_size (Image, Width, Height)

sobel_amp (Image, EdgeAmplitude, 'sum_abs', 3)
*計算邊緣

threshold (EdgeAmplitude, Region, 50, 255)
*通過閾值把邊緣影象變成區域

connection (Region, ConnectedRegions)

select_shape_std (ConnectedRegions, SelectedRegions, 'max_area
 
', 1634)
*選擇外邊緣
hough_lines (SelectedRegions, 4, 100, 5, 5, Angle, Dist)
*通過霍夫變換尋找直線(資料)，並以HNF格式返回
*引數1：待檢測的邊緣線條區域
*引數2：角度的步進值，步進大小為這個值的倒數。預設值：4    值列表：1,2,4,8
*引數3：要尋找的直線的閾值。預設值：100     典型值範圍：2≤閾值
*引數4：Hough影象中兩個最大值的最小距離（方向：角度）。【直線的最大角度】
*      預設值：5     典型值範圍：0≤ AngleGap
*引數5：Hough影象中兩個最大值的最小距離（方向：距離）。【直線的最小角度】
 
*      預設值：5     典型值範圍：0≤ 距離差
*引數6：返回找到直線的角度--弧度
*引數7：返回找到直線到原點的距離

dev_set_color('blue')

gen_region_hline (Regions, Angle, Dist)
*將霍夫變換找到的直線資料轉化為區域
*引數1：輸出區域集
*引數2：霍夫變換找到的角度
*引數3：霍夫變換找到的直線到原點的距離


dev_open_window (10, 10, Width, Height, 'black', WindowHandle)
dev_display(Regions)

在QtCreator中

  HObject  ho_Image, ho_EdgeAmplitude, ho_Region;
  HObject  ho_ConnectedRegions, ho_SelectedRegions, ho_Regions;
  HTuple  hv_Width, hv_Height, hv_Angle, hv_Dist;
  HTuple  hv_WindowHandle;

  ReadImage(&ho_Image, "D:/bb/tu/20.jpg");
  GetImageSize(ho_Image, &hv_Width, &hv_Height);

  SobelAmp(ho_Image, &ho_EdgeAmplitude, "sum_abs", 3);
  //計算邊緣

  Threshold(ho_EdgeAmplitude, &ho_Region, 50, 255);
  //通過閾值把邊緣影象變成區域

  Connection(ho_Region, &ho_ConnectedRegions);

  SelectShapeStd(ho_ConnectedRegions, &ho_SelectedRegions, "max_area", 1634);
  //選擇外邊緣
  HoughLines(ho_SelectedRegions, 4, 100, 5, 5, &hv_Angle, &hv_Dist);
  //通過霍夫變換尋找直線(資料)，並以HNF格式返回
  //引數1：待檢測的邊緣線條區域
  //引數2：角度的步進值，步進大小為這個值的倒數。預設值：4    值列表：1,2,4,8
  //引數3：要尋找的直線的閾值。預設值：100     典型值範圍：2≤閾值
  //引數4：Hough影象中兩個最大值的最小距離（方向：角度）。【直線的最大角度】
  //     預設值：5     典型值範圍：0≤ AngleGap
  //引數5：Hough影象中兩個最大值的最小距離（方向：距離）。【直線的最小角度】
  //     預設值：5     典型值範圍：0≤ 距離差
  //引數6：返回找到直線的角度--弧度
  //引數7：返回找到直線到原點的距離

  if (HDevWindowStack::IsOpen())
    SetColor(HDevWindowStack::GetActive(),"blue");

  GenRegionHline(&ho_Regions, hv_Angle, hv_Dist);
  //將霍夫變換找到的直線資料轉化為區域
  //引數1：輸出區域集
  //引數2：霍夫變換找到的角度
  //引數3：霍夫變換找到的直線到原點的距離


  SetWindowAttr("background_color","black");
  OpenWindow(10,10,hv_Width,hv_Height,0,"visible","",&hv_WindowHandle);
  HDevWindowStack::Push(hv_WindowHandle);
  if (HDevWindowStack::IsOpen())
    DispObj(ho_Regions, HDevWindowStack::GetActive());