Rounded Rectangles

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

mike_g	Created : 11 March 2007 Language : Cobra Rounded Rectangles Draws Rounded Rects
Some code I converted to Cobra. program uses pure2d, keyset procedure ROUNDED_RECT(x_pos, y_pos, width, height, roundness, fill, colour) var d, x, y: integer cx: array[4] of integer cy: array[4] of integer start: integer begin if roundness > (width/2) then roundness = width / 2 d = 3 - ((roundness)shl 1) x = 0 y = roundness cx[1] = x_pos + roundness cy[1] = y_pos + roundness cx[2] = x_pos + width - roundness cy[2] = y_pos + roundness cx[3] = x_pos + width - roundness cy[3] = y_pos + height - roundness cx[4] = x_pos + roundness cy[4] = y_pos + height - roundness if fill = 0 //DRAW ROUNDED CORNERS while x < y+1 //TOP LEFT CORNER Pixel (cx[1] - x, cy[1] - y, colour) Pixel (cx[1] - y, cy[1] - x, colour) //TOP RIGHT CORNER Pixel (cx[2] + x, cy[2] - y, colour) Pixel (cx[2] + y, cy[2] - x, colour) //BOTTOM RIGHT CORNER Pixel (cx[3] + x, cy[3] + y, colour) Pixel (cx[3] + y, cy[3] + x, colour) //BOTTOM LEFT CORNER Pixel (cx[4] - x, cy[4] + y, colour) Pixel (cx[4] - y, cy[4] + x, colour) If d < 0 d = d + (x Shl 2) + 6 Else d = d + ((x-y) Shl 2) + 10 y = y - 1 EndIf x = x + 1 wend //DRAW EDGES For x = x_pos+roundness To x_pos+width-roundness Pixel (x, y_pos, colour) Next For x = x_pos+roundness To x_pos+width-roundness Pixel (x, y_pos+height, colour) Next For y = y_pos+roundness To y_pos+height-roundness Pixel (x_pos, y, colour) Next For y = y_pos+roundness To y_pos+height-roundness Pixel (x_pos+width, y, colour) Next else while x < y+1 Line (cx[1]-x, cy[1]-y, cx[1]+x+(width-(roundness2)) , cy[1]-y, colour) Line (cx[1]-y, cy[1]-x, cx[1]+y+(width-(roundness2)) , cy[1]-x, colour) Line (cx[4]-x, cy[4]+y, cx[4]+x+(width-(roundness2)) , cy[4]+y, colour) Line (cx[4]-y, cy[4]+x, cx[4]+y+(width-(roundness2)) , cy[4]+x, colour) If d < 0 d = d + (x Shl 2) + 6 Else d = d + ((x-y) Shl 2) + 10 y = y - 1 EndIf x = x + 1 wend Rect (x_pos, y_pos+roundness, width, height-(roundness*2), colour, 1) endif end var i: integer a: integer colour:integer begin openscreen a=1 colour = ToRGBA(100, 0, 0) while not KeyDown(vk_escape) cls ROUNDED_RECT(100, 100, 200, 200, i, 1, colour) ROUNDED_RECT(500, 100, 200, 200, i, 0, colour) i=i+a if i = 50 then a = -a if i = 0 then a = -a flip wend end --v

Comments

Rounded Rectangles

Comments