This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Messages - Handmixer
16
« on: December 21, 2013, 10:37:20 am »
Source attached including Tim's recomendation.
EDIT: now changes mode to RAD and changes back to previous angle setting when stopped by pressing any key
EDIT: bug in calculation of seconds corrected
17
« on: December 21, 2013, 07:59:48 am »
Hi I'm new to the forum and a forum noob
Can anyone point me to a description of forum basics, ie. how to upload and attach an Image or a source code file.
18
« on: December 21, 2013, 12:20:37 am »
Sorry I don't know how to post Pictures.
The code runs on my calculator and in the emulator, and it shows a clock with roman numbers.
Perhaps the pi-sign didnt copy rigth.
19
« on: December 20, 2013, 02:29:02 pm »
Thanks for letting me know
20
« on: December 20, 2013, 02:18:05 pm »
A Watch with Roman numbers.
Just for fun.
The code...
EXPORT Clock()
BEGIN
LOCAL t,tt,h,m;
LOCAL s,nums,i,x,y;
LOCAL ux,uy,x1,y1,x2,y2;
nums:="ⅠⅡⅢⅣⅤⅥⅦⅧⅨⅩⅪⅫ";
// Init GUI
DIMGROB_P(G1,320,240);
REPEAT
RECT_P(G1,#000000);
FOR i FROM 1 TO 12 DO
x:=152+100*SIN(i*π/6);
y:=110-100*COS(i*π/6);
TEXTOUT_P(CHAR(nums(i)),G1,x,y,0,#FFFF00);
END;
t:=Time();
tt:=HMS→(t);
h:=tt;
ux:=SIN(h*π/6);
uy:=COS(h*π/6);
x:=160+45*ux;
y:=120-45*uy;
x1:=160+5*uy;
y1:=120+5*ux;
x2:=160-5*uy;
y2:=120-5*ux;
TRIANGLE_P(G1,x,y,x1,y1,x2,y2,#FFFFFF,0,0);
m:=IP(FP(tt)*100);
ux:=SIN(m*π/50);
uy:=COS(m*π/50);
x:=160+90*ux;
y:=120-90*uy;
x1:=160+5*uy;
y1:=120+5*ux;
x2:=160-5*uy;
y2:=120-5*ux;
TRIANGLE_P(G1,x,y,x1,y1,x2,y2,#FFFFFF,0,0);
s:=100*FP(tt*100);
ux:=SIN(s*π/50);
uy:=COS(s*π/50);
x:=160+90*ux;
y:=120-90*uy;
x1:=160+5*uy;
y1:=120+5*ux;
x2:=160-5*uy;
y2:=120-5*ux;
TRIANGLE_P(G1,x,y,x1,y1,x2,y2,#A0A0A0,0,0);
BLIT_P(G0,G1);
UNTIL ISKEYDOWN(14) ;
END;
21
« on: December 16, 2013, 02:48:09 pm »
Hi, im returning to calculator programming on the Prime and came here to share whatever i make.
I did some Projects in Java and I have a small Collection of old HP calculators; HP41CV, 28C and recently the Prime.
22
« on: December 12, 2013, 01:41:53 pm »
I made this simple star routine.
The stars are stored in a List (L0), but is there any other way?
EXPORT Stars()
BEGIN
LOCAL XX,YY,ANG,VEL;
DIMGROB_P(G1,320,240);
L0:={};
REPEAT
XX:=RANDOM(1,319);
YY:=RANDOM(1,239);
FOR I FROM 1 TO 400 STEP 4 DO
L0(I):=XX;
L0(I+1):=YY;
VEL:=RANDOM(0.5,5.0);
ANG:=π*RANDOM(0.0,2.0);
L0(I+2):=VEL*COS(ANG);
L0(I+3):=VEL*SIN(ANG);
END;
RECT_P(G1,#000000);
FOR J FROM 1 TO 50 DO
// RECT_P(G1,#000000);
FOR I FROM 1 TO 400 STEP 4 DO
PIXON_P(G1,L0(I),L0(I+1),#FFFFFF);
PIXON_P(G1,L0(I)+1,L0(I+1),#FFFFFF);
PIXON_P(G1,L0(I),L0(I+1)+1,#FFFFFF);
PIXON_P(G1,L0(I)+1,L0(I+1)+1,#FFFFFF);
END;
BLIT_P(G0,G1);
FOR I FROM 1 TO 400 STEP 4 DO
L0(I):=L0(I)+L0(I+2);
L0(I+1):=L0(I+1)+L0(I+3);
L0(I+3):=L0(I+3)+0.15;
END;
END;
UNTIL ISKEYDOWN(14);
END;
|
Show Posts