Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  881 1806 (N38E36 L=212)   476    116        0 ( 861/1756- 899/1854) -41.6 E42-E32 N33-N42
      2  964 1639 (N28E21 L=227)   796    260        1 ( 910/1596-1041/1713) -21.8 E25-E15 N24-N32
      3  463 1624 (N16E55 L=193)   751    107        1 ( 428/1582- 506/1669)  71.6 E58-E53 N13-N19
      4  583 1534 (N12E41 L=207)   582    211        3 ( 520/1492- 651/1586)  -5.2 E45-E34 N10-N15
      5 1710 1352 (N31W38 L=286)  2245    447        0 (1571/1205-1859/1530) -21.2 W24-W55 N26-N39
      6  690 1041 (S14E20 L=228)   668    219        0 ( 618/ 960- 774/1095)  55.0 E23-E15 S19-S09
      7  251  996 (S25E54 L=194)   433     66        1 ( 232/ 963- 267/1032)  63.4 E55-E52 S26-S22
      8  415  856 (S30E37 L=211)   386    121        2 ( 356/ 838- 479/ 876)  15.3 E42-E31 S31-S27
      9 1358  783 (S12W25 L=273)   547    148        0 (1286/ 749-1422/ 806)  36.9 W21-W29 S15-S09
     10  694  711 (S33E13 L=235)  2235    563        7 ( 481/ 602- 954/ 779)  32.0 E29-W03 S45-S25
     11 1657  422 (S21W67 L=315)   789    130        0 (1600/ 395-1711/ 462)  49.4 W63-W70 S24-S17
     12 1440  447 (S28W46 L=294)   318     91        0 (1388/ 439-1485/ 458)  29.7 W42-W49 S29-S25
     13 1439  276 (S37W63 L=311)   766     67        2 (1410/ 254-1472/ 306)  63.4 W58-W67 S38-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