Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1103 1855 (N62E18 L=108)  1322    164        4 (1041/1808-1179/1896)  -9.9 E30-E06 N57-N66
      2  769 1766 (N44E41 L= 86)  1233    206        5 ( 682/1705- 849/1804)  -7.4 E52-E29 N40-N46
      3  374 1544 (N21E61 L= 65)   415     54        1 ( 349/1522- 401/1565)  36.9 E63-E58 N19-N22
      4  926 1386 (N20E12 L=114)   627    189        0 ( 865/1326- 981/1448) -26.6 E17-E07 N17-N23
      5  917 1286 (N14E11 L=116)   215    143        1 ( 868/1249- 967/1308)  33.7 E13-E07 N10-N15
      6 1855 1166 (N22W62 L=189)   914    139        1 (1831/1092-1875/1232) -71.6 W58-W65 N17-N26
      7  150  996 (S16E69 L= 57)   644     88        2 ( 134/ 962- 170/1039) -63.4 E72-E65 S17-S13
      8  194  835 (S25E64 L= 63)   846    163        0 ( 150/ 788- 236/ 904)  26.6 E74-E56 S29-S20
      9  847  819 (S15E08 L=119)   246     35        0 ( 825/ 802- 872/ 839)   0.0 E09-E05 S16-S14
     10  544  737 (S26E28 L= 99)   419    161        0 ( 489/ 683- 596/ 793)  48.4 E32-E23 S30-S21
     11 1713  647 (S12W57 L=183)   427     64        0 (1694/ 625-1740/ 676) -45.0 W54-W59 S13-S09
     12 1765  564 (S16W69 L=195)  1322    139        1 (1735/ 506-1821/ 599)  40.6 W62-W76 S19-S13
     13  714  229 (S66E14 L=112)   577     79        0 ( 681/ 209- 759/ 254)  -4.8 E19-E07 S67-S63
  

    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