Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1137 1640 (N37W20 L=239)   338     30        0 (1111/1616-1163/1663)  14.0 W18-W22 N35-N38
      2 1521 1639 (N29W50 L=269)   387     60        0 (1483/1614-1551/1657) -36.9 W47-W51 N27-N31
      3  704 1399 (N28E14 L=204)   588     98        1 ( 663/1351- 753/1439)  39.8 E17-E10 N25-N30
      4  515 1314 (N26E29 L=190)  1135    219        1 ( 430/1242- 603/1379)  24.8 E35-E21 N22-N29
      5  286 1323 (N31E50 L=169)  1756    224        1 ( 185/1292- 391/1368) -14.5 E66-E39 N27-N35
      6 1782 1028 (S11W51 L=270)   453     95        0 (1739/ 994-1814/1061)  14.0 W46-W54 S12-S09
      7 1725  921 (S17W45 L=264)   282     10        0 (1707/ 903-1745/ 938)  18.4 W43-W46 S17-S15
      8 1300  824 (S15W13 L=232)   235     70        0 (1264/ 803-1337/ 840)   0.0 W10-W15 S16-S14
      9  754  778 (S09E20 L=199)   253     68        0 ( 732/ 745- 783/ 808)  21.8 E22-E17 S11-S07
     10 1486  742 (S24W25 L=244)   438     97        0 (1468/ 691-1510/ 792) -74.1 W23-W26 S27-S20
     11 1587  711 (S27W33 L=252)   548    101        0 (1539/ 684-1638/ 746)   7.1 W28-W37 S28-S25
     12 1278  694 (S23W10 L=229)   240     64        0 (1248/ 673-1316/ 708)   0.0 W08-W12 S23-S22
     13  410  492 (S21E55 L=164)   498    159        0 ( 329/ 473- 461/ 524)   0.0 E64-E48 S22-S19
  

    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