Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  887 1291 (N23E01 L= 82)   595    146        1 ( 806/1259- 941/1334) -14.0 E06-W02 N21-N25
      2  971 1307 (N22W04 L= 88)   206     45        0 ( 952/1286- 991/1326) -71.6 W03-W05 N20-N23
      3 1195 1082 (N04W11 L= 94)   215     83        2 (1154/1070-1236/1101) -11.3 W08-W13 N02-N05
      4 1790  860 (S26W47 L=130)  1812    489        2 (1694/ 686-1880/1101)  38.4 W36-W60 S33-S14
      5 1698 1048 (S12W42 L=125)   247     37        1 (1678/1023-1711/1075)  71.6 W40-W42 S13-S10
      6 1750  973 (S18W44 L=128)   899    223        2 (1686/ 894-1822/1054)  18.4 W37-W52 S20-S15
      7  324  971 (N18E46 L= 37)  1931    402        1 ( 180/ 940- 534/1029) -17.9 E60-E29 N13-N23
      8  725  929 (N07E19 L= 64)   661    229        2 ( 694/ 863- 759/1000)  54.5 E22-E15 N03-N10
      9  562  835 (N05E31 L= 52)   333     94        0 ( 518/ 815- 611/ 855) -38.7 E33-E28 N02-N06
     10  186  769 (N09E66 L= 17)   606     81        1 ( 166/ 731- 212/ 815) -90.0 E68-E63 N06-N11
     11  543  666 (S04E38 L= 46)   868    237        3 ( 461/ 607- 619/ 770)  18.4 E44-E29 S06-N00
     12 1579  492 (S44W24 L=108)   434     83        0 (1539/ 473-1624/ 512) -29.1 W20-W29 S46-S40
     13 1245  339 (S43E07 L= 77)  1096    299        5 (1116/ 267-1368/ 418)   7.1 E19-W05 S46-S40
     14  942  206 (S44E36 L= 47)   601     94        0 ( 894/ 185- 996/ 222)  -6.3 E41-E31 S45-S42
  

    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