Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1318 1722 (N37W46 L=335)   493    135        0 (1285/1681-1348/1762)  16.7 W40-W50 N35-N38
      2 1685 1635 (N19W69 L=358)   734    194        3 (1649/1613-1712/1659) -12.5 W64-W73 N17-N20
      3 1589 1559 (N19W54 L=343)   493     73        2 (1561/1517-1621/1594)  78.7 W52-W55 N16-N21
      4  226 1031 (N25E55 L=234)  2383    570        4 ( 105/ 971- 382/1118) -25.6 E67-E41 N18-N31
      5 1857  866 (S28W53 L=342)   508     99        1 (1825/ 841-1883/ 900)   9.5 W49-W56 S29-S26
      6 1396  283 (S54W02 L=292)  1785    232        2 (1284/ 207-1506/ 344)   6.3 E12-W15 S57-S51
      7 1221  193 (S56E19 L=271)   505     91        0 (1197/ 178-1254/ 215) -80.5 E20-E16 S58-S51
  

    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