Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  647 1797 (N38E59 L=142)  1242    118        2 ( 597/1760- 694/1846)  -8.1 E79-E50 N35-N41
      2  637 1668 (N28E46 L=154)  1062    188        2 ( 549/1633- 721/1713)  48.4 E51-E41 N24-N33
      3 1466 1532 (N40W19 L=220)  1218    240        2 (1384/1443-1508/1603) -36.0 W11-W23 N34-N44
      4  928 1509 (N25E18 L=183)   373    181        0 ( 873/1440- 986/1566) -24.4 E23-E12 N21-N27
      5  347 1528 (N14E63 L=137)   617     98        0 ( 319/1487- 379/1565)  90.0 E65-E61 N10-N16
      6 1381 1396 (N28W14 L=215)  1422    495        1 (1228/1200-1469/1538) -34.8 W00-W23 N17-N35
      7  876 1412 (N17E18 L=182)   205     65        1 ( 846/1384- 909/1434) -11.3 E20-E15 N16-N18
      8  882 1355 (N14E16 L=184)   489    130        1 ( 831/1307- 929/1394) -15.9 E19-E12 N11-N15
      9 1025 1323 (N15E07 L=194)   293     97        2 ( 992/1296-1062/1363)  78.7 E08-E04 N13-N18
     10 1317 1303 (N21W12 L=212)   310    179        0 (1274/1227-1334/1355) -54.5 W08-W13 N16-N23
     11 1720 1201 (N24W44 L=244)   900    152        1 (1694/1128-1747/1262) -54.5 W41-W47 N20-N28
     12 1791 1215 (N27W52 L=252)   361     65        0 (1756/1192-1822/1233)  -7.1 W47-W55 N26-N28
     13  206 1070 (S16E61 L=140)  3247    320        8 ( 117/ 917- 279/1175)  45.0 E77-E52 S27-S09
     14 1910 1016 (N18W70 L=270)  1100    121        1 (1898/ 958-1924/1074) -74.1 W67-W73 N14-N21
     15  389  949 (S20E40 L=160)   791    204        3 ( 320/ 886- 435/1035)  61.4 E46-E37 S24-S13
     16 1308  781 (S10W22 L=223)   321     98        1 (1281/ 749-1334/ 814) -45.0 W20-W24 S11-S07
     17  535  610 (S39E25 L=175)  2368    416        9 ( 381/ 540- 710/ 699)  -3.8 E40-E10 S41-S35
     18 1186  677 (S19W18 L=218)   351    141        0 (1119/ 663-1242/ 698)  29.7 W13-W21 S20-S16
     19  304  657 (S41E51 L=149)  1280    118        1 ( 241/ 636- 358/ 693)  11.9 E62-E43 S44-S37
     20 1417  555 (S21W38 L=238)   255     84        0 (1375/ 527-1450/ 571)  45.0 W35-W40 S23-S19
     21  535  463 (S50E26 L=174)   343     75        1 ( 503/ 445- 576/ 483)   7.1 E29-E21 S51-S48
     22 1244  342 (S39W38 L=238)   458     73        1 (1223/ 311-1274/ 383) -29.7 W33-W40 S41-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