Dark Bit Factory & Gravity
PROGRAMMING => Freebasic => Topic started by: Shockwave on March 01, 2007
-
This library is going to form the basis for all my tutorials in Freebasic. It is a selection of stock routines that I have written to provide some basic drawing functions to tinyptc, even if you have no programming knowledge.
There is nothing to install, all you need to do is use the file attached on this post as the base code of your programs.
My tutorials in the future will assume that you have this file.
Believe me it makes everything a lot easier and I have supported 7 basic commands to start with, though this will increase as I develop the lib to include spectrum style user defined gfx etc..
Here is a command summary.
The lib is attached to the post, should run in any version of freebasic.
'-------------------------------------------------------------------------------
' SUPPORTED COMMANDS:
'-------------------------------------------------------------------------------
' TRIANGLE() <- DRAWS A FILLED TRIANGLE
' USE:
' TRIANGLE( X1 , Y1 , X2 , Y2 , X3 , Y3 , R , G , B )
' R,G AND B ARE COLOUR VALUES BETWEEN 0 AND 255
'-------------------------------------------------------------------------------
' CIRC() <- DRAWS A FILLED CIRCLE
' USE:
' CIRC( X , Y , RADIUS , R , G , B )
' X AND Y ARE THE CENTER X AND Y POINTS, RADIUS IS IN PIXELS.
' R,G AND B ARE COLOUR VALUES BETWEEN 0 AND 255
'-------------------------------------------------------------------------------
' RECT() <- DRAWS A FILLED RECTANCLE
' USE:
' RECT( X , Y , WIDTH , HEIGHT , R , G , B )
' X AND Y ARE THE LEFT CORNER, WIDTH AND HEIGHT ARE IN PIXELS.
' R,G AND B ARE COLOUR VALUES BETWEEN 0 AND 255
'-------------------------------------------------------------------------------
' EDGE() <- DRAWS A STRAIGHT LINE
' USE:
' EDGE ( X1 , Y1 , X2 , Y2 , R , G , B )
' X1,Y1 POINT 1
' X2,Y2 POINT 2
' THIS ROUTINE DRAWS A LINE BETWEEN THE TWO POINTS.
' R,G AND B ARE COLOUR VALUES BETWEEN 0 AND 255
'-------------------------------------------------------------------------------
' DOT() <- PLOTS A PIXEL
' USE:
' DOT (X,Y,R,G,B)
' X,Y ARE THE CO-ORDINATES TO PLOT.
' R,G AND B ARE COLOUR VALUES BETWEEN 0 AND 255
'-------------------------------------------------------------------------------
' TEXT()<- DRAWS UPPERCASE TEXT ONTO THE SCREEN.
' USE:
' TEXT ( X , Y , "YOUR TEXT" , R , G , B)
' X,Y TOP LEFT CORNER
' "YOUR TEXT" ANYTHING IN THESE QUOTES IS PRINTED
' R,G AND B ARE COLOUR VALUES BETWEEN 0 AND 255
'-------------------------------------------------------------------------------
' CURVE() <- DRAW A LOW RES BEZIER CURVE
' USE:
' CURVE( X1,Y1 , X2, Y2 ,C1,C2 , C3 , C4 , R , G , B)
' X1,Y1 THE START POINTS OF THE CURVE
' X2,Y2 THE END POINTS OF THE CURVE
' C1,C2 ARE CONTROL POINTS (X AND Y) THE CURVE WILL BEND TOWARDS THIS POINT FROM X1,Y1
' C3,C4 ARE CONTROL POINTS (X AND Y) THE CURVE WILL BEND TOWARDS THIS AS IT ENDS.
' R,G AND B ARE COLOUR VALUES BETWEEN 0 AND 255
' NB. THIS CURVE USES THE "EDGE" CALL, THE CURVE IS LOW RESOLUTION AND THE POINTS
' ARE JOINED WITH THE EDGE COMMAND, THIS MEANS THAT THERE WILL NEVER BE GAPS IN THE CURVE
' AND IT IS A LOT FASTER FOR DEMO EFFECTS.
'-------------------------------------------------------------------------------
-
Cool lib mate, nice one :)
-
Looks good. Should be very useful.
-
Most of the functions in my lib have a smattering of assembly language thrown in for speed, I'm using this framework to write most of my own stuff now.. I think there is one bug left in that there's no y clipping on the text, but I'll get around to fixing that and adding more commands soon :)
-
If anyone has any other requests for commands, please post them :)
-
I used some of this 'your' code last nite . . . had an idea for a rainstorm sort of effect . . . I did it years ago on the amiga in AMOS!! and it looked good back then - did it in freebasic last nite and it looked a little sad . . . will try to get it looking better and let people see soon! Thanks for the lib though shockwave - very useful indeed.
Drew :goodpost:
-
Hello again - tis me DrewPee!?!?
Is it possible to alter/edit the circle draw routine to draw an oval (filled or unfilled)?
Can anybody help?
DrewPee
-
I'll add an oval function and post here when it's done :)
-
A quickly made oval function, you need to make the following changes to the framework;
Put this line where all the subs are declared;
DECLARE SUB OVAL(BYVAL CX AS INTEGER , BYVAL CY AS INTEGER , BYVAL R1 AS INTEGER, BYVAL R2 AS INTEGER, BYVAL QU AS INTEGER, BYVAL CR AS INTEGER,BYVAL CG AS INTEGER,BYVAL CB AS INTEGER)
Put this sub at the end of the program;
SUB OVAL(BYVAL CX AS INTEGER , BYVAL CY AS INTEGER , BYVAL R1 AS INTEGER, BYVAL R2 AS INTEGER, BYVAL QU AS INTEGER, BYVAL CR AS INTEGER,BYVAL CG AS INTEGER,BYVAL CB AS INTEGER)
DIM AS DOUBLE RAD2DEG
RAD2DEG = ((4*ATN(1)) / 180 )
DIM AS INTEGER X1,X2,Y1,Y2,X
X2=CX+(R1*SIN((-QU)*RAD2DEG))
Y2=CY+(R2*COS((-QU)*RAD2DEG))
FOR X=0 TO 359+QU STEP QU
X1=CX+(R1*SIN(X*RAD2DEG))
Y1=CY+(R2*COS(X*RAD2DEG))
TRIANGLE(X1,Y1,X2,Y2,CX,CY,CR,CG,CB)
X2=X1
Y2=Y1
NEXT
END SUB
And use it like this;
OVAL ( CENTRE X , CENTRE Y , RADIUS 1 , RADIUS 2 , QUALITY , R , G , B )
Nb. Quality of 1 is highest quality ovals, Quality of 5 is less high quality but still acceptable.
It works by using the filled triangle function.
If you want wire frame change this line;
TRIANGLE(X1,Y1,X2,Y2,CX,CY,CR,CG,CB)
To ;
EDGE(X1,Y1,X2,Y2,CR,CG,CB)
Hope that helps :)
-
Wow! Thanks shockwave again! I will let you see the final 'thing' when it is done - it's looking like an exact copy of a demo i did in about 1989 on the amiga in amos!!
Thanks again!
Drew
-
Sounds interesting Drew :) Looking forwrd to it!
-
does this lib work for --> System: FBIde: 0.4.6 - fbc: FreeBASIC Compiler - Version 0.20.0
-
It should work for any version of freebasic Bikerboy, it's just a set of routines I made to draw curves, triangles, circles, text etc, they are all self contained subroutines that you can just copy and paste into your program.