PureBasic Forums - English

thanks,
it seems more complicated than I thought.
Maybe better to make 2 layout for 2 screen resolutions

I have a screen with many gadgets and a drawing on canvas gadget created for a resolution of 1360x768, how can I rescale this to a resolution of 1920x1080.
Do I have to calculate the size, position and text for each gadget, or is there an easier way?

thanks ,it works

StartDrawing(CanvasOutput(#canvas1))
For n=7 To aantal_lijnen
lijn$=GetGadgetItemText (#list1,n) ;Gcode line ,coordinates lines ect..
;Debug lijn$
ontrafel() ;find the start and end off the lines
y2=180+(x_new *xpix_mm):x2=680+(zpix_mm * z_new );new endposition
LineXY(x1,y1,x2,y2,kleur ...

How can I draw lines slow in a for next loop ,I try delay but this will not work

Hello,
I try to make wizards for my hobby cnc lathe. Just to learn something with purebasic.

infratec thanks,I know that there are 2 solutions.
Now I can try to find the start and end angle of the arc.
Maybe I can ask you this, too.

I've been trying for a while to find a way to calculate the center of an arc, but I can't get out, maybe there's a mathematical genius.
I have the startpoint X1,Y1 the endpoint X2,Y2 and the radius R ,I need the centerpoint XC,YC .
The arc can be in one or more quadrants.

Hello,

I try to run this demo ,but I see only a white screen.What am I doing wrong?
I tried it with pB 32 and 64bit version 5.73.

infratec

Thanks for that great example ,but can you explain

Rotation(axe\I#a, axe\I#b, Cos, Sin)

What means I#a and I#b ?

I suppose somthing with the macros ?

Olli, it seems more difficult than I thought.
You're using terms I've never heard of. Euler referency and Hamilton referency (quaternion).
I just thought to find some formulas and fill in the variables and done.
I think it is too ambitious for me

thanks,I found this:
Ollivier
Post subject:PostPosted: Tue Aug 28, 2007 10:53 pm

InitSprite()
InitKeyboard()
OpenScreen(1024, 768, 32, "x")
;***********
R.F = 100.0
Xtheta.F = 0.0
Ytheta.F = 0.0
Ztheta.F = 0.0
Ttheta.F = 0.0
;***********
Repeat
StartDrawing(ScreenOutput() )
Box(0 ...

how to draw a 3D arc ,startpoint,endpoint ,radius are known.
how to draw a 3D arc ,startpoint,endpoint ,startradius and endradius are known.

And how to rotate this around x,y,z axis ?

Hello ,as a beginner I try to understand the code .
I have a problem if one just places numbers for the gadgets instead of giving it a recognizable name,I've adjusted it a bit to my taste.


Enumeration
#main_window;0
#container ;10
#txt_title ;11
#txt_question;12
#str_def ;13
#btn_ok ;14 ...

I always want to make it as simple and as fast as possible.
I like the code from NicTheQuick,but I also want to thank the others for their thinking.

EnableExplicit

Define text.s = "Hello World"
Define kar.s
Define *c.Character = @text

While *c\c
; Debug *c\c ; 87=W
kar.s= Chr(*c\c);instead of ...