Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1610 1530 (N26W47 L=  2)  1031    167        1 (1527/1494-1684/1558) -17.1 W40-W53 N23-N28
      2  427 1206 (N13E38 L=277)   287     54        0 ( 398/1189- 465/1221)   0.0 E40-E34 N12-N14
      3 1812  909 (S13W55 L= 10)  1436    385        1 (1762/ 757-1883/1064)  68.7 W50-W63 S22-S04
      4 1486 1034 (S04W29 L=343)   214     66        0 (1458/1015-1520/1051)   0.0 W26-W30 S05-S02
      5  978  767 (S17E05 L=310)   323    149        0 ( 940/ 713-1024/ 833) -63.4 E06-E02 S20-S12
      6  424  779 (S12E42 L=273)   261     68        2 ( 411/ 742- 439/ 819)  78.7 E42-E40 S14-S09
      7  759  752 (S16E19 L=296)   305    136        1 ( 737/ 702- 785/ 813)  66.8 E20-E16 S19-S12
      8  442  711 (S16E42 L=273)   465    143        2 ( 395/ 653- 488/ 774)  35.0 E46-E36 S19-S12
      9  440  614 (S22E45 L=270)   510    124        2 ( 404/ 561- 467/ 671)  35.0 E50-E40 S25-S18
     10 1600  623 (S30W40 L=354)   341     71        1 (1566/ 597-1634/ 651)  31.0 W36-W42 S31-S28
     11  799  530 (S31E20 L=295)   236     43        0 ( 774/ 513- 817/ 553)  26.6 E21-E17 S31-S29
     12  759  382 (S41E27 L=287)   371     54        2 ( 739/ 358- 785/ 412)  45.0 E29-E25 S42-S38
     13  685  273 (S49E42 L=273)   532     94        1 ( 645/ 235- 723/ 307)  14.9 E50-E35 S52-S46
  

    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