1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | DECLARE SUB tree (x!, y!)DECLARE SUB text (col!)CLSSCREEN 12LINE (0, 480)-(640, 300), 2, BFLINE (0, 300)-(640, 0), 1, BFCIRCLE (500, 50), 30, 14PAINT (500, 50), 14, 14CALL tree(150, 350)SUB tree (x, y)SCREEN 12LINE (x, y)-(x + 20, y - 80), 4, BFCIRCLE (x + 10, y - 170), 100, 2, , , 4PAINT (x + 10, y - 170), 2, 2END SUB |
Тестирование выполнено в программе QB64 ( Скачать )