Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1363 1730 (N55W26 L= 79)   554    124        1 (1301/1710-1423/1751)   0.0 W18-W33 N53-N56
      2  463 1582 (N31E53 L=  0)   949    151        2 ( 444/1512- 490/1641) -48.4 E59-E48 N26-N35
      3  742 1439 (N25E24 L= 29)  1275    344        1 ( 643/1370- 800/1563)  81.3 E29-E19 N19-N33
      4 1668 1345 (N27W45 L= 98)  4411    722        9 (1408/1144-1867/1526) -26.6 W24-W65 N15-N38
      5 1672 1202 (N18W44 L= 97)   464    131        1 (1630/1141-1695/1242) -71.6 W40-W46 N14-N20
      6 1540 1163 (N14W33 L= 86)   541    137        0 (1503/1124-1582/1212) -45.0 W30-W36 N12-N17
      7  212  948 (S11E60 L=353)   732     89        2 ( 172/ 922- 246/ 968) -12.5 E65-E56 S12-S09
      8  311  836 (S17E50 L=  3)   342     49        0 ( 292/ 812- 335/ 861) -45.0 E51-E47 S18-S15
      9  606  758 (S19E25 L= 28)   559    151        1 ( 581/ 690- 642/ 811)  63.4 E27-E22 S23-S15
     10 1618  648 (S17W46 L= 99)  1050    233        0 (1530/ 575-1687/ 725)  50.7 W40-W50 S22-S11
     11  693  638 (S26E19 L= 34)   341     90        0 ( 659/ 617- 742/ 661)  -9.5 E21-E15 S26-S24
     12 1770  547 (S23W70 L=123)   764     71        1 (1748/ 513-1796/ 576)  68.2 W65-W73 S25-S20
     13 1430  490 (S29W36 L= 89)   479    102        1 (1382/ 469-1479/ 517)  23.2 W32-W39 S30-S26
  

    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