1.     #!/usr/bin/env  aspl 
2.     #ENVARG= -wsname TRANSIENT -groupingclass GEOSPHERES
3.     
4.     ;;***********************************************************************
5.     ;;   polyclouds.aspl
6.     ;;   
7.     ;;   Copyright © 2021-2024 Bassem W. Jamaleddine
8.     ;;   All rights reserved.
9.     ;;   
10.    ;;***********************************************************************
11.    
12.    endScriptIfShellArgsLessThan 1
13.    
14.    print RANDOM POLYGONS ON THREE SPHERES WITH $1 POLYGONS ON EACH
15.    S123_$1 = ggRPO3Sov(N,$1,glb1,S1,glb2,S2,glb3,S3,nmfl,S123_$1)
16.    split S123_$1 into S1 S2 S3
17.    f& S1 S2                                                            
18.    f& S1 S3                                                            
19.    f& S2 S3                                                            
20.    f& S1 S2 S3                                                         
21.    pop S123                                                            
22.    pop S23
23.    pop S13
24.    pop S12
25.    dumpgad S123
26.    dumpgad S12
27.    dumpgad S13
28.    dumpgad S23                                
29.    
30.    endscript
31.    
32.    __END__
33.    
34.     Create random polygons on three spheres.
35.     $00 must be followed by one argument specifying the number of polygons
36.     to create on each sphere.
37.    
38.       draw 100 random polygons on three spheres
39.          $00 100
40.    
41.       In ASPL GEO's workspaces the set operations perform set operations
42.       on geometric data, and the command "dumpgad" dumps GAD objects that
43.       can be read by the command "drawgad" to draw such geometric data.