Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  573 1736 (N42E44 L=184)   415     49        1 ( 549/1714- 598/1756)  56.3 E47-E41 N40-N44
      2 1423 1643 (N38W28 L=257)  2291    412        3 (1273/1530-1591/1706) -22.6 W16-W41 N31-N43
      3  894 1537 (N27E11 L=217)   278     63        0 ( 861/1515- 933/1558) -21.8 E13-E08 N26-N28
      4  330 1501 (N24E56 L=172)   748     85        5 ( 311/1458- 355/1550) -45.0 E60-E52 N21-N28
      5 1676 1420 (N24W45 L=274)   630    107        0 (1654/1374-1705/1477) -80.5 W43-W47 N21-N27
      6 1509 1172 (N07W30 L=258)   387     69        0 (1486/1138-1527/1214)  78.7 W28-W31 N04-N09
      7  489  932 (S11E34 L=194)   437    101        0 ( 454/ 890- 522/ 985)  50.2 E36-E31 S13-S07
      8  259  875 (S14E54 L=174)  1646    270        5 ( 221/ 756- 299/ 978)  85.6 E57-E50 S21-S08
      9 1611  853 (S11W39 L=267)   341     50        1 (1582/ 828-1638/ 882) -26.6 W36-W41 S12-S09
     10  905  784 (S19E07 L=222)   375    124        3 ( 863/ 754- 958/ 827)  38.7 E09-E03 S20-S16
     11 1710  761 (S16W49 L=278)   521     90        4 (1686/ 722-1741/ 801) -51.3 W46-W52 S18-S13
     12 1656  703 (S20W46 L=274)   281     98        0 (1621/ 683-1706/ 725)  23.2 W42-W50 S21-S18
     13  453  624 (S30E41 L=187)  1166    170        3 ( 416/ 548- 490/ 705) -90.0 E43-E37 S35-S24
     14 1715  636 (S23W54 L=282)   444     57        1 (1693/ 611-1737/ 667)  76.0 W51-W57 S25-S21
     15  206  609 (S30E73 L=155)   986     86        3 ( 185/ 577- 229/ 653)  14.0 E83-E66 S32-S27
     16 1360  598 (S29W25 L=254)   594    111        4 (1316/ 561-1397/ 651)  68.2 W22-W28 S31-S25
     17 1106  589 (S31W08 L=236)   570    187        0 (1014/ 573-1191/ 607)   4.8 W01-W13 S31-S28
     18  654  535 (S36E26 L=202)   411    133        2 ( 598/ 521- 724/ 553)   0.0 E30-E20 S36-S34
     19  853  496 (S38E11 L=218)   281     73        0 ( 823/ 464- 883/ 528)  45.0 E13-E08 S40-S35
     20  606  304 (S54E42 L=187)   803    142        1 ( 548/ 260- 669/ 347)  16.5 E57-E30 S58-S50
     21 1181  183 (S64W29 L=257)   605    103        3 (1131/ 166-1239/ 200)   8.1 W22-W37 S66-S61
  

    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