Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  626 1793 (N32E58 L=260)  1337    158        2 ( 579/1749- 688/1829)  -3.8 E66-E48 N28-N34
      2  592 1609 (N19E45 L=273)   883    114        1 ( 568/1549- 619/1667) -58.0 E48-E42 N14-N22
      3 1396 1453 (N31W11 L=330)  2105    527        4 (1286/1223-1502/1628) -41.0 W00-W23 N19-N40
      4  284 1546 (N09E72 L=246)  2194    201        3 ( 227/1488- 344/1624)  68.2 E79-E66 N04-N14
      5  362 1582 (N12E64 L=254)   659     63        3 ( 335/1554- 390/1614)  45.0 E67-E61 N10-N14
      6  335 1482 (N06E60 L=258)   375     64        3 ( 308/1450- 353/1511) -45.0 E63-E56 N03-N07
      7 1049 1177 (N05E03 L=316)  1136    459        3 ( 881/1099-1123/1344)  74.5 E10-W00 S03-N15
      8 1637 1307 (N29W32 L=350)   891    130        1 (1575/1254-1688/1344) -11.3 W26-W36 N26-N30
      9 1426 1115 (N11W21 L=339)   440    205        2 (1368/1064-1463/1157)  51.3 W17-W23 N08-N13
     10 1706 1040 (N15W42 L=  0)  1338    235        3 (1617/ 952-1765/1110) -13.0 W34-W48 N11-N18
     11  601 1026 (S15E25 L=294)   290     80        2 ( 570/ 986- 624/1055) -45.0 E27-E22 S16-S12
     12 1578  857 (N01W37 L=356)   751    155        1 (1508/ 827-1648/ 901)   5.2 W31-W42 N00-N02
     13 1332  765 (S11W25 L=343)   209     62        2 (1303/ 743-1361/ 788)  56.3 W23-W25 S12-S08
     14 1197  755 (S15W17 L=335)   202     56        1 (1172/ 733-1217/ 784)  56.3 W15-W18 S16-S12
     15 1324  711 (S14W26 L=344)   805    269        0 (1221/ 683-1458/ 742)  31.6 W20-W33 S17-S08
     16  247  622 (S49E60 L=258)  2788    211        9 ( 158/ 579- 328/ 692)  -3.7 E82-E46 S51-S45
     17 1650  605 (S10W53 L= 11)   513    138        1 (1615/ 557-1673/ 657) -63.4 W48-W54 S13-S07
     18  439  475 (S55E34 L=284)   333     41        0 ( 422/ 451- 455/ 502)  68.2 E36-E31 S57-S52
     19 1025  373 (S43W23 L=341)   647    109        3 ( 959/ 350-1076/ 397)  18.4 W17-W26 S44-S40
     20  747  344 (S55W03 L=322)   466     62        0 ( 714/ 315- 779/ 369) -15.9 W00-W07 S56-S53
  

    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