' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' DECLARE SUB luna (h!, v!, forma!, radio!) SCREEN 12 luna 320, 240, -1.6, 200 ' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' 'Dibuja una luna con centro en (h,v) y radio = radio 'forma = Valor entre -(radio*3) y -1 ¢ bien entre 1 y radio*3 ' ' SUB luna (h, v, forma, radio) CONST PI = 3.141592654# CIRCLE (h, v), radio, 15, PI / 2, 3 * (PI / 2) SELECT CASE forma CASE IS <= 0 CIRCLE (h, v), radio, 15, PI / 2, 3 * (PI / 2), ABS(forma) CASE IS > 0 CIRCLE (h, v), radio, 15, 3 * (PI / 2), PI / 2, forma END SELECT IF ABS(forma) >= 1 THEN : PAINT (h - radio + 1, v), 15, 15 END SUB