Snippet - Socoder

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

Hotshot	Created : 25 July 2009 Edited : 25 July 2009 Language : Blitz Max Gradient Amiga Effect :)
Const Screen_X=256 Const Screen_Y=256 Const Depth =0 Graphics (Screen_X,Screen_Y,Depth) For X=1 To Screen_X For Y=1 To Screen_Y SetColor X,Y,X DrawLine X,Y,X,Y Next Next Flip WaitKey --v

Comments
Saturday, 25 July 2009, 20:53
cthug	Pretty: Any reason why you use drawline? I ported to freebasic aswell: #include "SDL/SDL.bi" #include "SDL/SDL_gfx_primitives.bi" #define Screen_X 256 #define Screen_Y 256 #define Depth 0 dim shared as SDL_Surface ptr video dim shared as integer x, y SDL_Init(SDL_INIT_EVERYTHING) video=SDL_SetVideoMode(Screen_X,Screen_Y,Depth, SDL_HWSURFACE or SDL_DOUBLEBUF) for x=1 to Screen_X for y=1 to Screen_Y lineColor(video, x, y, x, y, SDL_MapRGB(video->format, x, y, x)) next y next x SDL_Flip(video) sleep ' EOF --v
Saturday, 25 July 2009, 20:57
cthug	Some modification for xor: #include "SDL/SDL.bi" #include "SDL/SDL_gfx_primitives.bi" #define Screen_X 256 #define Screen_Y 256 #define Depth 0 dim shared as SDL_Surface ptr video dim shared as integer x, y SDL_Init(SDL_INIT_EVERYTHING) video=SDL_SetVideoMode(Screen_X,Screen_Y,Depth, SDL_HWSURFACE or SDL_DOUBLEBUF) for x=1 to Screen_X for y=1 to Screen_Y lineColor(video, x, y, x, y, SDL_MapRGB(video->format, x xor y, y xor x, x xor y)) next y next x SDL_Flip(video) sleep ' EOF --v BlitzMAX: Const Screen_X=256 Const Screen_Y=256 Const Depth =0 Graphics (Screen_X,Screen_Y,Depth) For X=1 To Screen_X For Y=1 To Screen_Y SetColor X~Y,Y~X,X~Y DrawLine X,Y,X,Y Next Next Flip WaitKey --v pic:
Sunday, 26 July 2009, 10:44
Hotshot	Any reason why you use drawline? I could either draw "drawline" or "drawrect" The first things that I didnt know is X~Y as I didnt think blitzmax could do ~ for such as things. Your code is interesting. How do you move Gradient like plasma in blitzmax?
Monday, 27 July 2009, 01:13
cthug	I made an error; code should read: For X=0 To Screen_X For Y=0 To Screen_Y SetColor X~Y,Y~X,X~Y DrawLine X,Y,X,Y Next Next --v NOT For X=1 To Screen_X For Y=1 To Screen_Y SetColor X~Y,Y~X,X~Y DrawLine X,Y,X,Y Next Next --v as for "Gradient like plasma"; I dont know

Gradient

Comments