HP Prime for All
English
Русский
HP Apps : Hat
| Name | Hat |
| Description | Plots a hat. |
| Author | Unknown |
Source code (download):
Source code formatted by website engine
EXPORT HAT()
BEGIN P := 0;
B := TICKS;
RECT_P();
C := 3.1415/180;
FOR R FROM 30 TO 330 STEP 5 DO FOR T FROM 0 TO 360 STEP 3 DO X := R*COS(T) * 0.3;
Y := R*SIN(R) * 0.3;
Z := R*SIN(T) * 0.3;
X1 := X + (COS(15) * Z);
Y1 := Y + (SIN(15) * Z);
PIXON_P(X1+160, 70-Y1);
P := P+1;
END;
END;