Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  770 1808 (N35E49 L=257)  2861    370        3 ( 639/1716- 856/1873)  23.6 E60-E35 N27-N40
      2  474 1688 (N19E63 L=243)  1257    123        1 ( 444/1628- 505/1746) -48.4 E68-E58 N14-N23
      3 1252 1356 (N19W03 L=309)   439    177        0 (1218/1282-1292/1435) -45.0 W00-W07 N15-N23
      4 1585 1019 (N11W33 L=338)   251     61        0 (1563/ 993-1613/1049) -21.8 W30-W35 N09-N11
      5 1681  927 (N09W43 L=348)   439     95        0 (1651/ 888-1713/ 966)  71.6 W40-W44 N05-N11
      6  969  912 (S13W00 L=305)   609    249        0 ( 883/ 872-1076/ 944)  26.6 E03-W07 S17-S10
      7  140  864 (S37E73 L=232)   815     79        0 ( 115/ 827- 168/ 902)  17.4 E83-E65 S39-S34
      8 1789  837 (N08W55 L=  0)   375     64        0 (1774/ 806-1807/ 876) -78.7 W53-W56 N05-N10
      9  836  780 (S25E04 L=301)   269     95        1 ( 814/ 742- 864/ 824) -53.1 E05-E01 S26-S21
     10  512  739 (S36E26 L=280)   356     81        0 ( 470/ 724- 554/ 754)  23.2 E29-E22 S38-S34
     11 1795  676 (S00W64 L=  9)  1750    156        2 (1754/ 632-1855/ 750)  -3.0 W55-W74 S02-N02
     12  952  548 (S35W11 L=316)   935    191        1 ( 861/ 529-1052/ 574)  30.3 W05-W17 S38-S31
     13 1516  293 (S29W70 L= 15)  2064    125        2 (1449/ 258-1586/ 323)  28.3 W61-W78 S32-S25
     14 1346  255 (S38W59 L=  4)   483     71        1 (1311/ 228-1378/ 279)  15.9 W53-W62 S39-S36
  

    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