26 November 2024  10:24:46.065 AM
 
frieze():
  Fortran90 version
  Demonstrate the use of blending to "tile"
  a region with a pattern.
 
frieze():
  Draw the wallpaper pattern:
 
frieze():
  Draw the region:
 
(X,Y) corners of the total region:
 
XSE, YSE =    2.12132       2.12132    
XNE, YNE =    2.82843       2.82843    
XNW, YNW =   -2.82843       2.82843    
XSW, YSW =   -2.12132       2.12132    
 
frieze():
  Draw the region divided into cells:
 
(X,Y) corners of the total region:
 
XSE, YSE =    2.12132       2.12132    
XNE, YNE =    2.82843       2.82843    
XNW, YNW =   -2.82843       2.82843    
XSW, YSW =   -2.12132       2.12132    
  -1.4999999999999993        2.5980762113533160     
  -1.7933012701892213        3.1060889132455349     
  -2.4748737341529159        2.4748737341529163     
  -2.1213203435596424        2.1213203435596428     
 -0.77645713530756244        2.8977774788672055     
 -0.88345227105462187        3.2970887616379585     
  -1.7933012701892213        3.1060889132455349     
  -1.4999999999999993        2.5980762113533160     
   2.2204460492503131E-016   2.9999999999999996     
   0.0000000000000000        3.5000000000000000     
 -0.88345227105462187        3.2970887616379585     
 -0.77645713530756244        2.8977774788672055     
  0.77645713530756222        2.8977774788672050     
  0.92828104466302364        3.4643920223855202     
   0.0000000000000000        3.5000000000000000     
   2.2204460492503131E-016   2.9999999999999996     
   1.5000000000000004        2.5980762113533160     
   1.7066987298107781        2.9560889132455355     
  0.92828104466302364        3.4643920223855202     
  0.77645713530756222        2.8977774788672050     
   2.1213203435596428        2.1213203435596424     
   2.4748737341529163        2.4748737341529163     
   1.7066987298107781        2.9560889132455355     
   1.5000000000000004        2.5980762113533160     
  -1.7933012701892213        3.1060889132455349     
  -2.0866025403784429        3.6141016151377547     
  -2.8284271247461898        2.8284271247461903     
  -2.4748737341529159        2.4748737341529163     
 -0.88345227105462187        3.2970887616379585     
 -0.99044740680168075        3.6964000444087115     
  -2.0866025403784429        3.6141016151377547     
  -1.7933012701892213        3.1060889132455349     
   0.0000000000000000        3.5000000000000000     
   2.2204460492503131E-016   4.0000000000000000     
 -0.99044740680168075        3.6964000444087115     
 -0.88345227105462187        3.2970887616379585     
  0.92828104466302364        3.4643920223855202     
   1.0801049540184857        4.0310065659038345     
   2.2204460492503131E-016   4.0000000000000000     
   0.0000000000000000        3.5000000000000000     
   1.7066987298107781        2.9560889132455355     
   1.9133974596215564        3.3141016151377545     
   1.0801049540184857        4.0310065659038345     
  0.92828104466302364        3.4643920223855202     
   2.4748737341529163        2.4748737341529163     
   2.8284271247461903        2.8284271247461903     
   1.9133974596215564        3.3141016151377545     
   1.7066987298107781        2.9560889132455355     
 
frieze():
  Draw the region, divided into cells,
  with each cell covered by a copy of the
  wallpaper pattern.
 
(X,Y) corners of the total region:
 
XSE, YSE =    2.12132       2.12132    
XNE, YNE =    2.82843       2.82843    
XNW, YNW =   -2.82843       2.82843    
XSW, YSW =   -2.12132       2.12132    
  -1.50000       2.59808    
  -1.79330       3.10609    
  -2.47487       2.47487    
  -2.12132       2.12132    
 -0.776457       2.89778    
 -0.883452       3.29709    
  -1.79330       3.10609    
  -1.50000       2.59808    
  0.222045E-15   3.00000    
   0.00000       3.50000    
 -0.883452       3.29709    
 -0.776457       2.89778    
  0.776457       2.89778    
  0.928281       3.46439    
   0.00000       3.50000    
  0.222045E-15   3.00000    
   1.50000       2.59808    
   1.70670       2.95609    
  0.928281       3.46439    
  0.776457       2.89778    
   2.12132       2.12132    
   2.47487       2.47487    
   1.70670       2.95609    
   1.50000       2.59808    
  -1.79330       3.10609    
  -2.08660       3.61410    
  -2.82843       2.82843    
  -2.47487       2.47487    
 -0.883452       3.29709    
 -0.990447       3.69640    
  -2.08660       3.61410    
  -1.79330       3.10609    
   0.00000       3.50000    
  0.222045E-15   4.00000    
 -0.990447       3.69640    
 -0.883452       3.29709    
  0.928281       3.46439    
   1.08010       4.03101    
  0.222045E-15   4.00000    
   0.00000       3.50000    
   1.70670       2.95609    
   1.91340       3.31410    
   1.08010       4.03101    
  0.928281       3.46439    
   2.47487       2.47487    
   2.82843       2.82843    
   1.91340       3.31410    
   1.70670       2.95609    
 
frieze():
  Normal end of execution.
 
26 November 2024  10:24:46.069 AM