Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1353 1855 (N44W63 L=323)  1417    100        1 (1321/1817-1384/1899)   7.1 W54-W78 N42-N46
      2 1249 1825 (N46W48 L=309)   597     62        1 (1223/1789-1274/1856)  15.3 W43-W54 N43-N47
      3 1279 1631 (N32W34 L=295)   774    114        0 (1219/1600-1335/1660) -50.2 W31-W37 N28-N35
      4  977 1527 (N34W10 L=270)   535    209        0 ( 955/1435- 999/1623)  69.0 W07-W13 N27-N40
      5 1059 1558 (N33W16 L=277)   299     68        1 (1039/1512-1082/1587)  38.7 W13-W18 N30-N35
      6 1675 1470 (N12W55 L=315)  2137    226        2 (1582/1410-1781/1542) -39.8 W49-W63 N07-N18
      7  403 1520 (N48E38 L=222)   567     66        0 ( 371/1497- 440/1541)  -6.3 E42-E33 N46-N50
      8 1242 1463 (N23W24 L=284)   277     90        0 (1202/1440-1278/1481) -45.0 W21-W25 N21-N24
      9  716 1383 (N31E11 L=249)   975    246        1 ( 585/1365- 830/1400) -16.4 E20-E03 N28-N34
     10 1193 1320 (N16W17 L=277)   519    230        0 (1115/1261-1290/1371)   8.7 W10-W23 N14-N17
     11 1036 1301 (N19W07 L=267)   207    106        0 ( 997/1274-1084/1324) -45.0 W05-W09 N16-N20
     12  960 1096 (N09E02 L=258)   953    343        1 ( 840/1064-1146/1133) -13.2 E09-W08 N04-N11
     13 1631 1047 (S09W37 L=297)   854    135        0 (1590/ 986-1675/1113) -66.0 W35-W39 S13-S04
     14 1807 1027 (S15W52 L=312)   423     57        1 (1788/ 997-1825/1060)  36.9 W49-W53 S16-S13
     15  219  927 (N14E57 L=203)  1244    211        1 ( 150/ 835- 281/ 998) -47.7 E65-E52 N08-N19
     16  395  766 (N02E45 L=215)   377     96        0 ( 368/ 736- 432/ 789)  -9.5 E47-E41 N00-N03
     17  854  685 (S12E18 L=243)   822    147        3 ( 797/ 612- 899/ 752)  83.7 E20-E15 S16-S07
     18 1498  586 (S34W20 L=281)   696    127        1 (1440/ 553-1554/ 626)   0.0 W15-W25 S35-S32
     19  476  463 (S17E51 L=209)  1787    294        6 ( 410/ 365- 543/ 555)  81.9 E56-E47 S24-S10
     20  540  332 (S27E55 L=205)  1004    160        1 ( 467/ 297- 588/ 392)  13.2 E65-E48 S29-S23
     21  866  199 (S45E41 L=219)  1591    158        1 ( 796/ 157- 922/ 257)  14.7 E51-E32 S48-S41
  

    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