-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0|165|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-

HoboBen

Algorithm to Draw a Line of Arbitrary Thickness
4th September 2010 Cobra
By modifying Bresenham's line algorithm to plot rectangles instead of pixels, it is possible to draw lines of any thickness.
[code]
Program
Uses
pure2d,
keyset
Procedure BLine(x0: Integer, y0: Integer, x1: Integer, y1: Integer, color*snip*

HoboBen

Simple Random Terrain Generator
14th May 2010 Cobra, Windows
Simple fractal random terrain generation. Less than 100 lines of code, including displaying to screen. Adjustable turbulence.
[code]
{
By Ben Golightly 2010, tophatstuff.co.uk
Feel free to modify and use with or without credit
}
Program
*snip*

flying_cucco

Falling Sand
12th May 2007 Cobra, Windows
My first Cobra program

mike_g

Amoeba Things In Cobra
11th March 2007 Cobra
A Cobra version of a Blitz prog I posted a while back. It now has a fill parameter using the built in FloodFill command, which makes it look much nicer :)
[code]
program
uses pure2d, keyset
var
fuzzer: array[10, 360] of integer
fuzzdir: *snip*

mike_g

Rounded Rectangles
11th March 2007 Cobra
Draws Rounded Rects
More - Older Posts