Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1300 1764 (N39W50 L= 25)   946    144        1 (1222/1745-1374/1778) -31.0 W43-W55 N36-N42
      2  625 1701 (N61E09 L=326)   336     37        0 ( 600/1682- 644/1721)  -9.5 E12-E06 N59-N63
      3 1649 1649 (N21W68 L= 43)   802     77        1 (1611/1613-1681/1676) -71.6 W65-W71 N17-N23
      4 1302 1621 (N31W38 L= 13)   371     88        0 (1258/1587-1345/1656)   5.7 W33-W43 N30-N32
      5 1392 1526 (N23W38 L= 13)   942    360        0 (1258/1482-1528/1550) -32.0 W29-W46 N17-N27
      6  835 1519 (N40W03 L=338)   446     91        1 ( 797/1497- 881/1539) -26.6 W00-W06 N37-N41
      7 1791 1482 (N07W70 L= 44)   668     66        4 (1769/1441-1811/1518)  38.7 W66-W73 N05-N09
      8  408 1374 (N43E35 L=299)   674    119        0 ( 366/1336- 460/1418) -38.7 E40-E30 N38-N46
      9 1000 1297 (N22W06 L=341)   612    274        1 ( 938/1226-1078/1336) -40.6 W01-W09 N17-N24
     10 1798 1247 (S04W56 L= 31)   767    134        2 (1769/1184-1837/1296)  24.0 W51-W61 S07-S02
     11  134 1031 (N26E69 L=265)  1345    134        3 ( 102/ 978- 173/1092) -33.7 E76-E63 N22-N30
     12 1311  715 (S19W08 L=343)   548    169        1 (1268/ 630-1339/ 779)  53.1 W03-W10 S22-S14
     13  740  624 (S09E27 L=308)   740    202        0 ( 711/ 539- 782/ 723)  45.0 E31-E21 S13-S03
     14  745  424 (S21E35 L=300)   241     94        1 ( 733/ 384- 762/ 468)  56.3 E37-E31 S24-S18
     15  846  270 (S34E38 L=297)  2620    413        3 ( 680/ 182-1012/ 394)   9.5 E61-E19 S38-S30
  

    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