Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  583 1573 (N29E41 L= 53)  1317    468        4 ( 507/1433- 656/1691) -35.5 E53-E31 N20-N35
      2  918 1604 (N36E17 L= 76)  1035    251        2 ( 873/1488- 951/1688) -60.3 E23-E12 N27-N42
      3 1729 1557 (N46W55 L=149)   585    186        0 (1700/1531-1749/1587)  29.1 W50-W59 N43-N48
      4  299 1454 (N17E62 L= 32)  3363    485        7 ( 252/1291- 337/1586) -50.2 E69-E52 N07-N25
      5  945 1310 (N17E09 L= 85)   543    233        1 ( 867/1261- 999/1392)  20.6 E13-E05 N13-N21
      6  729 1265 (N11E22 L= 72)   230     70        0 ( 706/1241- 753/1286) -26.6 E23-E19 N09-N12
      7  529 1205 (N05E34 L= 60)   329    114        1 ( 472/1189- 571/1226)  26.6 E38-E31 N03-N06
      8 1589 1141 (N15W36 L=129)   394     91        2 (1566/1108-1612/1175) -36.9 W33-W37 N12-N17
      9 1332 1068 (N07W18 L=112)   373    149        0 (1301/ 990-1356/1130) -58.0 W15-W20 N02-N10
     10 1548 1056 (N09W33 L=127)   257    119        0 (1516/1031-1604/1091) -15.9 W30-W37 N07-N11
     11  163 1044 (S10E66 L= 28)   564    166        2 ( 124/1027- 195/1058)  10.3 E72-E61 S10-S08
     12  317  878 (S18E47 L= 47)   465    140        2 ( 287/ 823- 354/ 927)  49.4 E50-E44 S21-S14
     13 1208  788 (S11W14 L=108)   268     84        0 (1176/ 768-1253/ 821) -21.8 W12-W17 S12-S09
     14 1584  681 (S13W43 L=136)   590    106        2 (1549/ 641-1608/ 715) -33.7 W39-W45 S15-S10
     15  800  450 (S40E08 L= 86)   520    105        2 ( 754/ 424- 846/ 479)  23.2 E11-E04 S42-S37
  

    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