Line thickness - GameCreators Forum

Author

Message

Clbembry

19

Years of Service

User Offline

Joined: 10th Dec 2006

Location: Minnesota

Posted: 12th Mar 2011 21:23

Link

Does anyone know of an efficient way to make lines with thickness?

Back to top

Profile PM Email Website

C0wbox

20

Years of Service

User Offline

Joined: 6th Jun 2006

Location: 0,50,-150

Posted: 12th Mar 2011 21:34

Link

Off the top of my head a good way might be to paste a rotated sprite at the centre of the projected line and scale it accordingly. - Then round the ends off with some circle pasted sprites or something (unless you still wanted a rectangular line)

Back to top

Profile PM Email Website

Clbembry

19

Years of Service

User Offline

Joined: 10th Dec 2006

Location: Minnesota

Posted: 12th Mar 2011 21:42

Link

Ah, I see. How would I make a sprite from lines drawn to the screen?

Back to top

Profile PM Email Website

C0wbox

20

Years of Service

User Offline

Joined: 6th Jun 2006

Location: 0,50,-150

Posted: 12th Mar 2011 21:55

Link

Well it's just a case of some basic trigonometry I believe.

Lets say you were trying to make a line from x1,y1 to x2,y2:

+ Code Snippet

x1=32 : y1=32
x2=64 : y2=64
line x1,y1,x2,y2
wait key

In sprite terms you'd need something like this:

+ Code Snippet

x1=32 : y1=32
x2=64 : y2=64
linewidth=5
load image "Single pixel.bmp",1
sprite 1,screen width(),screen height(),1
 size sprite 1,sqrt(((x2-x1)^2)+((y2-y1)^2)),linewidth
do
 rotate sprite 1,atanfull(x2-x1,y2-y1)
 paste sprite 1,(x1+x2)/2,(y1+y2)/2
loop

But of course it would need offset to get the exact location correct and some rounder ends. - And you could change the texture pixel of the line as well to add affects to it if you didn't want it single colour.

Back to top

Profile PM Email Website

Clbembry

19

Years of Service

User Offline

Joined: 10th Dec 2006

Location: Minnesota

Posted: 12th Mar 2011 22:09

Link

The problem is I need the user to be able to draw the lines, so I was using:

+ Code Snippet

if mouseclick() = 1
    line oldx#, oldy#, mousex(), mousey()
    oldx# = mousex()
    oldy# = mousey()
else
    oldx# = mousex()
    oldy# = mousey()
endif

And no, I'm not trying to make a full out drawing program

Back to top

Profile PM Email Website

C0wbox

20

Years of Service

User Offline

Joined: 6th Jun 2006

Location: 0,50,-150

Posted: 12th Mar 2011 22:14

Link

Regardless of whether the user is drawing them you can still use the same method. - Just paste the sprite accordingly as many times as the user draws a line.

Back to top

Profile PM Email Website

Neuro Fuzzy

19

Years of Service

User Offline

Joined: 11th Jun 2007

Location:

Posted: 12th Mar 2011 22:37 Edited at: 12th Mar 2011 22:43

Link

Code snippets/Phalaex!
thick lines:
http://forum.thegamecreators.com/?m=forum_view&t=137834&b=6

anti-aliased lines/circles:
http://forum.thegamecreators.com/?m=forum_view&t=161349&b=6

There are also probably a lot of drawing snippets on his website:
http://zimnox.com/
[edit]
yup

Back to top

Profile PM Email

Rich Dersheimer

AGK Developer

17

Years of Service

User Offline

Joined: 1st Jul 2009

Location: Inside the box

Posted: 12th Mar 2011 22:42

Link

Here's a version that just draws multiple lines. If you want to be able to adjust the thickness, then one of the above links should do it.

+ Code Snippet

do
    if mouseclick() = 1 AND DrawFlag = 1
        newx = mousex()
        newy = mousey()
        line oldx-1,oldy-1,newx-1,newy-1
        line oldx+1,oldy+1,newx+1,newy+1
        line oldx+1,oldy-1,newx+1,newy-1
        line oldx-1,oldy+1,newx-1,newy+1
        line oldx+1,oldy,newx+1,newy
        line oldx-1,oldy,newx-1,newy
        line oldx,oldy+1,newx,newy+1
        line oldx,oldy-1,newx,newy-1
        line oldx,oldy,newx,newy
        oldx = newx
        oldy = newy
    endif
    
    if mouseclick() = 1 AND DrawFlag = 0
        oldx = mousex()
        oldy = mousey()
        DrawFlag = 1
    endif
    
    if mouseclick() = 2 then DrawFlag = 0
loop

Back to top

Profile PM Email

Clbembry

19

Years of Service

User Offline

Joined: 10th Dec 2006

Location: Minnesota

Posted: 12th Mar 2011 22:45

Link

The problem with Phalaex's example is its not actually drawing lines, so if the user moves their cursor fast enough there are gaps between the boxes.

Back to top

Profile PM Email Website

Neuro Fuzzy

19

Years of Service

User Offline

Joined: 11th Jun 2007

Location:

Posted: 12th Mar 2011 22:50

Link

Quote: "The problem with Phalaex's example is its not actually drawing lines, so if the user moves their cursor fast enough there are gaps between the boxes."

huh? it has nothing to do with the speed of the cursor... could you give me an example of there being gaps in between the boxes...?

Back to top

Profile PM Email

Clbembry

19

Years of Service

User Offline

Joined: 10th Dec 2006

Location: Minnesota

Posted: 12th Mar 2011 22:58

Link

Here's Phalaex's code that I slightly changed so it allowed to user to free draw. Just run it and you'll see what I mean.

sync on

oldx# = 0.0
oldy# = 0.0

do
	
	oldx# = mousex()
	oldy# = mousey()
	
	if mouseclick() = 1 and flag = 0 then inc thickness,1 : flag=1
	if mouseclick() = 2 and flag = 0 then dec thickness,1 : flag=1
	if mouseclick() = 0 then flag = 0
	if thickness < 1 then thickness = 1

bline(oldx#,oldy#,mousex(),mousey(),thickness)

set cursor 0,0
	print thickness#

sync
loop

REM =========================
REM x1,y1 = starting point
REM x2,y2 = ending poing
REM thick = line thickness
function bline(x1,y1,x2,y2,thick)
t# = thick/2.0
dx = x2-x1
dy = y2-y1

`dot x1,y1
box x1-t#,y1-t#,x1+t#,y1+t#

if abs(dx) > abs(dy)
  m# = (0.0 + dy)/dx
  b# = y1 - m#*x1

if dx < 0
     dx = -1
  else
     dx = 1
  endif
  while x1 <> x2
     x1 = x1 + dx
     `dot x1,m#*x1+b#
     box x1-t#,(m#*x1+b#)-t#,x1+t#,(m#*x1+b#)+t#
  endwhile
else
  if dy <> 0
     m# = (0.0 + dx)/dy
     b# = x1 - m#*y1
     if dy < 0
        dy = -1
     else
        dy = 1
     endif
     while y1 <> y2
        y1 = y1 + dy
        `dot m#*y1+b#,y1
        box (m#*y1+b#)-t#,y1-t#,(m#*y1+b#)+t#,y1+t#
     endwhile
  endif
endif
endfunction

+ Code Snippet


sync on

oldx# = 0.0
oldy# = 0.0

do
	
	oldx# = mousex()
	oldy# = mousey()
	
	if mouseclick() = 1 and flag = 0 then inc thickness,1 : flag=1
	if mouseclick() = 2 and flag = 0 then dec thickness,1 : flag=1
	if mouseclick() = 0 then flag = 0
	if thickness < 1 then thickness = 1

	bline(oldx#,oldy#,mousex(),mousey(),thickness)

	set cursor 0,0
	print thickness#

	sync
loop




REM =========================
REM x1,y1 = starting point
REM x2,y2 = ending poing
REM thick = line thickness
function bline(x1,y1,x2,y2,thick)
t# = thick/2.0
dx = x2-x1
dy = y2-y1

`dot x1,y1
box x1-t#,y1-t#,x1+t#,y1+t#

if abs(dx) > abs(dy)
  m# = (0.0 + dy)/dx
  b# = y1 - m#*x1

  if dx < 0
     dx = -1
  else
     dx = 1
  endif
  while x1 <> x2
     x1 = x1 + dx
     `dot x1,m#*x1+b#
     box x1-t#,(m#*x1+b#)-t#,x1+t#,(m#*x1+b#)+t#
  endwhile
else
  if dy <> 0
     m# = (0.0 + dx)/dy
     b# = x1 - m#*y1
     if dy < 0
        dy = -1
     else
        dy = 1
     endif
     while y1 <> y2
        y1 = y1 + dy
        `dot m#*y1+b#,y1
        box (m#*y1+b#)-t#,y1-t#,(m#*y1+b#)+t#,y1+t#
     endwhile
  endif
endif
endfunction

Back to top

Profile PM Email Website

Neuro Fuzzy

19

Years of Service

User Offline

Joined: 11th Jun 2007

Location:

Posted: 13th Mar 2011 00:27

Link

you did it wrong o.o

sync on

oldx# = 0.0
oldy# = 0.0
thickness=3
do
	
	if mouseclick() = 1 and flag = 0 then inc thickness,1 : flag=1
	if mouseclick() = 2 and flag = 0 then dec thickness,1 : flag=1
	if mouseclick() = 0 then flag = 0
	if thickness < 1 then thickness = 1

bline(oldx#,oldy#,mousex(),mousey(),thickness)

set cursor 0,0
	print thickness#
	oldx# = mousex()
	oldy# = mousey()

sync
loop

REM =========================
REM x1,y1 = starting point
REM x2,y2 = ending poing
REM thick = line thickness
function bline(x1,y1,x2,y2,thick)
t# = thick/2.0
dx = x2-x1
dy = y2-y1

`dot x1,y1
box x1-t#,y1-t#,x1+t#,y1+t#

if abs(dx) > abs(dy)
  m# = (0.0 + dy)/dx
  b# = y1 - m#*x1

if dx < 0
     dx = -1
  else
     dx = 1
  endif
  while x1 <> x2
     x1 = x1 + dx
     `dot x1,m#*x1+b#
     box x1-t#,(m#*x1+b#)-t#,x1+t#,(m#*x1+b#)+t#
  endwhile
else
  if dy <> 0
     m# = (0.0 + dx)/dy
     b# = x1 - m#*y1
     if dy < 0
        dy = -1
     else
        dy = 1
     endif
     while y1 <> y2
        y1 = y1 + dy
        `dot m#*y1+b#,y1
        box (m#*y1+b#)-t#,y1-t#,(m#*y1+b#)+t#,y1+t#
     endwhile
  endif
endif
endfunction

+ Code Snippet

sync on

oldx# = 0.0
oldy# = 0.0
thickness=3
do
	
	if mouseclick() = 1 and flag = 0 then inc thickness,1 : flag=1
	if mouseclick() = 2 and flag = 0 then dec thickness,1 : flag=1
	if mouseclick() = 0 then flag = 0
	if thickness < 1 then thickness = 1

	bline(oldx#,oldy#,mousex(),mousey(),thickness)

	set cursor 0,0
	print thickness#
	oldx# = mousex()
	oldy# = mousey()

	sync
loop




REM =========================
REM x1,y1 = starting point
REM x2,y2 = ending poing
REM thick = line thickness
function bline(x1,y1,x2,y2,thick)
t# = thick/2.0
dx = x2-x1
dy = y2-y1

`dot x1,y1
box x1-t#,y1-t#,x1+t#,y1+t#

if abs(dx) > abs(dy)
  m# = (0.0 + dy)/dx
  b# = y1 - m#*x1

  if dx < 0
     dx = -1
  else
     dx = 1
  endif
  while x1 <> x2
     x1 = x1 + dx
     `dot x1,m#*x1+b#
     box x1-t#,(m#*x1+b#)-t#,x1+t#,(m#*x1+b#)+t#
  endwhile
else
  if dy <> 0
     m# = (0.0 + dx)/dy
     b# = x1 - m#*y1
     if dy < 0
        dy = -1
     else
        dy = 1
     endif
     while y1 <> y2
        y1 = y1 + dy
        `dot m#*y1+b#,y1
        box (m#*y1+b#)-t#,y1-t#,(m#*y1+b#)+t#,y1+t#
     endwhile
  endif
endif
endfunction

Back to top

Profile PM Email

Clbembry

19

Years of Service

User Offline

Joined: 10th Dec 2006

Location: Minnesota

Posted: 13th Mar 2011 00:49

Link

Oh

,
Thanks

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Line thickness