Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1388 1546 (N23W38 L=234)   282    105        0 (1361/1502-1423/1573)  18.4 W35-W41 N20-N24
      2 1478 1527 (N20W43 L=239)   353     79        0 (1431/1512-1523/1539) -38.7 W40-W46 N17-N21
      3 1568 1446 (N13W46 L=241)   622    126        1 (1516/1412-1628/1490)   4.8 W40-W52 N11-N13
      4 1820 1456 (N05W71 L=266)   547     65        0 (1793/1434-1846/1474) -18.4 W66-W75 N03-N06
      5 1775 1395 (N04W61 L=256)   407     72        1 (1756/1361-1792/1434)  31.0 W57-W64 N02-N05
      6  958 1360 (N25W05 L=201)   418    189        0 ( 899/1336-1044/1410) -53.1 W02-W09 N21-N29
      7 1375 1272 (N09W26 L=222)   300     80        0 (1338/1247-1419/1302) -51.3 W24-W28 N06-N11
      8 1344 1222 (N07W23 L=218)   572    105        1 (1316/1178-1382/1260)  21.8 W20-W25 N04-N09
      9 1868 1189 (S10W62 L=257)  1329    170        4 (1839/1128-1901/1254) -76.0 W59-W65 S14-S05
     10  648 1123 (N19E19 L=176)   975    400        3 ( 518/ 998- 803/1203)  10.3 E30-E08 N15-N21
     11  345 1073 (N23E43 L=153)   468    123        0 ( 304/1015- 388/1119) -54.5 E45-E39 N19-N26
     12 1648 1046 (S11W37 L=233)   268     58        2 (1629/1019-1664/1085)  63.4 W36-W38 S12-S08
     13 1524 1053 (S07W29 L=225)   236     72        0 (1479/1036-1560/1065) -31.0 W26-W31 S08-S05
     14 1611  792 (S24W30 L=225)  2801    587        3 (1445/ 545-1722/1017)  36.9 W13-W42 S35-S13
     15  206  987 (N21E58 L=138)   393     75        1 ( 185/ 950- 227/1013) -63.4 E60-E55 N18-N22
     16  993  905 (S01E05 L=191)   887    262        3 ( 937/ 769-1032/ 999)  77.0 E07-E02 S09-N04
     17  357  937 (N15E44 L=152)   270     69        0 ( 323/ 922- 387/ 958) -31.0 E46-E41 N14-N17
     18 1213  901 (S07W07 L=203)   790    244        2 (1128/ 860-1298/ 953) -33.7 W03-W12 S09-S01
     19 1412  885 (S13W18 L=214)   434    128        1 (1381/ 838-1442/ 930)  26.6 W15-W21 S15-S11
     20  285  856 (N12E52 L=143)   641    114        4 ( 222/ 838- 333/ 882) -10.3 E58-E47 N10-N13
     21  115  827 (N13E76 L=119)   723     65        0 ( 105/ 795- 130/ 862) -90.0 E79-E73 N11-N15
     22  877  748 (S07E15 L=180)   490    230        0 ( 847/ 677- 955/ 826) -84.3 E16-E12 S12-S02
     23 1161  752 (S14W01 L=196)   604    145        4 (1120/ 696-1225/ 785)  26.6 E02-W04 S16-S11
     24 1240  732 (S17W05 L=200)   274     62        1 (1217/ 704-1259/ 765) -90.0 W02-W06 S18-S14
     25  436  552 (S08E50 L=145)  5500    539       11 ( 344/ 358- 505/ 738)  38.2 E77-E42 S18-N04
     26 1047  642 (S17E09 L=187)   257     73        1 (1028/ 609-1062/ 685)  36.9 E10-E06 S19-S14
     27  860  521 (S20E23 L=172)   228     39        1 ( 836/ 501- 880/ 548)  45.0 E24-E21 S20-S17
     28  681  370 (S25E42 L=153)  2931    505        2 ( 499/ 250- 887/ 457)   4.8 E72-E24 S29-S22
  

    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