HP Prime для всех

English  Русский 
Waterfall Animation graphics-app screenshot}}
Название Waterfall Animation
Описание Background boxes with falling water. There is random mist coming from the water.
Автор Eddie Shore

Исходный код (скачать):

Исходный код отформатирован программными средствами сайта

EXPORT AMNI10() BEGIN // 2014-01-10 Waterfall EWS LOCAL K, J, I, A := 0; RECT(); WHILE GETKEY == -1 DO A := A+1; // Static // Walls RECT_P(0, 5, 30, 210, #964B00h); RECT_P(280, 5, 318, 210, #964B00h); // Water RECT_P(30, 10, 280, 210, #FFh); // Grass TRIANGLE_P(0, 210, 155, 230, 318, 210, RGB(0, 218, 0)); // Animated // Mist FOR I FROM 1 TO RANDINT(50, 75) DO TEXTOUT_P(".", RANDINT(30, 270), RANDINT(10, 200), 3, #FFFFh); END; // Foam FOR I FROM 1 TO RANDINT(100, 125) DO TEXTOUT_P(" = ", RANDINT(25, 290), RANDINT(200, 210), 3, #FFFFFFh); END; // Fall RECT_P(30, 10+25 * (A+1), 280, 10+25*A, #FFFFFFh); WAIT(0.1); IF A == 8 THEN A := 0; END; END; END;

Комментарии