Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1464 1510 (N34W35 L= 89)   422     54        0 (1433/1478-1489/1544) -68.2 W33-W36 N31-N36
      2 1671 1504 (N32W53 L=107)   693    105        2 (1645/1469-1706/1532) -45.0 W49-W56 N29-N34
      3  326 1483 (N32E57 L=358)  1011    239        2 ( 292/1437- 384/1529) -24.4 E61-E49 N29-N35
      4  589 1391 (N27E31 L= 24)   240     73        1 ( 556/1377- 621/1405) -11.3 E33-E28 N26-N27
      5 1429 1291 (N20W28 L= 82)   228    112        1 (1397/1251-1473/1314)  23.2 W24-W31 N17-N20
      6  182 1241 (N16E67 L=348)  1068    209        2 ( 159/1191- 213/1294) -36.9 E70-E61 N13-N19
      7 1508 1251 (N17W33 L= 87)   259     69        0 (1488/1209-1527/1285) -76.0 W31-W34 N14-N18
      8 1783 1212 (N13W56 L=111)   386     98        2 (1759/1181-1805/1240) -63.4 W53-W58 N10-N14
      9 1177  972 (N00W09 L= 64)   304     85        1 (1132/ 945-1224/ 997)   9.5 W06-W12 S01-N01
     10 1857  836 (S11W64 L=118)   703    134        1 (1846/ 795-1878/ 893)  90.0 W62-W67 S13-S07
     11  578  749 (S13E30 L= 25)   342     86        0 ( 524/ 724- 615/ 779) -26.6 E33-E27 S14-S11
     12  387  609 (S23E48 L=  7)  1718    409        5 ( 302/ 508- 468/ 701)  37.9 E59-E39 S30-S16
     13 1065  573 (S25W02 L= 57)   264     58        1 (1029/ 552-1090/ 595)  18.4 W00-W03 S26-S23
  

    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