R Under development (unstable) (2025-08-27 r88724 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2025 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library( zonohedra )
Package: zonohedra.  Author: Glenn Davis.  Version: 0.5-0.  Built: R 4.6.0; x86_64-w64-mingw32; 2025-08-28 02:05:27
 UTC; windows

Attaching package: 'zonohedra'

The following object is masked from 'package:base':

    rank

> # library( rgl )        not needed if we write rgl::as.mesh3d()
> 
> 
> # library( logger )
> # log_threshold( TRACE, namespace='zonohedra' )
> 
> 
> options( width=160 )
> 
> 
> testClassics <- function( )
+     {
+     n   = length(classics.genlist)
+ 
+     zonolist    = vector( n, mode='list' )
+ 
+     for( k in 1:n )
+         {
+         zonolist[[k]]   = zonohedron( classics.genlist[[k]] )
+         }
+ 
+     cat( '\n\n' )
+     cat( "---------  testClassics()  --------------\n", sep='' )
+     flush.console()
+ 
+     timestart   = zonohedra:::gettime()
+ 
+     for( k in 1:n )
+         {
+         cat( "-----------   k=", k, '   ---------------\n', sep='' )
+         mesh = rgl::as.mesh3d( zonolist[[k]] )
+         }
+ 
+     timeelapsed = zonohedra:::gettime() - timestart
+ 
+     cat( "    classics=", n, "  time=", timeelapsed, "sec\n", sep='' )
+     flush.console()
+ 
+     return(TRUE)
+     }
> 
> testColorimetry <- function( )
+     {
+     zono    = zonohedron( colorimetry.genlist[[2]] )
+ 
+     timestart   = zonohedra:::gettime()
+ 
+     mesh = rgl::as.mesh3d( zono )
+ 
+     timeelapsed = zonohedra:::gettime() - timestart
+ 
+     cat( "    colorimetry 1nm:  time=", timeelapsed, "sec\n", sep='' )
+     flush.console()
+ 
+     return(TRUE)
+     }
> 
> 
> if( ! testClassics() )          stop( "testClassics() failed !" )


---------  testClassics()  --------------
-----------   k=1   ---------------
-----------   k=2   ---------------
-----------   k=3   ---------------
-----------   k=4   ---------------
-----------   k=5   ---------------
-----------   k=6   ---------------
-----------   k=7   ---------------
-----------   k=8   ---------------
-----------   k=9   ---------------
-----------   k=10   ---------------
-----------   k=11   ---------------
-----------   k=12   ---------------
-----------   k=13   ---------------
    classics=13  time=0.1382903sec
> 
> if( ! testColorimetry() )       stop( "testColorimetry() failed !" )
    colorimetry 1nm:  time=3.506252sec
> 
> 
> cat( "\nPassed all mesh3d() tests !\n", file=stderr() )

Passed all mesh3d() tests !
> 
> 
> proc.time()
   user  system elapsed 
   5.98    0.57    6.90