Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  426 1664 (N38E67 L=171)  1181     95        3 ( 409/1615- 447/1716) -17.7 E81-E59 N34-N41
      2  707 1532 (N32E28 L=209)  1475    377        1 ( 626/1394- 808/1616) -31.8 E38-E17 N23-N37
      3 1697 1485 (N37W55 L=293)   859    113        0 (1655/1438-1739/1526) -45.0 W50-W58 N33-N39
      4  996 1327 (N21E04 L=233)   197     75        0 ( 971/1306-1028/1359) -36.9 E06-E02 N19-N22
      5 1573 1125 (N12W36 L=273)   951    247        3 (1449/1057-1647/1191) -11.3 W26-W41 N07-N15
      6 1653  916 (S01W43 L=281)  1043    177        1 (1594/ 887-1732/ 956)  14.0 W38-W50 S02-N01
      7 1748  857 (S04W53 L=290)   573     38        1 (1725/ 829-1777/ 885) -63.4 W50-W55 S05-S01
      8 1681  761 (S10W48 L=286)   329     55        0 (1658/ 738-1706/ 781) -36.9 W46-W51 S11-S08
      9 1519  731 (S13W35 L=273)   761    214        1 (1464/ 683-1572/ 769)  29.7 W31-W39 S15-S10
     10 1401  679 (S17W28 L=265)   546    130        1 (1369/ 640-1440/ 715) -26.6 W25-W31 S19-S14
     11 1606  671 (S16W44 L=281)   468    101        1 (1565/ 648-1642/ 699)  -8.1 W40-W47 S17-S14
     12  788  628 (S25E13 L=225)   395     87        2 ( 745/ 614- 836/ 644)   0.0 E15-E09 S26-S23
     13 1574  532 (S26W46 L=284)   373     87        0 (1545/ 494-1595/ 568)  78.7 W44-W47 S28-S22
     14  731  471 (S37E17 L=220)   264     55        1 ( 701/ 454- 758/ 494)  21.8 E20-E15 S38-S35
     15  528  315 (S54E48 L=189)   589     55        1 ( 511/ 285- 548/ 345)  26.6 E57-E43 S57-S50
  

    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