Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1204 1840 (N48W51 L=135)   508     70        1 (1181/1811-1243/1859)   5.2 W45-W56 N46-N49
      2 1373 1821 (N40W62 L=147)   575     32        0 (1356/1791-1394/1845)  18.4 W57-W67 N38-N42
      3 1090 1818 (N51W39 L=124)   387     48        1 (1065/1796-1117/1841)   6.3 W35-W44 N49-N52
      4 1511 1743 (N31W64 L=149)  1657    251        3 (1429/1658-1584/1812)  77.0 W59-W70 N24-N37
      5  412 1516 (N51E37 L= 48)   336     36        0 ( 394/1491- 430/1542) -45.0 E40-E34 N48-N53
      6  701 1431 (N36E10 L= 75)   380    112        0 ( 651/1398- 750/1460) -45.0 E13-E07 N32-N39
      7  354 1422 (N45E43 L= 42)  1020    158        2 ( 286/1391- 419/1447) -12.5 E52-E34 N41-N47
      8  956 1426 (N29W07 L= 92)   231    107        0 ( 900/1399- 991/1442)   0.0 W02-W09 N27-N29
      9  618 1292 (N30E19 L= 66)   254     80        0 ( 598/1261- 652/1318)  36.9 E20-E15 N27-N30
     10  310 1135 (N27E46 L= 39)  1278    270        6 ( 270/1059- 397/1232) -56.3 E50-E38 N21-N33
     11  422  960 (N15E39 L= 46)   835    181        1 ( 383/ 886- 480/1031)  37.9 E42-E33 N10-N17
     12 1328  946 (S08W15 L=100)   403    153        1 (1305/ 884-1365/1014)  45.0 W12-W18 S10-S04
     13 1296  676 (S22W07 L= 92)   418    135        1 (1284/ 612-1320/ 743)  82.9 W05-W09 S26-S18
     14 1854  697 (S40W59 L=144)   780     61        0 (1822/ 680-1892/ 710)  -7.6 W53-W68 S41-S37
     15 1547  598 (S35W23 L=108)   298     74        0 (1523/ 562-1567/ 636) -81.9 W21-W24 S38-S31
     16 1090  544 (S25E09 L= 76)   233     87        1 (1041/ 532-1130/ 557)  -9.5 E12-E06 S26-S23
     17  536  311 (S27E60 L= 25)  1528    156        1 ( 485/ 256- 584/ 358)  10.9 E76-E50 S29-S24
     18  475  303 (S26E68 L= 17)   649     69        0 ( 463/ 264- 493/ 336)  19.4 E78-E61 S29-S23
     19 1314  283 (S52E03 L= 82)   680     60        2 (1273/ 263-1354/ 303) -18.4 E07-W00 S55-S49
     20 1213  191 (S58E19 L= 66)   735     53        3 (1186/ 163-1243/ 217)   7.1 E22-E14 S61-S54
  

    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