Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1702 1480 (N19W54 L=350)   456    104        1 (1662/1429-1738/1530) -74.1 W52-W57 N15-N22
      2 1637 1465 (N19W48 L=343)   324     45        0 (1612/1438-1665/1494) -63.4 W46-W49 N17-N21
      3  269 1407 (N32E52 L=243)   462    101        3 ( 244/1375- 303/1433)  21.8 E54-E49 N29-N33
      4  288 1371 (N29E50 L=246)   426     67        1 ( 262/1344- 313/1399)  56.3 E52-E47 N27-N30
      5  472 1297 (N22E33 L=262)   393    115        1 ( 418/1270- 527/1319)   7.1 E37-E29 N20-N22
      6 1386 1261 (N09W25 L=320)   208     91        0 (1358/1221-1413/1305)  38.7 W22-W27 N07-N11
      7 1876 1134 (S03W63 L=359)  1311    194        4 (1836/1087-1914/1187) -56.3 W58-W68 S06-N00
      8  166 1168 (N18E61 L=234)   504     58        0 ( 141/1148- 188/1185) -18.4 E64-E58 N16-N19
      9 1448 1136 (N01W27 L=323)   380     60        1 (1425/1097-1465/1176)  56.3 W25-W28 N00-N03
     10 1740  922 (S14W47 L=342)   471    105        0 (1707/ 870-1773/ 985)  49.4 W43-W50 S17-S10
     11 1640  910 (S14W39 L=334)   266     66        1 (1626/ 879-1655/ 954)  63.4 W37-W39 S15-S11
     12 1433  886 (S13W24 L=319)   208     62        1 (1409/ 855-1461/ 913) -45.0 W22-W25 S15-S11
     13  329  877 (S02E48 L=248)   262     37        0 ( 311/ 849- 346/ 902) -56.3 E49-E46 S03-N00
     14 1844  824 (S22W57 L=353)   648    142        0 (1801/ 773-1884/ 861)  32.0 W52-W61 S24-S19
     15 1132  705 (S21W03 L=298)   945    130        3 (1060/ 604-1184/ 791)  51.3 E02-W06 S26-S16
     16  392  686 (S13E47 L=249)  1336    247        4 ( 339/ 640- 466/ 731) -16.7 E51-E40 S16-S10
     17 1636  669 (S29W39 L=334)   568    106        1 (1583/ 624-1683/ 713)  26.6 W34-W42 S31-S26
     18  480  545 (S23E44 L=252)   835    250        1 ( 441/ 449- 506/ 645)  53.1 E48-E38 S29-S17
     19  794  283 (S46E32 L=264)   662     87        2 ( 756/ 249- 822/ 318)  39.8 E35-E28 S49-S43
     20  642  225 (S49E50 L=246)   679    108        1 ( 613/ 205- 667/ 254)  14.0 E54-E46 S50-S46
  

    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