1.     #!/usr/bin/env  aspl 
2.     #ENVARG= -wsname TRANSIENT -groupingclass SPHERESCLASS
3.     
4.     ;;***********************************************************************
5.     ;;   twospheres.aspl
6.     ;;   display the intersection of two spheres 
7.     ;;   Copyright © 2021-2024 Bassem W. Jamaleddine
8.     ;;   
9.     ;;***********************************************************************
10.    
11.    endScriptIfShellArgsLessThan 1
12.    
13.    displayoff
14.    
15.    print INTERSECTION OF TWO SPHERES EACH WITH $1 POINTS 
16.    println
17.    gg2Spheres(N,$1,glb1,G1,glb2,G2)         
18.    displayon
19.    c&
20.    
21.    endscript
22.    
23.    __END__
24.    
25.    $00 must be followed by one argument specifying the number of points
26.    
27.       This script gets  the intersection of two spheres.
28.       The script takes one argument to specify the number of points per sphere.
29.       The script prints the result of the intersection of the two spheres.
30.    
31.       intersect two spheres each with 500 points
32.          $00 500
33.    
34.       intersect two spheres each with 1000 points
35.          $00 1000
36.