Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  580 1574 (N28E43 L=242)  1308    253        2 ( 529/1471- 659/1668) -86.2 E45-E40 N20-N35
      2 1543 1552 (N43W34 L=319)   417     62        0 (1516/1525-1567/1578) -36.9 W32-W37 N40-N44
      3 1801 1295 (N28W58 L=343)   744    139        0 (1770/1225-1832/1339) -50.2 W54-W61 N24-N31
      4 1601 1148 (N16W37 L=321)   404     94        1 (1565/1112-1638/1190) -38.7 W33-W39 N14-N18
      5  225  987 (S13E58 L=227)  2212    290        7 ( 180/ 853- 274/1098)  82.4 E64-E53 S21-S06
      6  278  821 (S23E53 L=232)   578     73        1 ( 255/ 783- 298/ 860)  51.3 E56-E50 S25-S20
      7 1670  801 (S04W47 L=332)   347     74        1 (1649/ 761-1683/ 839)  90.0 W44-W48 S06-S01
      8  817  693 (S23E08 L=276)   257     68        1 ( 793/ 664- 839/ 729) -36.9 E10-E06 S24-S21
      9 1761  643 (S13W62 L=347)  1005    125        3 (1728/ 589-1787/ 692) -81.9 W59-W65 S16-S09
     10 1691  636 (S14W55 L=340)   831    170        2 (1637/ 574-1720/ 674) -26.6 W48-W59 S17-S11
     11 1763  568 (S17W68 L=353)  1529    171        4 (1717/ 522-1814/ 621)  60.3 W62-W73 S20-S13
     12 1660  555 (S19W56 L=341)   364     63        0 (1629/ 534-1689/ 572)  36.9 W53-W58 S21-S18
     13 1110  514 (S31W14 L=299)  1386    436        0 ( 906/ 468-1298/ 563)  24.8 W00-W26 S36-S24
     14 1608  479 (S25W55 L=340)   829    119        3 (1557/ 455-1659/ 509)   0.0 W49-W62 S26-S23
     15 1312  263 (S47W45 L=330)  1954    203        4 (1224/ 231-1413/ 303)  31.6 W37-W52 S50-S41
  

    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