Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1336 1709 (N52W18 L=212)   377     66        2 (1300/1695-1371/1725)   8.1 W14-W21 N50-N54
      2  461 1578 (N28E51 L=143)   719    129        2 ( 433/1526- 491/1633) -82.9 E53-E48 N24-N32
      3  736 1387 (N19E24 L=170)   630    228        0 ( 709/1282- 764/1489) -72.9 E25-E20 N13-N26
      4  330 1457 (N19E58 L=136)   388     95        2 ( 301/1441- 360/1472)   9.5 E61-E55 N17-N19
      5 1625 1405 (N32W40 L=234)   411     81        2 (1600/1371-1648/1434)  78.7 W37-W42 N29-N34
      6 1709 1383 (N32W47 L=241)   657     89        1 (1682/1351-1751/1413) -26.6 W45-W51 N29-N33
      7 1546 1060 (N09W33 L=227)   303     63        1 (1520/1027-1573/1096) -36.9 W31-W35 N07-N10
      8 1805 1032 (N10W56 L=250)   629    129        2 (1779/ 963-1827/1076) -74.1 W53-W58 N05-N12
      9  308  871 (S17E49 L=145)  1826    486       12 ( 216/ 756- 416/ 970) -11.3 E58-E38 S25-S12
     10 1746  673 (S12W57 L=251)  4634    680       15 (1648/ 566-1829/ 814)  83.3 W48-W66 S20-S03
     11  504  753 (S22E32 L=162)   401    112        2 ( 463/ 728- 545/ 792)  23.2 E35-E28 S24-S19
     12 1059  678 (S20W07 L=200)   241    122        0 (1005/ 661-1118/ 714) -14.0 W02-W10 S20-S18
     13 1411  555 (S24W33 L=227)   883    194        3 (1345/ 493-1496/ 622)  55.0 W29-W37 S28-S18
     14  792  488 (S37E10 L=184)   534     88        0 ( 750/ 463- 830/ 518)  38.7 E13-E06 S38-S34
     15 1324  297 (S44W38 L=232)   364     55        2 (1303/ 275-1348/ 317) -11.3 W36-W41 S46-S42
  

    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