Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1485 1680 (N28W53 L=116)   625    134        1 (1416/1649-1549/1702) -40.6 W48-W57 N25-N31
      2 1365 1667 (N31W43 L=106)   284     66        1 (1349/1636-1387/1700)  23.2 W39-W46 N29-N32
      3 1734 1589 (N16W70 L=133)  1014    131        1 (1688/1545-1777/1634) -66.8 W68-W74 N12-N19
      4 1608 1562 (N18W55 L=117)   598     90        3 (1570/1532-1644/1593) -45.0 W51-W57 N16-N20
      5 1422 1510 (N21W38 L=100)   872    241        1 (1343/1453-1530/1586) -63.4 W35-W42 N14-N26
      6  985 1483 (N31W10 L= 72)   969    252        0 ( 873/1432-1096/1515)  -7.6 W01-W16 N27-N32
      7  394 1485 (N47E38 L= 25)   597    100        2 ( 360/1448- 438/1512)   6.3 E41-E32 N44-N48
      8 1317 1440 (N19W28 L= 91)   945    266        0 (1210/1361-1419/1488) -56.3 W22-W31 N12-N24
      9 1643 1453 (N12W51 L=114)   397     53        1 (1615/1426-1668/1473) -11.3 W48-W53 N10-N13
     10 1056 1324 (N19W09 L= 72)   294    143        0 ( 991/1309-1132/1338) -26.6 W05-W13 N17-N21
     11 1748 1192 (S05W50 L=112)   598    143        2 (1732/1107-1774/1245)  54.5 W46-W53 S09-S02
     12 1810 1166 (S08W55 L=117)   375     48        0 (1798/1131-1824/1197)  45.0 W52-W56 S09-S06
     13  174 1033 (N22E61 L=  2)   748     64        1 ( 149/ 994- 200/1065) -51.3 E64-E57 N19-N24
     14 1279 1015 (S03W14 L= 76)   327    113        1 (1248/ 968-1312/1060)  31.0 W11-W16 S04-N00
     15 1769  988 (S17W47 L=109)   304     85        0 (1754/ 952-1784/1036)  45.0 W44-W48 S18-S14
     16 1372  916 (S11W17 L= 80)   285    114        1 (1315/ 896-1417/ 944)  -8.1 W13-W20 S11-S09
     17  872  760 (S08E15 L= 48)  1449    436        4 ( 749/ 673-1017/ 853)  11.9 E23-E04 S10-S04
     18  514  691 (S04E39 L= 24)  3005    573        6 ( 332/ 527- 715/ 850) -45.0 E50-E30 S16-N06
     19  370  653 (S03E51 L= 12)   360     63        1 ( 356/ 611- 388/ 682)  63.4 E52-E48 S05-S01
     20 1024  553 (S23E12 L= 51)  2030    585        3 ( 819/ 478-1232/ 681) -30.6 E21-W01 S29-S12
     21  345  517 (S11E60 L=  2)  5988    440       13 ( 241/ 344- 470/ 658)  43.6 E80-E49 S21-S01
     22  841  297 (S36E35 L= 28)  3928    454        5 ( 747/ 122- 922/ 487)  30.2 E68-E24 S47-S22
     23  726  174 (S42E58 L=  5)   570     48        2 ( 705/ 140- 741/ 200)  31.0 E64-E53 S45-S39
  

    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