Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1360 1708 (N49W00 L=336)   786     93        2 (1330/1669-1394/1745) -39.8 E03-W04 N45-N52
      2  918 1623 (N27E25 L=311)   322    123        0 ( 883/1572- 947/1676) -29.1 E30-E21 N24-N29
      3  719 1624 (N22E38 L=298)   396     68        2 ( 697/1593- 747/1653) -31.0 E40-E35 N19-N23
      4  576 1565 (N14E45 L=291)   945    209        1 ( 511/1490- 636/1652) -85.2 E47-E42 N08-N20
      5 1623 1491 (N42W28 L=  4)  2533    410        3 (1465/1377-1782/1578)  -1.7 W12-W47 N38-N45
      6 1096 1410 (N19E07 L=329)   590    269        0 (1072/1287-1125/1526) -72.6 E10-E04 N10-N26
      7 1407 1255 (N19W16 L=352)   572    348        0 (1298/1112-1456/1338) -31.0 W07-W22 N11-N21
      8  211 1153 (S17E61 L=275)  1117    171        3 ( 175/1086- 233/1236) -77.5 E65-E58 S21-S12
      9 1576 1154 (N18W29 L=  5)   513     68        1 (1555/1106-1592/1196) -59.0 W27-W31 N15-N20
     10  962  711 (S24W06 L=341)  1304    403        2 ( 901/ 609-1101/ 866) -29.4 W00-W16 S28-S15
     11  573  707 (S36E20 L=316)   721    279        1 ( 455/ 687- 708/ 728)  24.2 E30-E10 S39-S30
     12 1156  640 (S22W19 L=355)   210     94        1 (1110/ 624-1206/ 654)  45.0 W16-W21 S24-S20
     13  703  555 (S42E07 L=329)   625    168        1 ( 637/ 526- 770/ 599)  48.4 E11-E02 S45-S36
     14 1600  447 (S19W60 L= 36)   747    149        2 (1533/ 419-1666/ 471)  37.9 W55-W65 S22-S15
  

    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