Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1047 1911 (N60W60 L= 75)   555     52        0 (1028/1884-1062/1939)   8.5 W51-W71 N58-N61
      2  711 1737 (N62W03 L= 19)   530     47        2 ( 688/1712- 742/1764) -45.0 W00-W06 N58-N64
      3 1107 1703 (N43W32 L= 47)   921    158        1 (1034/1657-1178/1738) -60.9 W28-W34 N37-N47
      4  662 1687 (N59E05 L= 11)   318     47        0 ( 644/1663- 683/1710) -68.2 E07-E02 N56-N61
      5 1491 1678 (N28W57 L= 73)   825    133        0 (1409/1662-1551/1691) -22.6 W50-W63 N25-N30
      6  567 1633 (N58E18 L=358)   857    107        2 ( 521/1587- 612/1671)  15.3 E23-E11 N55-N60
      7  345 1518 (N56E49 L=327)   456     59        0 ( 328/1486- 363/1551)  78.7 E51-E46 N53-N58
      8 1160 1512 (N29W24 L= 39)   300     29        1 (1136/1490-1182/1535)   0.0 W22-W25 N27-N30
      9 1340 1455 (N21W32 L= 48)   585    161        1 (1279/1428-1415/1483) -40.6 W28-W35 N17-N23
     10 1237 1327 (N17W21 L= 36)   564    242        0 (1125/1291-1347/1360) -42.3 W15-W26 N11-N21
     11  297 1118 (N29E48 L=327)   286     79        0 ( 263/1100- 330/1147)   8.1 E52-E44 N28-N30
     12 1363  690 (S22W11 L= 26)   253     95        0 (1330/ 656-1400/ 726)  18.4 W07-W13 S23-S20
     13 1457  618 (S30W15 L= 31)   704    167        1 (1384/ 582-1508/ 673)   5.7 W09-W19 S31-S27
     14 1243  321 (S44E09 L=  6)  1061    194        3 (1156/ 271-1320/ 371)   3.6 E17-E01 S46-S41
     15  890  224 (S40E40 L=335)   681    119        1 ( 851/ 180- 925/ 278)  61.4 E44-E37 S45-S34
  

    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