Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1532 1675 (N48W49 L=249)   632     65        2 (1498/1650-1570/1697)  -6.3 W43-W54 N45-N49
      2 1053 1555 (N37W00 L=201)   360     67        0 (1020/1537-1097/1572)  11.3 E02-W03 N35-N38
      3  340 1500 (N30E60 L=141)   588     73        1 ( 313/1468- 379/1522)  15.9 E62-E55 N27-N31
      4 1115 1492 (N33W05 L=205)   299     58        0 (1090/1457-1143/1520) -53.1 W03-W07 N30-N34
      5 1116 1341 (N23W05 L=205)   284     79        0 (1100/1301-1144/1374)  63.4 W04-W07 N20-N24
      6  197 1158 (N07E63 L=137)   568    130        0 ( 183/1094- 221/1214) -49.4 E66-E59 N03-N10
      7 1517 1099 (N08W32 L=232)   941    285        0 (1436/ 968-1577/1194) -55.3 W26-W36 N00-N14
      8 1680 1055 (N06W44 L=245)   307     69        0 (1650/1036-1719/1080) -18.4 W41-W47 N04-N07
      9 1748  815 (S09W52 L=252)  1035    167        3 (1706/ 740-1784/ 889)  71.6 W48-W55 S13-S04
     10  216  840 (S12E60 L=140)   443     78        0 ( 192/ 819- 248/ 862)  15.9 E63-E56 S13-S10
     11  201  727 (S20E66 L=134)   764     85        1 ( 173/ 691- 223/ 766)  33.7 E73-E61 S22-S16
     12 1657  591 (S24W49 L=249)  1501    199        4 (1590/ 514-1717/ 659)  52.1 W44-W54 S28-S19
     13  719  586 (S26E20 L=181)   443     98        1 ( 676/ 567- 761/ 613) -18.4 E22-E16 S27-S24
     14 1199  217 (S55W23 L=223)  2191    240        6 (1095/ 187-1321/ 250)   6.8 W11-W37 S59-S51
  

    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