Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1764 1493 (N26W71 L=268)  1226    134        2 (1715/1443-1814/1537) -28.6 W64-W77 N22-N29
      2 1022 1445 (N32W03 L=200)   432    182        0 ( 945/1404-1098/1462) -26.6 E02-W08 N28-N33
      3 1734 1431 (N23W61 L=258)   541     71        2 (1701/1401-1758/1459)  76.0 W56-W63 N20-N24
      4  895 1375 (N28E06 L=191)   411    127        0 ( 871/1311- 921/1432) -82.9 E07-E04 N23-N31
      5  335 1391 (N31E54 L=143)   355     79        0 ( 303/1364- 377/1411)  23.2 E57-E49 N29-N32
      6  253 1352 (N29E63 L=134)   843    111        0 ( 240/1294- 272/1401) -60.3 E66-E60 N24-N31
      7 1308 1351 (N23W22 L=219)   272    107        0 (1260/1322-1350/1373) -33.7 W18-W24 N20-N24
      8 1654 1245 (N13W46 L=243)  1010    243        1 (1617/1151-1692/1357)  53.1 W41-W52 N07-N19
      9 1876 1081 (S00W66 L=264)   773     75        0 (1836/1050-1907/1103) -18.4 W61-W71 S02-N01
     10 1756  857 (S12W51 L=248)   556     26        1 (1732/ 829-1782/ 881)  76.0 W48-W53 S14-S10
     11 1590  682 (S22W37 L=234)   837    177        2 (1513/ 626-1653/ 738)  20.0 W31-W42 S24-S18
     12 1412  652 (S22W23 L=220)   936    195        0 (1377/ 565-1462/ 717)  63.4 W21-W26 S27-S17
     13 1669  644 (S25W45 L=242)   828    149        0 (1620/ 580-1714/ 703)  48.8 W41-W49 S29-S21
     14  723  587 (S21E24 L=174)   523    145        0 ( 655/ 550- 785/ 623)  20.0 E29-E18 S23-S18
     15 1328  298 (S50W21 L=219)   543     59        0 (1304/ 270-1352/ 322)  45.0 W19-W23 S52-S46
  

    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