Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  783 1825 (N38E50 L=149)   559     76        2 ( 747/1806- 827/1842)   6.3 E54-E45 N35-N38
      2  673 1721 (N27E48 L=151)   597     53        1 ( 644/1695- 714/1745)   9.5 E51-E44 N25-N28
      3  951 1721 (N35E29 L=170)   295     65        0 ( 921/1694- 975/1741)  -9.5 E31-E25 N33-N36
      4  509 1660 (N19E57 L=142)   454    121        0 ( 467/1626- 560/1698)  74.1 E58-E55 N15-N22
      5  673 1520 (N14E36 L=163)   538    114        1 ( 647/1464- 707/1569) -60.3 E37-E33 N10-N17
      6 1639 1362 (N33W31 L=230)   674    176        0 (1593/1288-1662/1439) -45.0 W25-W33 N28-N37
      7  552 1284 (S03E35 L=164)  1174    270        2 ( 478/1188- 605/1406)  85.9 E37-E32 S09-N05
      8  388 1294 (S06E48 L=152)   826    157        1 ( 369/1212- 410/1368) -52.1 E51-E44 S10-S01
      9  238 1282 (S09E62 L=137)   713    141        0 ( 203/1215- 278/1336)  58.0 E64-E59 S13-S05
     10 1219 1222 (N11W05 L=205)   336     93        0 (1187/1184-1261/1255) -21.8 W03-W08 N10-N12
     11  618  975 (S18E23 L=176)   681    260        1 ( 535/ 898- 712/1074)  63.4 E26-E18 S24-S10
     12 1225  783 (S13W18 L=217)   682    251        3 (1136/ 741-1309/ 824)  52.1 W13-W22 S17-S08
     13  937  645 (S29W06 L=205)  1140    363        0 ( 807/ 608-1112/ 711)  17.5 E03-W16 S31-S23
     14  787  373 (S52W07 L=207)   828    202        0 ( 696/ 346- 879/ 416)   6.3 E02-W16 S54-S49
  

    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