Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  752 1767 (N62W09 L=318)   501    116        1 ( 700/1746- 814/1787) -12.1 W02-W16 N59-N64
      2  609 1714 (N63E11 L=298)   334     55        0 ( 589/1683- 636/1738)  33.7 E13-E06 N60-N64
      3 1545 1675 (N26W60 L=  9)   963    230        0 (1446/1655-1641/1699) -15.3 W50-W72 N22-N28
      4 1095 1661 (N40W27 L=336)   405     36        0 (1068/1637-1124/1684)   0.0 W24-W30 N38-N41
      5  961 1616 (N42W16 L=325)   254     61        1 ( 930/1596- 996/1639)   0.0 W13-W19 N40-N42
      6 1320 1503 (N24W33 L=342)   373     89        0 (1276/1472-1367/1523)  -7.1 W28-W36 N22-N24
      7 1655 1494 (N13W56 L=  5)   346     58        1 (1633/1466-1675/1520) -90.0 W53-W57 N11-N14
      8 1395 1431 (N18W34 L=343)   473    167        0 (1351/1372-1420/1491)  45.0 W29-W36 N15-N21
      9 1889 1225 (S09W67 L= 16)   520     63        1 (1876/1190-1906/1255) -90.0 W64-W69 S11-S07
     10  309 1114 (N28E46 L=263)  1048    221        1 ( 227/1045- 405/1172) -32.9 E55-E38 N22-N33
     11 1827 1120 (S12W55 L=  4)   497     55        1 (1808/1085-1843/1148) -90.0 W53-W57 S14-S10
     12 1652  885 (S19W34 L=343)  1892    400        4 (1564/ 751-1734/1067)  34.4 W25-W44 S24-S11
     13  194  812 (N13E64 L=245)  1199    185        1 ( 142/ 754- 255/ 874) -36.0 E70-E58 N08-N16
     14 1119  768 (S10E01 L=308)   674    136        1 (1090/ 691-1147/ 840)  58.0 E04-W01 S14-S06
     15 1540  723 (S25W23 L=332)   302     53        1 (1516/ 697-1564/ 742) -56.3 W21-W24 S26-S23
     16 1080  537 (S23E10 L=299)   285     93        0 (1058/ 512-1115/ 584) -80.5 E11-E08 S25-S19
     17 1216  456 (S32E05 L=304)   717    116        2 (1162/ 429-1278/ 484) -14.0 E08-W00 S34-S29
     18 1006  319 (S36E24 L=285)  1660    253        3 ( 892/ 272-1127/ 388)   2.9 E33-E13 S37-S33
     19  560  325 (S24E55 L=254)   668    120        2 ( 533/ 287- 593/ 354)  51.3 E59-E50 S26-S21
     20  746  157 (S41E60 L=249)   642     62        1 ( 722/ 131- 760/ 184)  14.0 E70-E54 S43-S38
  

    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