clear _screen.ForeColor = 0 nXCenter = 150 nYCenter = 150 nRadius = 100 _screen.Circle( nRadius, nXCenter, nYCenter, 1 ) _screen.Circle( nRadius * 0.5, nXCenter, nYCenter, 1 ) nTheta = pi() * 0.50 nXRim = nXCenter + nRadius * sin( nTheta ) nYRim = nYCenter + nRadius * cos( nTheta ) _screen.Line( nXCenter, nXCenter, nXRim, nYRim ) nTheta = pi() * 1.25 nXRim = nXCenter + nRadius * sin( nTheta ) nYRim = nYCenter + nRadius * cos( nTheta ) _screen.Line( nXCenter, nXCenter, nXRim, nYRim ) nXCenter = 350 nYCenter = 350 nRadius = 100 _screen.Circle( nRadius, nXCenter, nYCenter, 1 ) _screen.Circle( nRadius * 0.7071, nXCenter, nYCenter, 1 ) nTheta = pi() * 0.50 nXRim = nXCenter + nRadius * sin( nTheta ) nYRim = nYCenter + nRadius * cos( nTheta ) _screen.Line( nXCenter, nXCenter, nXRim, nYRim ) nTheta = pi() * 1.25 nXRim = nXCenter + nRadius * sin( nTheta ) nYRim = nYCenter + nRadius * cos( nTheta ) _screen.Line( nXCenter, nXCenter, nXRim, nYRim )