Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1153 1740 (N45W07 L= 98)   324     50        2 (1128/1719-1177/1765)  45.0 W05-W09 N42-N47
      2  469 1719 (N41E56 L= 34)   869     86        0 ( 441/1691- 505/1752) -18.4 E66-E48 N38-N44
      3 1319 1720 (N44W22 L=112)   426     36        1 (1289/1700-1348/1738)   9.5 W18-W24 N42-N46
      4 1376 1491 (N27W22 L=113)   647    221        0 (1317/1423-1452/1578) -51.3 W18-W27 N22-N32
      5  239 1476 (N23E68 L= 23)   681     96        0 ( 215/1431- 267/1514)  59.0 E70-E64 N20-N26
      6 1808 1345 (N20W58 L=149)  1554    288        3 (1760/1204-1845/1444) -78.7 W55-W62 N11-N26
      7  238 1283 (N11E58 L= 32)   444     76        0 ( 225/1243- 251/1322) -59.0 E60-E56 N08-N13
      8 1766 1228 (N12W51 L=142)   385     57        1 (1738/1193-1789/1255) -21.8 W48-W53 N10-N14
      9 1708 1160 (N08W45 L=136)   402     86        2 (1678/1133-1730/1203)  53.1 W42-W47 N06-N10
     10 1819 1108 (N06W56 L=146)   952    167        4 (1761/1074-1876/1160)   8.7 W49-W62 N03-N09
     11 1834 1003 (S01W58 L=148)  1235    172        1 (1807/ 944-1865/1069)  54.5 W55-W61 S04-N03
     12  777  879 (S14E15 L= 76)   397    154        1 ( 731/ 821- 837/ 914)  39.8 E17-E11 S17-S11
     13  983  777 (S19E02 L= 89)   434     69        1 ( 958/ 739-1016/ 824)  78.7 E03-W00 S21-S16
     14  936  733 (S22E05 L= 86)   189     68        0 ( 897/ 715- 968/ 750) -11.3 E07-E02 S23-S20
     15 1133  538 (S34W10 L=101)   425     73        0 (1097/ 516-1166/ 562) -21.8 W07-W12 S35-S32
  

    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