ASPL Manual v 1.00
© 2024 by SetSphere.COM

The following script creates two spheres then finds their intersection. You just specify the number of points per sphere. ASPL turns the points of each sphere into a group. The set intersection of the two groups represents the points where both spheres intersect.


       [Top Text]

 -L- Listing. 12.7.1   [LISTING twospheres.aspl][ASPL Script twospheres.aspl]

(raw text)

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.    

ASPL(C) 2024 Bassem Jamaleddine

This example is shown in the following terminal.

       display or terminal for Example: Script twospheres.aspl

viewme

 -E- Display. 12.7.1   [Script twospheres.aspl][Script twospheres.aspl]

run for twospheres-aspl-links