Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  684 1676 (N33E33 L= 94)   389     51        1 ( 655/1655- 712/1704)  14.0 E34-E30 N31-N35
      2 1169 1540 (N28W04 L=131)  1158    393        2 (1070/1486-1351/1639) -20.2 E03-W16 N24-N33
      3 1625 1262 (N16W36 L=163)   408     83        3 (1599/1221-1650/1297)  51.3 W34-W38 N12-N17
      4 1733 1225 (N15W45 L=172)   395     92        0 (1711/1181-1764/1272) -59.0 W43-W48 N12-N17
      5 1559 1124 (N06W32 L=159)  1386    379        1 (1419/ 978-1630/1262) -40.9 W21-W38 S01-N12
      6  362 1065 (S08E43 L= 84)   261     98        0 ( 353/1011- 373/1119) -81.9 E44-E42 S11-S04
      7 1034 1066 (S03W00 L=127)   440    162        0 ( 955/1016-1093/1092) -20.6 E04-W04 S05-S01
      8  169  888 (S19E63 L= 63)  4629    382        6 (  95/ 761- 215/1069)  52.1 E83-E57 S26-S08
      9  105 1006 (S12E72 L= 55)   752     69        2 (  75/ 979- 135/1033) -16.7 E79-E67 S13-S09
     10 1435  959 (S05W25 L=152)   204     47        1 (1410/ 944-1467/ 975)  33.7 W23-W27 S05-S03
     11  368  888 (S18E43 L= 84)  1063    285        1 ( 303/ 825- 430/ 956) -45.0 E48-E37 S22-S14
     12 1807  864 (S05W56 L=182)   864    103        4 (1763/ 823-1859/ 905)   0.0 W50-W61 S07-S03
     13 1295  736 (S19W20 L=147)   888    333        2 (1221/ 631-1382/ 876) -42.7 W13-W28 S24-S11
     14 1748  717 (S14W54 L=181)  1935    232        5 (1660/ 656-1825/ 773)  28.3 W47-W63 S18-S11
     15 1524  722 (S17W36 L=163)   876    271        2 (1402/ 659-1627/ 767)  32.7 W28-W43 S22-S13
     16 1657  726 (S15W46 L=173)   276     44        0 (1637/ 700-1675/ 755)  90.0 W44-W46 S16-S13
     17  324  549 (S40E56 L= 71)  1787    159        5 ( 245/ 499- 402/ 584)   5.9 E74-E45 S43-S37
     18 1640  393 (S35W64 L=190)  1109    103        2 (1600/ 368-1686/ 426)   0.0 W56-W71 S37-S33
     19 1580  300 (S42W68 L=195)   523     60        1 (1561/ 264-1598/ 331) -26.6 W62-W74 S44-S40
  

    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