#lang racket (require pict3d) (sphere origin 1/2)