Drawing rectangles to the screen

Author

Message

demons breath

22

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 16th Oct 2007 14:41

Link

The code below uses a function which I made the other day for drawing rounded rectangles to the screen. It should draw one big green rectangle and then 4 small ones, however although it initially worked with the large green rectangle, the addition of the four smaller has been somewhat problematic. In fact, I have been met with little success at all; for some reason, which I find myself completely at a loss to ascertain, the program will only draw one small, grey rectangle to the screen. I find myself unsure of how to continue and decided to resort to these forums in my attempts to progress with my aim.

Thank you for your time and any input you may have upon this, my most perplexing problem...

cls

gosub setup
gosub choosechar
sync
suspend for key
end

setup:
sync on:sync rate 0
set display mode 1024,768,32
cls
dim pCharArray(30,99)
gosub pCharArrayVars
return

choosechar:
repeat
if updated=0
	MakeRoundedBox(30,30,994,738,25,2,0,200,55,1,0,90,0,0,31,0)
	DrawTypeList()
	updated=1
endif

sync
until charchosen=1
return

pCharArrayVars:
`first variable
clCharDat=0 : clAgility = 1 : clAccuracy = 2 : clStrength = 3 : clDefense = 4 : clSpellCasting = 5 : clCharm = 6 : clStealth = 7 : `other attributes = 8&9 : clHP = 10 : clInventory = 30

`second variable - character data
cdRace = 0 : rHuman = 0 : rElf = 1 : rDwarf = 2
cdClass = 1 : ssWarrior = 0 : ssBerserker = 1 : ssSlayer = 2 : ssSorceror = 3 : ssMonk = 4 : ssBard = 5 : ssRanger = 6 : ssRogue = 7
cdExpPts = 2
cdLevel = 3
cdClassFocus = 4 : `target class/race - multiplier for attacks on this class
cdClassWeakness = 5 : `weakness against this class/race

`second variable - skills & skill modifiers - clAgility to clHP
mRace = 0 : `the base agility/strength/... of this race
mClass = 1 : `skill modifier for this class
mBonus = 2 : `the points which the player has distributed
mHelmet = 3 : mGauntlet = 4 : mBoots = 5 : mPendant = 6 : mArmour = 7 : mRing1 = 8 : mRing2 = 9 : mWeap = 10 : `modifiers for clothes worn/weapon carried
mTemp1 = 11 : mTemp1Life = 12 : ` positive modifier & time remaining until it expires (calculated using timer)
mTemp2 = 13 : mTemp2Life = 14 : ` negative modifier & time remaining until it expires (calculated using timer)
mTotal = 15 : `pCharArray(whatever variable,mTotal) = mRace+mClass+mBonus+...
`health only
mLevHP = 1 : mCurrHP=16

`second variable - inventory
iEquippedHelmet = 0 : iEquippedGauntlet = 1 : iEquippedBoots = 2 : iEquippedPendant = 3 : iEquippedArmour = 4 : iEquippedWeapon = 5 : iEquippedRing1 = 6 : iEquippedRing2 = 7
iMoneyBag = 8

return

function MakeRoundedBox(x1,y1,x2,y2,cornrad,lthick,fr,fg,fb,boolbg,br,bg,bb,fbmp,nbmp,tbmp)
lthick#=lthick
bmpwidth=SCREEN WIDTH()
bmpheight=SCREEN HEIGHT()
create bitmap nbmp,bmpwidth,bmpheight
copy bitmap fbmp,nbmp
x1a=x1+cornrad
y1a=y1+cornrad
x2a=x2-cornrad
y2a=y2-cornrad
`background
if boolbg=1
ink rgb(br,bg,bb),0
box x1,y1a,x2,y2a
box x1a,y1,x2a,y2
for x=0 to cornrad
	for y=0 to cornrad
		if SQRT((x^2)+(y^2))<cornrad
			dot x2a+x,y2a+y
			dot x1a-x,y1a-y
			dot x1a-x,y2a+y
			dot x2a+x,y1a-y
		endif
	next y
next x
endif
`foreground
ink rgb(fr,fg,fb),0
for t=0 to lthick#-1
	line x1a,y1+t,x2a,y1+t
	line x1+t,y1a,x1+t,y2a
	line x1a,y2-t,x2a,y2-t
	line x2-t,y1a,x2-t,y2a
next t
for x=0 to cornrad
	for y=0 to cornrad
		if SQRT((x^2)+(y^2))>cornrad-(lthick#/2) and SQRT((x^2)+(y^2))<cornrad+(lthick#/2)
			dot x2a+x,y2a+y
			dot x1a-x,y1a-y
			dot x1a-x,y2a+y
			dot x2a+x,y1a-y
		endif
	next y
next x
copy bitmap nbmp,tbmp
endfunction

Function DrawTypeList()
`races
for race=rHuman to rOrc
	MakeRoundedBox(race*200+112,80,race*200+272,115,15,1,160,160,160,1,80,80,80,0,31,0)
next race
EndFunction

+ Code Snippet

cls

gosub setup
gosub choosechar
sync
suspend for key
end


setup:
sync on:sync rate 0
set display mode 1024,768,32
cls
dim pCharArray(30,99)
gosub pCharArrayVars
return

choosechar:
repeat
if updated=0
	MakeRoundedBox(30,30,994,738,25,2,0,200,55,1,0,90,0,0,31,0)
	DrawTypeList()
	updated=1
endif

sync
until charchosen=1
return













pCharArrayVars:
`first variable
clCharDat=0 : clAgility = 1 : clAccuracy = 2 : clStrength = 3 : clDefense = 4 : clSpellCasting = 5 : clCharm = 6 : clStealth = 7 : `other attributes = 8&9 : clHP = 10 : clInventory = 30

`second variable - character data
cdRace = 0 : rHuman = 0 : rElf = 1 : rDwarf = 2
cdClass = 1 : ssWarrior = 0 : ssBerserker = 1 : ssSlayer = 2 : ssSorceror = 3 : ssMonk = 4 : ssBard = 5 : ssRanger = 6 : ssRogue = 7
cdExpPts = 2
cdLevel = 3
cdClassFocus = 4 : `target class/race - multiplier for attacks on this class
cdClassWeakness = 5 : `weakness against this class/race

`second variable - skills & skill modifiers - clAgility to clHP
mRace = 0 : `the base agility/strength/... of this race
mClass = 1 : `skill modifier for this class
mBonus = 2 : `the points which the player has distributed
mHelmet = 3 : mGauntlet = 4 : mBoots = 5 : mPendant = 6 : mArmour = 7 : mRing1 = 8 : mRing2 = 9 : mWeap = 10 : `modifiers for clothes worn/weapon carried
mTemp1 = 11 : mTemp1Life = 12 : ` positive modifier & time remaining until it expires (calculated using timer)
mTemp2 = 13 : mTemp2Life = 14 : ` negative modifier & time remaining until it expires (calculated using timer)
mTotal = 15 : `pCharArray(whatever variable,mTotal) = mRace+mClass+mBonus+...
`health only
mLevHP = 1 : mCurrHP=16

`second variable - inventory
iEquippedHelmet = 0 : iEquippedGauntlet = 1 : iEquippedBoots = 2 : iEquippedPendant = 3 : iEquippedArmour = 4 : iEquippedWeapon = 5 : iEquippedRing1 = 6 : iEquippedRing2 = 7
iMoneyBag = 8

return










function MakeRoundedBox(x1,y1,x2,y2,cornrad,lthick,fr,fg,fb,boolbg,br,bg,bb,fbmp,nbmp,tbmp)
lthick#=lthick
bmpwidth=SCREEN WIDTH()
bmpheight=SCREEN HEIGHT()
create bitmap nbmp,bmpwidth,bmpheight
copy bitmap fbmp,nbmp
x1a=x1+cornrad
y1a=y1+cornrad
x2a=x2-cornrad
y2a=y2-cornrad
`background
if boolbg=1
ink rgb(br,bg,bb),0
box x1,y1a,x2,y2a
box x1a,y1,x2a,y2
for x=0 to cornrad
	for y=0 to cornrad
		if SQRT((x^2)+(y^2))<cornrad
			dot x2a+x,y2a+y
			dot x1a-x,y1a-y
			dot x1a-x,y2a+y
			dot x2a+x,y1a-y
		endif
	next y
next x
endif
`foreground
ink rgb(fr,fg,fb),0
for t=0 to lthick#-1
	line x1a,y1+t,x2a,y1+t
	line x1+t,y1a,x1+t,y2a
	line x1a,y2-t,x2a,y2-t
	line x2-t,y1a,x2-t,y2a
next t
for x=0 to cornrad
	for y=0 to cornrad
		if SQRT((x^2)+(y^2))>cornrad-(lthick#/2) and SQRT((x^2)+(y^2))<cornrad+(lthick#/2)
			dot x2a+x,y2a+y
			dot x1a-x,y1a-y
			dot x1a-x,y2a+y
			dot x2a+x,y1a-y
		endif
	next y
next x
copy bitmap nbmp,tbmp
endfunction



Function DrawTypeList()
`races
for race=rHuman to rOrc
	MakeRoundedBox(race*200+112,80,race*200+272,115,15,1,160,160,160,1,80,80,80,0,31,0)
next race
EndFunction

http://jamesmason01.googlepages.com/index.htm

Back to top

Profile PM Website

Latch

19

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 16th Oct 2007 15:16

Link

Hi demons breath,

In your DrawTypeList() function, you don't have any reference to your Global race definition variables so the function's loop isn't able to cycle through them. You have to pass some parameters to the function so it knows the values of the race variables. Here's one suggestion for how the function could look:

+ Code Snippet

Function DrawTypeList(type1,type2,bystep)
`races
for race=type1 to type2 step bystep
   MakeRoundedBox(race*200+112,80,race*200+272,115,15,1,160,160,160,1,80,80,80,0,31,0)
next race
EndFunction

And you would call it like this:

DrawTypeList(rHuman,rDwarf,1)

Enjoy your day.

Back to top

Profile PM

demons breath

22

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 16th Oct 2007 15:28 Edited at: 16th Oct 2007 15:33

Link

hmm... well that was foolish... but nevertheless if I just replace it with

+ Code Snippet

for race=0 to 3

or put that in the main loop it still comes up with a problem.

EDIT: OK now the square is the rightmost one. That implies that the problem is in the "copying one bitmap to another" style bit of the MakeRoundedBox function... but this shouldn't be a problem as in my test programme running the function this it still worked fine

with

+ Code Snippet

MakeRoundedBox(10,10,180,200,25,2,255,0,100,1,80,80,190,0,5,0)
MakeRoundedBox(89,140,389,172,18,4,69,107,82,1,180,180,30,0,5,0)
MakeRoundedBox(165,20,600,130,40,1,255,255,255,0,0,0,0,0,5,0)

OH WAIT! syncs! it's trying to copy the screen, but without the sync command to update it beforehand there's nothing to copy...

I feel a little foolish now - my only sync is after everything should have been drawn but obviously that won't work...

http://jamesmason01.googlepages.com/index.htm

Back to top

Profile PM Website

Libervurto

20

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 16th Oct 2007 23:28

Link

@Demon
You might find this useful, it's an example of a recursive function.
http://forum.thegamecreators.com/?m=forum_view&t=110907&b=6

Back to top

Profile PM Email

demons breath

22

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 16th Oct 2007 23:31

Link

Hahaha you're always posting links on every thread you read

But yeah that's a cool function

http://jamesmason01.googlepages.com/index.htm

Back to top

Profile PM Website

TDK

Retired Moderator

23

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 16th Oct 2007 23:36

Link

Here's another way of doing a rounded box - a little faster, but not that much...

It can also create rounded boxes on any colour background.

The Function:

+ Code Snippet

Function RoundedBox(X1,Y1,X2,Y2,Cr,FCol,BCol)
  Ink BCol,0
  For N=1 To Cr
    Circle X1+Cr,Y1+Cr,N: Circle X1+Cr,Y1+Cr+1,N
    Circle X2-Cr,Y1+Cr,N: Circle X2-Cr,Y1+Cr+1,N
    Circle X2-Cr,Y2-Cr,N: Circle X2-Cr,Y2-Cr+1,N
    Circle X1+Cr,Y2-Cr,N: Circle X1+Cr,Y2-Cr+1,N
  Next N
  Ink FCol,0
  Circle X1+Cr,Y1+Cr,Cr: Circle X2-Cr,Y1+Cr,Cr
  Circle X2-Cr,Y2-Cr,Cr: Circle X1+Cr,Y2-Cr,Cr
  Box X1+Cr,Y1,X2-Cr,Y2: Box X1,Y1+Cr,X2,Y2-Cr
  Ink BCol,0
  Box X1+Cr,Y1+1,X2-Cr,Y2-1: Box X1+1,Y1+Cr,X2-1,Y2-Cr
EndFunction

Example Of Using It

+ Code Snippet

Sync On
X1=100: Y1=100: X2=400: Y2=200: Rem Box X,Y co-ords
CornerRad = 18: Rem Corner Radius (Even numbers work best)
FC=RGB(255,255,255): Rem Foreground colour
BC=RGB(0,0,255): Rem Background colour

RoundedBox(X1,Y1,X2,Y2,CornerRad,FC,BC)

Sync
Wait Key

Function RoundedBox(X1,Y1,X2,Y2,Cr,FCol,BCol)
  Ink BCol,0
  For N=1 To Cr
    Circle X1+Cr,Y1+Cr,N: Circle X1+Cr,Y1+Cr+1,N
    Circle X2-Cr,Y1+Cr,N: Circle X2-Cr,Y1+Cr+1,N
    Circle X2-Cr,Y2-Cr,N: Circle X2-Cr,Y2-Cr+1,N
    Circle X1+Cr,Y2-Cr,N: Circle X1+Cr,Y2-Cr+1,N
  Next N
  Ink FCol,0
  Circle X1+Cr,Y1+Cr,Cr: Circle X2-Cr,Y1+Cr,Cr
  Circle X2-Cr,Y2-Cr,Cr: Circle X1+Cr,Y2-Cr,Cr
  Box X1+Cr,Y1,X2-Cr,Y2: Box X1,Y1+Cr,X2,Y2-Cr
  Ink BCol,0
  Box X1+Cr,Y1+1,X2-Cr,Y2-1: Box X1+1,Y1+Cr,X2-1,Y2-Cr
EndFunction

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

demons breath

22

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 16th Oct 2007 23:51

Link

Yeah I saw your rounded box function on TGPF earlier today, but I've already made mine so...

http://jamesmason01.googlepages.com/index.htm

Back to top

Profile PM Website

TDK

Retired Moderator

23

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 17th Oct 2007 00:16

Link

No obligation...

I didn't try your function, so I wasn't sure if it would work on a screen coloured differently to the background colour you use for the rounded box. (All the examples I've seen before didn't).

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

demons breath

22

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 17th Oct 2007 01:25

Link

The background colour is like the main colour of the rounded rectangle

The foreground is an outline

It copies the entire screen to a new bitmap, draws a box from (x1,y1) to (x2,y2) with a rounded corner (you choose the size), with a border of an integer amount of pixels which you choose coloured a colour you choose, and the main part is a different colour, which you choose, unless you want the rounded rectangle to be see-through. It then pastes it to your bitmap of choice.

It can do a lot, but for simple stuff it's probably overkill... I'm trying to make loads of little, re-useable things at the moment because I have one aim in mind, which I doubt I will ever start on, but I'm working my way up to a re-useable library of functions. That being my first ever function, I still have a long way to go, but... it's a start at least...

http://jamesmason01.googlepages.com/index.htm

Back to top

Profile PM Website

Sorry your browser is not supported!

DarkBASIC Discussion / Drawing rectangles to the screen