Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1015 1635 (N37W02 L=324)   351     69        1 ( 991/1600-1030/1671)  68.2 W00-W03 N34-N39
      2 1697 1388 (N18W48 L= 10)   814    217        0 (1622/1354-1780/1435) -22.6 W42-W55 N15-N20
      3 1472 1191 (N06W28 L=350)  1338    318        2 (1324/1057-1548/1279) -42.7 W19-W33 S02-N11
      4 1806 1163 (N04W55 L= 17)   404     74        1 (1779/1135-1829/1185)  11.3 W52-W57 N02-N05
      5  426  791 (S14E40 L=281)  2126    540        5 ( 337/ 626- 563/ 960)  40.8 E51-E28 S23-S04
      6 1336  771 (S19W19 L=341)   202     48        0 (1319/ 740-1351/ 798)  71.6 W17-W19 S20-S17
      7 1458  405 (S44W33 L=355)   280     32        0 (1436/ 388-1475/ 427)  33.7 W31-W35 S45-S42
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y