Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1584 1699 (N35W59 L=132)   862     73        1 (1547/1669-1615/1735)  13.2 W52-W69 N33-N38
      2  755 1534 (N34E13 L= 60)   262     54        0 ( 724/1513- 781/1549) -26.6 E14-E10 N32-N35
      3  559 1393 (N27E27 L= 45)  1107    339        2 ( 385/1344- 688/1432) -19.8 E42-E17 N22-N31
      4  141 1219 (N21E69 L=  4)  1304    127        2 ( 103/1162- 183/1263) -19.3 E82-E61 N17-N24
      5  448 1164 (N14E36 L= 37)   683    206        0 ( 397/1103- 527/1237)  31.0 E39-E29 N10-N17
      6  487  995 (N03E34 L= 39)   371    142        0 ( 436/ 972- 553/1035) -32.0 E37-E29 N01-N06
      7  555  945 (S00E30 L= 43)   529    181        1 ( 466/ 925- 621/ 978) -10.3 E35-E24 S01-N02
      8 1555  799 (S20W32 L=105)  1253    430        3 (1505/ 620-1633/ 966)  71.6 W28-W38 S31-S10
      9  778  825 (S10E17 L= 55)   283     83        2 ( 744/ 803- 830/ 844)  -9.5 E19-E13 S10-S08
     10  237  714 (S10E61 L= 11)   746     79        1 ( 216/ 670- 264/ 751)  45.0 E65-E58 S12-S07
     11  949  706 (S19E08 L= 64)   213     98        1 ( 910/ 667- 980/ 739)  31.0 E11-E05 S20-S16
     12 1636  649 (S30W40 L=113)   680    173        0 (1562/ 608-1692/ 706)  26.6 W34-W44 S32-S27
     13  973  565 (S28E09 L= 63)   250     69        0 ( 960/ 525- 988/ 601) -90.0 E10-E07 S30-S25
     14  288  507 (S23E68 L=  4)   743     68        1 ( 266/ 473- 308/ 541)  26.6 E74-E63 S25-S21
     15  517  369 (S36E52 L= 20)   471     77        0 ( 493/ 338- 552/ 393)  15.3 E58-E47 S37-S34
  

    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