Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  374 1564 (N29E63 L=212)  2268    287        4 ( 336/1458- 413/1667) -24.1 E82-E51 N22-N35
      2  569 1428 (N22E36 L=238)   392     61        1 ( 546/1394- 591/1459)  76.0 E37-E34 N19-N24
      3 1061  981 (S01W03 L=277)   587    135        1 ( 998/ 955-1117/1034)   0.0 E01-W06 S02-N02
      4 1559  973 (N03W35 L=310)   429     83        1 (1527/ 946-1588/1002)  36.9 W32-W37 N01-N04
      5  180  847 (S18E66 L=208)  1827    157        2 ( 159/ 768- 210/ 926)  61.4 E72-E61 S23-S12
      6  939  819 (S12E03 L=271)   383     97        1 ( 891/ 782- 972/ 839) -21.8 E06-E01 S13-S10
      7 1754  757 (S09W56 L=330)   830    149        0 (1704/ 687-1801/ 798)  45.0 W52-W60 S13-S06
      8  838  758 (S17E09 L=265)   303     61        1 ( 802/ 732- 859/ 792)  45.0 E11-E07 S18-S14
      9 1119  716 (S17W09 L=283)   515    177        1 (1039/ 694-1187/ 763) -11.3 W03-W13 S17-S14
     10  337  710 (S25E49 L=226)   379    112        0 ( 288/ 699- 387/ 738)  20.0 E54-E43 S26-S22
     11 1503  656 (S17W36 L=311)   884    193        1 (1453/ 616-1554/ 701)  39.8 W32-W39 S19-S13
     12 1730  639 (S17W58 L=332)  1052    100        3 (1685/ 611-1778/ 671)   5.2 W52-W63 S18-S14
     13  944  497 (S33E00 L=274)   387     68        0 ( 908/ 476- 986/ 515)  26.6 E02-W02 S34-S31
  

    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