Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  728 1754 (N62W06 L= 18)   436     62        1 ( 706/1725- 757/1777)   7.1 W02-W10 N59-N64
      2 1142 1718 (N42W35 L= 47)   794    137        1 (1075/1678-1197/1751) -63.4 W32-W38 N38-N46
      3  682 1697 (N59E02 L= 10)   430     83        1 ( 645/1665- 704/1723) -45.0 E06-W00 N55-N61
      4 1522 1694 (N27W61 L= 73)   862    126        0 (1455/1671-1589/1709) -31.0 W55-W67 N23-N30
      5  582 1639 (N58E16 L=357)   819     90        1 ( 541/1600- 622/1673)  26.6 E20-E09 N55-N60
      6  394 1548 (N57E41 L=331)   902    175        2 ( 342/1490- 471/1598)  16.4 E48-E30 N52-N58
      7 1201 1532 (N29W27 L= 39)   332     34        0 (1177/1512-1227/1555) -14.0 W25-W29 N27-N31
      8 1377 1479 (N21W35 L= 48)   585    141        3 (1317/1448-1433/1501) -35.5 W31-W39 N17-N23
      9 1483 1474 (N17W42 L= 54)   326     60        2 (1457/1439-1506/1499) -78.7 W41-W44 N14-N19
     10 1254 1356 (N18W23 L= 35)   520    231        1 (1156/1334-1375/1386) -33.7 W17-W29 N13-N22
     11  328 1130 (N29E45 L=327)   350     83        1 ( 288/1111- 356/1164)   9.5 E48-E41 N28-N30
     12 1519  664 (S29W20 L= 33)  1104    314        0 (1405/ 600-1631/ 749)   3.0 W11-W30 S31-S25
     13 1254  325 (S44E08 L=  4)  1249    209        2 (1178/ 279-1341/ 388)  11.3 E15-W00 S46-S41
     14  933  218 (S42E37 L=335)   912    171        0 ( 889/ 178- 996/ 282)  79.7 E41-E34 S46-S35
  

    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