Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  973 1570 (N27E12 L=299)  1422    389        0 ( 860/1422-1060/1714) -40.4 E23-E03 N18-N36
      2 1124 1641 (N34E03 L=308)   497    131        0 (1066/1602-1177/1671) -20.6 E07-W01 N32-N35
      3 1725 1356 (N26W45 L=355)   709    137        0 (1696/1298-1746/1411) -82.9 W42-W46 N21-N29
      4 1651 1233 (N16W38 L=348)   669     85        2 (1618/1200-1692/1273) -36.9 W35-W41 N13-N18
      5  155 1027 (S14E66 L=245)  1010    103        3 ( 130/ 982- 177/1086)  80.5 E69-E62 S16-S10
      6  237 1012 (S15E56 L=255)   973    165        3 ( 184/ 961- 281/1078)  37.9 E61-E51 S18-S10
      7  332  945 (S18E46 L=264)   289     65        0 ( 299/ 918- 352/ 974)  45.0 E49-E44 S20-S16
      8  477  862 (S22E34 L=277)   432    135        0 ( 430/ 833- 546/ 895) -12.5 E37-E28 S23-S20
      9  206  803 (S28E62 L=249)  1372    197        2 ( 157/ 736- 283/ 859)  18.4 E72-E51 S31-S23
     10 1208  687 (S23W17 L=327)  1351    499        1 (1007/ 541-1342/ 833)  55.2 W06-W22 S35-S12
     11  750  802 (S23E14 L=296)   275    124        0 ( 684/ 787- 798/ 825)  23.2 E18-E11 S24-S20
     12 1544  572 (S24W44 L=355)   492    105        1 (1496/ 538-1587/ 606)  45.0 W41-W46 S27-S21
     13  583  309 (S61E36 L=275)   718     68        0 ( 554/ 283- 617/ 341)   0.0 E41-E30 S63-S58
  

    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