Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1218 1840 (N58W46 L=119)   428     53        1 (1201/1811-1234/1871)  22.6 W41-W53 N55-N60
      2  837 1735 (N57E04 L= 69)   668    174        2 ( 768/1704- 915/1759)   3.6 E11-W05 N55-N59
      3  667 1716 (N59E24 L= 48)   386     59        1 ( 636/1694- 702/1735)   7.1 E28-E19 N56-N60
      4  891 1373 (N29E04 L= 69)   428    178        2 ( 834/1298- 923/1424) -60.9 E07-E02 N24-N33
      5  672 1340 (N30E20 L= 53)   297    142        0 ( 639/1303- 728/1396) -49.4 E22-E15 N26-N33
      6  153 1192 (N24E71 L=  1)   786    107        0 ( 141/1156- 168/1257) -36.9 E75-E67 N21-N27
      7  276 1157 (N22E53 L= 19)   693    135        2 ( 257/1095- 295/1212)  82.9 E55-E51 N17-N25
      8 1827  998 (S09W57 L=129)   419     75        3 (1802/ 974-1852/1019)  26.6 W53-W59 S10-S07
      9  680  847 (S00E23 L= 49)   371    167        0 ( 618/ 819- 758/ 892) -26.6 E26-E18 S02-N02
     10 1764  660 (S29W52 L=124)  2132    338        3 (1641/ 572-1862/ 746)  11.8 W39-W65 S33-S25
     11 1295  386 (S40W10 L= 83)   426     80        1 (1252/ 362-1338/ 413)   0.0 W06-W13 S41-S38
     12 1131  330 (S42E04 L= 69)   412     77        0 (1102/ 312-1169/ 355)   9.5 E06-W00 S43-S39
     13  953  245 (S47E21 L= 51)  1199    128        2 ( 890/ 211-1025/ 277)   4.1 E28-E14 S49-S43
     14  798  181 (S51E43 L= 30)   766     48        0 ( 781/ 147- 815/ 211)  29.7 E52-E37 S55-S47
  

    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