Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1383 1723 (N35W53 L=143)  2443    320        2 (1305/1601-1479/1816)  10.6 W42-W74 N28-N39
      2 1494 1529 (N21W46 L=136)   271     84        0 (1455/1504-1527/1552) -63.4 W44-W48 N18-N23
      3 1699 1019 (S12W42 L=132)   281     66        0 (1681/ 994-1720/1051) -68.2 W40-W42 S14-S09
      4 1786  983 (S18W49 L=139)   321     65        1 (1767/ 954-1808/1018) -59.0 W46-W50 S19-S14
      5 1862  955 (S22W57 L=147)   854    107        1 (1811/ 928-1896/ 995)   0.0 W50-W62 S23-S20
      6 1586  871 (S17W30 L=120)   780    201        0 (1561/ 778-1601/ 971)  59.0 W26-W32 S22-S11
      7  238  768 (N09E62 L= 28)  2599    406        8 ( 144/ 588- 318/ 906) -72.5 E72-E58 S02-N17
      8  281  818 (N11E55 L= 35)   647     86        3 ( 252/ 786- 312/ 866)  78.7 E58-E52 N09-N14
      9  544  604 (S06E41 L= 49)   298     35        1 ( 516/ 584- 563/ 626)   0.0 E42-E38 S07-S04
     10 1419  533 (S33W11 L=101)   258     59        0 (1389/ 509-1444/ 556)  21.8 W08-W13 S34-S32
     11  903  397 (S27E26 L= 64)   703    140        0 ( 836/ 360- 952/ 440)  11.3 E32-E21 S28-S25
     12 1334  290 (S51E02 L= 88)   993    267        0 (1235/ 222-1427/ 355)  13.4 E14-W07 S53-S47
     13  768  242 (S35E47 L= 43)   369     38        0 ( 744/ 223- 797/ 263)  14.0 E50-E42 S36-S33
  

    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