Amoeba Things In Cobra

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|547\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Graphical Effects

mike_g	Created : 11 March 2007 Language : Cobra Amoeba Things In 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 program uses pure2d, keyset var fuzzer: array[10, 360] of integer fuzzdir: array[10, 360] of integer procedure FUZZ_INIT(number, intensity, fuzz) var i:integer begin for i = 1 to fuzz fuzzer[number, i] = Rand(0, intensity) next end procedure FUZZY_CIRCLE(number, cx, cy, rad, fuzz, intensity, vibration, randy, colour, fill) var angle_step: real degrees: real first_x, first_y: integer last_x, last_y: integer this_x, this_y: integer i: integer begin angle_step = (toreal(360) / toreal(fuzz)) first_x = (cx - (rad +fuzzer[number, 1]) * Cos(degrees)) first_y = (cy - (rad +fuzzer[number, 1]) * Sin(degrees)) this_x = (cx - (rad +fuzzer[number, 1]) * Cos(degrees)) this_y = (cy - (rad +fuzzer[number, 1]) * Sin(degrees)) FUZZ_MOVE(number, 1, intensity, vibration, randy) For i = 2 To fuzz degrees = degrees + angle_step last_x = this_x last_y = this_y FUZZ_MOVE(number, i, intensity, vibration, randy) this_x = (cx - (rad +fuzzer[number, i]) * Cos(degrees)) this_y = (cy - (rad +fuzzer[number, i]) * Sin(degrees)) Line (last_x, last_y, this_x, this_y, colour) Next Line (this_x, this_y, first_x, first_y, colour) if fill = 1 then FloodFill(cx, cy, colour, colour, TRUE) end procedure FUZZ_MOVE(number, i, intense, vibration, randy) begin If fuzzdir[number, i] = 0 fuzzer[number, i] = fuzzer[number, i] + vibration +Rand(0, randy) Else fuzzer[number, i] = fuzzer[number, i] - vibration -Rand(0, randy) EndIf If fuzzer[number, i] >= intense fuzzdir[number, i] = 1 else if fuzzer[number, i] <= -intense fuzzdir[number, i] =0 endif EndIf end begin openscreen(1024, 768) FUZZ_INIT(1, 100, 360) FUZZ_INIT(2, 100, 360) FUZZ_INIT(3, 100, 360) FUZZ_INIT(4, 100, 360) FUZZ_INIT(5, 100, 360) while not keydown(vk_escape) Cls FUZZY_CIRCLE(2, 300, 300, 180, 200, 50, 4, 1, ToRGBA(200, 0, 0),1) FUZZY_CIRCLE(3, 300, 300, 100, 120, 40, 3, 1, ToRGBA(200, 100, 0),1) FUZZY_CIRCLE(2, 300, 300, 50, 60, 30, 2, 1, ToRGBA(200, 150, 0),1) FUZZY_CIRCLE(1, 300, 300, 30, 40, 10, 1, 1, ToRGBA(200, 200, 50),1) FUZZY_CIRCLE(1, 300, 300, 20, 30, 2, 1, 0, ToRGBA(200, 200, 200),1) FUZZY_CIRCLE(5, 650, 160, 80, 20, 10, 2, 0, ToRGBA(50, 80, 120),1) FUZZY_CIRCLE(5, 660, 150, 50, 15, 10, 2, 0, ToRGBA(50, 120, 200),1) Flip wend end --v

Comments
Monday, 12 March 2007, 11:47
HoboBen	Awesome! Thanks for another great example. Cool
Monday, 12 March 2007, 13:24
mike_g	Cheers dude I should be buying Cobra sometime in the next month or so. When I got it I plan on making something like an extended vector graphics module with some of the stuff here plus some new stuff I got ideas for wrapped up into one lump.

Comments