Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  845 1828 (N64E24 L=336)   406     74        0 ( 814/1806- 879/1843)  29.7 E26-E19 N61-N65
      2  956 1818 (N63E07 L=353)   425     49        1 ( 939/1792- 978/1839)  51.3 E09-E04 N59-N65
      3  338 1441 (N30E57 L=303)   638    139        1 ( 294/1404- 378/1469)  12.5 E62-E52 N27-N31
      4 1696 1380 (N24W53 L= 53)  1053    202        3 (1613/1312-1773/1436) -33.7 W46-W59 N19-N27
      5 1324 1371 (N25W21 L= 21)   412    191        0 (1248/1314-1385/1404) -36.9 W16-W25 N21-N27
      6  290 1328 (N22E58 L=302)   497     87        1 ( 268/1296- 328/1370) -26.6 E61-E52 N20-N24
      7 1532 1339 (N22W37 L= 36)   295     74        0 (1499/1313-1552/1368)  31.0 W33-W38 N20-N24
      8  764 1287 (N20E17 L=343)   429    167        1 ( 698/1256- 814/1346)  32.0 E21-E13 N18-N24
      9  355 1105 (N08E47 L=313)   362     61        1 ( 334/1076- 379/1138) -45.0 E48-E44 N06-N10
     10 1749  864 (S08W52 L= 51)   518     52        0 (1722/ 838-1773/ 888)  26.6 W49-W54 S09-S06
     11 1799  788 (S14W59 L= 58)  2260    306        8 (1722/ 711-1860/ 888)  84.8 W50-W68 S18-S07
     12 1649  718 (S17W44 L= 44)   617    187        2 (1607/ 658-1687/ 774)  54.5 W41-W46 S21-S13
     13 1421  697 (S18W26 L= 26)   631    149        3 (1354/ 665-1495/ 740)  21.8 W21-W31 S19-S14
     14  280  688 (S18E58 L=301)   408     15        0 ( 263/ 667- 296/ 709)  45.0 E60-E56 S19-S16
     15  481  660 (S19E39 L=321)   335     79        0 ( 460/ 632- 497/ 701)  51.3 E41-E37 S21-S16
     16 1743  652 (S22W56 L= 56)   531     78        1 (1704/ 623-1771/ 678)  18.4 W51-W59 S24-S20
     17 1783  611 (S26W64 L= 64)  1468    138        3 (1722/ 582-1846/ 642)   0.0 W55-W76 S27-S23
     18  836  457 (S34E15 L=345)  2625    351       10 ( 740/ 383- 953/ 583) -28.1 E21-E06 S39-S24
     19  582  310 (S47E46 L=314)   550     92        0 ( 572/ 266- 594/ 358)  34.7 E53-E40 S51-S42
  

    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