Print

Please login or register.
1 Hour 1 Day 1 Week 1 Month Forever
Login with username, password and session length

[Hishan]

Im planning a fort based heavily on circles, is there anyway to designate them easily? (they will be of the same size)

[LrZeph]

I always do Hexagons Personally, Easier for me to do.

There is no Real "Easy Way" of drawing a circle, so, you may want to take up a slightly easier shape (hexagons, octogons)

[ThtblovesDF]

Your Mouse

[Hishan]

Mouse drawn circles are very hard to get exactly right, I think I may downgrade to octagons. Also doesnt dTil have some function to designate complex patterns?

[kotekzot]

you mean apart from the ones that you can find through the search facility?

[Eviltyphoon]

AHK ftw:

Code: [Select]

;One full circle
#c::

;Radius is considered as the distance from the origin to circle edge
;with the center square being the origin and considered dimensionless

;From Circle Chart:
; Radius = (Chart#)/2 - 1

outerrad := 4
innerrad := 0

outerEighth("{NumPadDown}","{NumPadUp}","{NumPadRight}","{NumPadLeft}",outerrad)
outerEighth("{NumPadDown}","{NumPadUp}","{NumPadLeft}","{NumPadRight}",outerrad)
outerEighth("{NumPadLeft}","{NumPadRight}","{NumPadUp}","{NumPadDown}",outerrad)
outerEighth("{NumPadLeft}","{NumPadRight}","{NumPadDown}","{NumPadUp}",outerrad)
outerEighth("{NumPadRight}","{NumPadLeft}","{NumPadUp}","{NumPadDown}",outerrad)
outerEighth("{NumPadRight}","{NumPadLeft}","{NumPadDown}","{NumPadUp}",outerrad)
outerEighth("{NumPadUp}","{NumPadDown}","{NumPadLeft}","{NumPadRight}",outerrad)
outerEighth("{NumPadUp}","{NumPadDown}","{NumPadRight}","{NumPadLeft}",outerrad)

innerEighth("{NumPadDown}","{NumPadUp}","{NumPadRight}","{NumPadLeft}",innerrad)
innerEighth("{NumPadDown}","{NumPadUp}","{NumPadLeft}","{NumPadRight}",innerrad)
innerEighth("{NumPadLeft}","{NumPadRight}","{NumPadUp}","{NumPadDown}",innerrad)
innerEighth("{NumPadLeft}","{NumPadRight}","{NumPadDown}","{NumPadUp}",innerrad)
innerEighth("{NumPadRight}","{NumPadLeft}","{NumPadUp}","{NumPadDown}",innerrad)
innerEighth("{NumPadRight}","{NumPadLeft}","{NumPadDown}","{NumPadUp}",innerrad)
innerEighth("{NumPadUp}","{NumPadDown}","{NumPadLeft}","{NumPadRight}",innerrad)
innerEighth("{NumPadUp}","{NumPadDown}","{NumPadRight}","{NumPadLeft}",innerrad)



outerEighth(up,down,left,right,rad)
{
x := 0
y := rad

while y > rad/2
{
dig(up,y)
move(down,y)
dig(right,1)
x++
y := round((sqrt((rad*rad) - (x*x))))
}
move(left,x)
}

innerEighth(up,down,left,right,rad)
{
x := 0
y := rad

while y > rad/2
{
remove(up,y)
move(down,y)
remove(right,1)
x++
y := round((sqrt((rad*rad) - (x*x))))
}
move(left,x)
}

;Utility functions
remove(dir,number)
{
send x
send {Enter}
move(dir, number)
send {Enter}
}

dig(dir,number)
{
send d
send {Enter}
move(dir, number)
send {Enter}
}

move(dir,number)
{
loop {
if number <= 0
{
break
}
send %dir%
number--
}
}
Source:    
Re: COMMUNITY RESOURCE: Circle Templates 3 to 45

[Hishan]

Excuse me, what?

[Smew]

Take that script, execute it with Autohotkey(which is a seperate program).
Note though: it only works well with 40d, if you're using 40d# you'll need to replace all instances of send with sendplay.

[Marko]

If you're running in windowed mode, open up ms paint. Zoom in to 800%. Turn on Grid. Click on the hand-dandy circle tool. Hold down shift. Draw a circle based on how large you want it. Copy pattern tile-by-tile into DF. Viola: circle!

[Hishan]

Ok and ill try the autohotkey thing,


also marko that would be incredibly tedious

[Hishan]

Your code has an error on line 38, theres no valid function.

[Marko]

It's really not that tedious. Honestly

It's really like over five, up one, over 3, up one, over one, up one, up three, over one, up five, over one, etc. etc.

[Loki]

I use an autohotkey script I found in the circle templates topic as well, only it's done using fourths instead of eighths. I've personally edited it a bit and it works just fine for me, using 40d9.

Spoiler (click to show/hide)

;Full circle. Inner radius, outer radius
#g::
fullCircle(8,10)
exit

;Circle sections, if you don't want to make a whole circle
#c::
circleQuarter

("{NumPadDown}","{NumPadUp}","{NumPadRight}","{NumPadLeft}"

,0,0)
circleQuarter

("{NumPadRight}","{NumPadLeft}","{NumPadUp}","{NumPadDown}"

,0,0)
circleQuarter

("{NumPadUp}","{NumPadDown}","{NumPadLeft}","{NumPadRight}"

,0,0)
circleQuarter

("{NumPadLeft}","{NumPadRight}","{NumPadDown}","{NumPadUp}"

,0,0)
exit

fullCircle(inner, outer)
{
  circleQuarter

("{NumPadDown}","{NumPadUp}","{NumPadRight}","{NumPadLeft}"

,inner,outer)
  circleQuarter

("{NumPadRight}","{NumPadLeft}","{NumPadUp}","{NumPadDown}"

,inner,outer)
  circleQuarter

("{NumPadUp}","{NumPadDown}","{NumPadLeft}","{NumPadRight}"

,inner,outer)
  circleQuarter

("{NumPadLeft}","{NumPadRight}","{NumPadDown}","{NumPadUp}"

,inner,outer)
}
;Quarter-circle
circleQuarter(up,down,left,right,inner,outer)
{
  x := 0
  y := 0
  innerBound := % inner*inner
  outerBound := % outer*outer
  loop,%outer%
  {
    if GetKeyState("q", "P")
    {
      break
    }
    loop,%outer% ; For a square that is as large as the

outer radius
    {
      if GetKeyState("q", "P")
      {
        break
      }
      if((x*x)+(y*y) <= outerBound && (x*x)+(y*y) >=

innerBound)
      {
        dig(right,0)
      }

      move(right,1)
      x++
    }
    move(up,1)
    move(left,outer)
    y++
    x := 0
  }
  move(down,outer)
}

;Utility functions
dig(dir,number)
{
  send d
  send {Enter}
  move(dir, number)
  send {Enter}
}

move(dir,number)
{
  loop
  {
    if GetKeyState("q", "P")
    {
      break
    }
    if number <= 0
    {
      break
    }
    send %dir%
    number--
  }
}

windows key + g for the full circle, windows key + c for sections