Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1016 1821 (N56E19 L= 89)   828    215        0 ( 921/1797-1117/1850)   0.0 E30-E07 N54-N57
      2 1026 1627 (N39E09 L= 99)  1115    320        1 ( 872/1589-1170/1690)  -4.6 E23-W02 N37-N42
      3  368 1633 (N30E70 L= 38)  1766    208        3 ( 305/1541- 441/1687)  79.7 E75-E62 N23-N34
      4  825 1593 (N34E23 L= 85)   270     81        0 ( 796/1551- 848/1623) -33.7 E26-E20 N31-N35
      5  406 1555 (N25E57 L= 51)   649    111        0 ( 384/1514- 434/1614) -66.8 E59-E53 N22-N29
      6  383 1460 (N19E53 L= 55)   351     43        1 ( 356/1439- 404/1480)  -9.5 E56-E50 N17-N20
      7 1622 1368 (N29W39 L=147)  3271    453        5 (1396/1285-1781/1448)  -6.7 W20-W54 N25-N32
      8  330 1078 (S05E47 L= 61)   726    169        1 ( 292/1009- 366/1151)  66.0 E50-E44 S09-N00
      9 1779 1100 (N14W52 L=160)   533    119        0 (1762/1044-1812/1137) -80.5 W50-W56 N10-N16
     10  583 1046 (S04E28 L= 80)   293    104        0 ( 556/1007- 601/1102)  90.0 E29-E26 S06-N00
     11  850 1037 (S01E11 L= 97)   456    164        2 ( 792/ 981- 887/1102)  66.8 E13-E08 S04-N03
     12 1144  723 (S16W11 L=119)   775    279        0 (1062/ 669-1198/ 782)  40.6 W06-W14 S20-S12
     13 1682  448 (S27W65 L=173)   780     82        0 (1633/ 435-1727/ 461)   0.0 W58-W74 S27-S26
  

    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