Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1510 1709 (N54W15 L=249)   636     74        2 (1481/1677-1544/1736)   0.0 W11-W18 N50-N56
      2  556 1642 (N17E49 L=185)   501    156        0 ( 524/1593- 578/1684) -29.1 E53-E44 N14-N19
      3  492 1620 (N15E53 L=181)   433     57        2 ( 464/1597- 527/1640)  36.9 E54-E50 N13-N16
      4  280 1530 (N06E70 L=164)   609    107        2 ( 249/1480- 311/1575)  90.0 E72-E67 N02-N09
      5  383 1496 (N05E56 L=179)  1096    165        0 ( 329/1465- 452/1522)  29.1 E60-E50 N02-N07
      6 1053 1488 (N20E11 L=223)   401    103        1 (1010/1465-1113/1513)  18.4 E13-E07 N17-N21
      7 1358 1345 (N20W10 L=245)   304    111        0 (1323/1284-1380/1399) -39.8 W07-W13 N17-N22
      8  187 1237 (S13E65 L=169)  3335    533       11 ( 132/1162- 260/1305)  36.0 E74-E56 S17-S08
      9  430 1163 (S13E40 L=194)   231     49        0 ( 406/1138- 453/1188)  45.0 E41-E38 S15-S11
     10  739 1168 (S06E20 L=214)   410    143        1 ( 664/1155- 809/1184)  24.0 E24-E15 S08-S04
     11  334  867 (S33E42 L=192)   329     55        0 ( 313/ 850- 363/ 891) -11.3 E44-E39 S34-S31
     12  572  807 (S31E22 L=212)   652    192        0 ( 491/ 769- 670/ 829)   4.1 E28-E14 S32-S29
     13  889  735 (S27W00 L=234)   388    109        0 ( 824/ 714- 942/ 752)   8.1 E04-W03 S28-S24
     14 1281  715 (S17W24 L=258)   952    270        0 (1153/ 671-1416/ 744)  15.5 W15-W33 S19-S14
     15 1708  593 (S09W58 L=293)   370     54        0 (1688/ 561-1728/ 627)  90.0 W57-W59 S11-S06
     16 1602  597 (S13W49 L=283)   334     72        0 (1573/ 582-1633/ 622)   0.0 W45-W51 S13-S11
     17 1369  544 (S23W36 L=270)  1894    624        1 (1088/ 457-1568/ 602)  14.0 W17-W53 S30-S16
     18 1680  441 (S18W66 L=300)  1935    320        4 (1638/ 348-1749/ 549) -59.7 W61-W72 S22-S09
     19 1225  398 (S36W35 L=269)   627    144        0 (1148/ 376-1295/ 419)  15.3 W29-W40 S37-S33
     20 1403  270 (S37W56 L=290)   483    206        0 (1370/ 228-1427/ 313) -10.3 W49-W60 S37-S35
  

    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