Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  847 1774 (N58W19 L=342)  3212    471        5 ( 677/1646-1022/1914)   6.8 E04-W58 N53-N62
      2 1583 1680 (N24W66 L= 29)   919    116        2 (1543/1641-1626/1726)  63.4 W61-W70 N21-N27
      3  918 1409 (N30W05 L=328)   374    118        1 ( 870/1376- 950/1463)  23.2 W00-W08 N28-N33
      4  251 1254 (N38E54 L=269)   585     70        2 ( 207/1233- 294/1270)  -8.7 E61-E48 N36-N40
      5 1580  850 (S20W29 L=351)   463     97        0 (1566/ 796-1595/ 900)  63.4 W26-W30 S22-S16
      6 1416  730 (S22W15 L=338)   343    147        1 (1372/ 669-1450/ 791)  35.5 W10-W18 S24-S18
      7 1710  643 (S38W38 L=  0)   362     42        2 (1684/ 623-1731/ 668)  14.0 W34-W40 S39-S36
      8 1667  539 (S44W33 L=356)  1362    283        2 (1561/ 479-1787/ 622)   2.1 W21-W48 S47-S41
      9 1493  503 (S40W16 L=339)  1453    268        2 (1452/ 429-1556/ 603)  63.4 W12-W21 S46-S33
     10 1083  463 (S28E13 L=310)   520    175        0 (1010/ 424-1167/ 509) -59.0 E15-E09 S33-S23
     11  896  444 (S24E25 L=298)   395    148        0 ( 825/ 417- 955/ 475)   0.0 E30-E20 S25-S23
     12  814  352 (S28E35 L=288)   290     86        0 ( 796/ 310- 829/ 390)  45.0 E38-E32 S31-S25
     13  617  368 (S22E48 L=275)   350     90        0 ( 578/ 349- 653/ 381) -31.0 E52-E45 S24-S21
     14  790  270 (S34E43 L=280)   541    134        0 ( 728/ 258- 850/ 286) -26.6 E46-E37 S35-S30
  

    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