Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  859 1665 (N34E28 L=181)  2578    576        6 ( 665/1560-1044/1772)  -6.3 E48-E12 N30-N38
      2 1130 1548 (N32E05 L=204)   381     90        0 (1097/1516-1176/1571)  56.3 E07-E02 N29-N35
      3  468 1507 (N16E49 L=161)   444     73        1 ( 445/1473- 493/1538) -76.0 E50-E47 N13-N17
      4  601 1422 (N13E35 L=174)   263     64        0 ( 577/1398- 621/1456)  76.0 E36-E34 N11-N15
      5  457 1415 (N10E46 L=164)   482     99        0 ( 434/1386- 492/1452) -31.0 E48-E42 N08-N11
      6  357 1377 (N06E53 L=156)   474    116        1 ( 315/1357- 397/1392)   7.1 E57-E49 N04-N06
      7  402 1312 (N03E47 L=163)   296     78        0 ( 385/1278- 419/1348) -38.7 E49-E44 N00-N04
      8  250 1320 (N00E62 L=147)   582    111        1 ( 222/1294- 287/1346)   0.0 E65-E56 N00-N02
      9 1780  986 (N12W52 L=261)  1483    187        1 (1733/ 895-1814/1063) -41.6 W46-W57 N06-N15
     10  754  999 (S09E15 L=194)   577    159        1 ( 671/ 974- 816/1034)  26.6 E20-E11 S11-S05
     11  262 1005 (S18E52 L=157)   405    101        0 ( 228/ 987- 289/1023)  26.6 E55-E49 S19-S16
     12 1534  704 (S10W39 L=249)   281     94        0 (1517/ 670-1560/ 746) -31.0 W37-W42 S11-S07
     13  706  666 (S30E13 L=196)   274     89        0 ( 654/ 649- 758/ 686)   8.1 E16-E09 S30-S28
     14  971  626 (S27W06 L=215)   405     65        1 ( 932/ 608-1010/ 645)  21.8 W02-W08 S28-S25
  

    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