Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1637 1598 (N19W61 L=  2)   860    256        1 (1577/1557-1669/1648)   4.1 W53-W67 N17-N20
      2 1485 1462 (N18W41 L=343)   298     59        1 (1458/1427-1512/1496) -90.0 W40-W42 N14-N19
      3  165  973 (N22E63 L=239)  1718    413        1 (  85/ 935- 239/1033) -21.8 E70-E54 N19-N26
      4 1732  834 (S25W40 L=342)  1027    158        1 (1671/ 774-1761/ 900)  29.1 W33-W43 S27-S21
      5 1463  546 (S34W14 L=316)   685     90        2 (1415/ 508-1515/ 585)  15.9 W10-W18 S35-S32
      6 1304  241 (S54E08 L=294)  2203    285        2 (1186/ 167-1445/ 309)   3.7 E23-W08 S57-S50
      7 1123  154 (S56E30 L=271)   491     67        0 (1096/ 137-1151/ 170)  80.5 E32-E28 S58-S52
  

    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