Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1298 1736 (N46W20 L= 98)   380     50        0 (1279/1708-1313/1772)  63.4 W17-W22 N43-N49
      2 1441 1653 (N40W31 L=109)   338     32        0 (1427/1624-1461/1676)  59.0 W28-W33 N37-N42
      3 1645 1488 (N29W45 L=123)   351     84        0 (1611/1444-1673/1523) -59.0 W42-W46 N26-N31
      4 1529 1472 (N27W34 L=112)   344     46        0 (1501/1448-1554/1494) -26.6 W31-W35 N25-N28
      5  256 1304 (N12E57 L= 21)  1031    260        0 ( 228/1173- 298/1413)  90.0 E59-E55 N03-N18
      6 1866 1186 (N11W63 L=141)   838     74        2 (1834/1154-1896/1222) -53.1 W58-W67 N09-N13
      7 1825 1115 (N07W57 L=135)   862     85        4 (1793/1065-1861/1151)  59.0 W53-W61 N03-N08
      8 1116  876 (S13W06 L= 85)   312    153        1 (1061/ 819-1161/ 938)  58.0 W03-W08 S16-S08
      9  975  885 (S13E02 L= 76)   285    126        0 ( 926/ 859-1030/ 911)  31.0 E05-W00 S14-S10
     10  188  803 (S19E65 L= 13)  2121    268        2 ( 135/ 717- 271/ 888)  32.0 E76-E53 S23-S13
     11 1149  753 (S20W09 L= 88)   595    128        2 (1092/ 698-1192/ 819)  76.0 W05-W12 S23-S15
     12  881  740 (S22E08 L= 70)   596    179        0 ( 807/ 710- 965/ 772) -16.7 E12-E02 S23-S20
     13 1624  719 (S19W44 L=122)   493     98        0 (1580/ 692-1663/ 753)  45.0 W40-W46 S21-S16
     14 1282  521 (S35W22 L=100)   520     95        2 (1255/ 487-1318/ 556) -21.8 W19-W24 S37-S32
     15 1013  170 (S68W07 L= 86)   579     48        0 ( 984/ 146-1041/ 197) -24.4 W02-W13 S71-S64
  

    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