Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  707 1750 (N61W01 L=123)   376     80        1 ( 686/1716- 736/1779)  29.7 E02-W05 N58-N62
      2 1145 1580 (N33W25 L=147)   661    116        1 (1083/1542-1200/1606) -50.2 W21-W27 N29-N36
      3  688 1570 (N46E07 L=115)   282     59        0 ( 655/1550- 727/1587)   0.0 E10-E03 N45-N47
      4 1360 1506 (N22W35 L=157)   303    115        1 (1323/1472-1411/1540)   6.3 W30-W39 N21-N23
      5  630 1188 (N23E20 L=103)   284    119        0 ( 609/1130- 652/1234)  81.9 E20-E18 N19-N26
      6  204 1103 (N28E58 L= 64)  1610    225        5 ( 138/1011- 263/1172)  29.7 E68-E50 N23-N31
      7  844 1029 (N09E10 L=112)   249    121        0 ( 807/ 975- 863/1082)  33.7 E13-E07 N07-N11
      8 1848  962 (S22W55 L=177)   883    102        1 (1829/ 915-1875/1005) -60.3 W52-W58 S25-S18
      9 1855  805 (S32W56 L=178)   632    123        0 (1808/ 773-1901/ 856)   4.4 W49-W63 S33-S30
     10  767  671 (S09E24 L= 98)   398     99        0 ( 743/ 632- 790/ 723)  38.7 E26-E21 S10-S06
     11 1616  583 (S38W29 L=151)  1509    318        3 (1473/ 514-1732/ 672)   0.0 W15-W40 S40-S35
     12  819  401 (S27E31 L= 91)   797    122        2 ( 768/ 377- 887/ 439) -45.0 E34-E27 S29-S23
     13  627  346 (S26E48 L= 74)   519    124        2 ( 585/ 308- 684/ 372)   9.5 E53-E41 S27-S24
  

    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