Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1620 1717 (N24W73 L= 92)  1514    118        1 (1568/1694-1678/1738) -23.2 W65-W83 N20-N26
      2 1780 1493 (N08W69 L= 87)   479     86        0 (1768/1445-1789/1531)  33.7 W65-W72 N05-N09
      3 1567 1344 (N07W41 L= 60)   258     48        0 (1540/1321-1591/1363) -63.4 W39-W42 N05-N09
      4 1891 1286 (S07W70 L= 88)   665     70        3 (1874/1247-1909/1324)  29.7 W66-W75 S08-S04
      5  319 1226 (N35E44 L=335)   846    180        1 ( 241/1164- 386/1263) -29.4 E53-E37 N29-N38
      6 1553 1148 (S02W34 L= 52)   218     56        0 (1539/1113-1565/1180)  76.0 W32-W34 S04-N00
      7  758 1060 (N15E14 L=  5)   231     56        0 ( 733/1037- 777/1090)  33.7 E15-E12 N13-N16
      8  124 1052 (N28E71 L=308)  1014    100        1 (  73/1023- 166/1074)  -5.0 E86-E63 N25-N29
      9  713 1018 (N13E18 L=  1)   248     56        0 ( 683/ 996- 736/1038) -33.7 E19-E16 N11-N14
     10 1583  994 (S11W31 L= 50)   269     75        0 (1552/ 959-1602/1028)  21.8 W28-W33 S12-S09
     11 1622  897 (S18W32 L= 50)   772    327        0 (1542/ 831-1708/1018)  21.8 W25-W40 S20-S13
     12 1445  876 (S14W20 L= 38)  1007    325        1 (1363/ 757-1522/1004) -83.3 W16-W22 S22-S05
     13 1788  953 (S21W47 L= 65)   403     54        1 (1761/ 932-1814/ 984)   0.0 W44-W49 S21-S19
     14 1323  809 (S14W11 L= 29)   801    266        0 (1218/ 755-1370/ 898)  -5.7 W04-W14 S16-S08
     15 1778  828 (S28W44 L= 63)   544    131        0 (1739/ 777-1830/ 860)  11.3 W39-W50 S29-S26
     16  873  711 (S07E17 L=  2)  1021    289        0 ( 833/ 577- 924/ 827)  45.0 E23-E10 S14-S02
     17  510  469 (S13E49 L=329)   961    179        3 ( 481/ 405- 536/ 563)  59.0 E53-E44 S17-S07
     18  389  502 (S08E58 L=321)  1040    134        4 ( 351/ 445- 426/ 562)  26.6 E64-E51 S11-S05
     19  631  370 (S22E46 L=333)  2771    439        6 ( 554/ 208- 767/ 524)  25.9 E65-E30 S33-S14
     20 1411  454 (S39W08 L= 26)   473     94        0 (1394/ 401-1428/ 498)  76.0 W05-W08 S43-S35
     21 1316  338 (S45E03 L= 15)  1193    165        1 (1255/ 302-1380/ 380)  -5.7 E07-W03 S48-S40
     22 1235  271 (S48E13 L=  6)   418     34        1 (1217/ 243-1255/ 295)  59.0 E14-E10 S50-S45
  

    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