everything to do with stanrol's code

Blitz3D Forums/Blitz3D Beginners Area/everything to do with stanrol's code

stanrol

(Posted 2010) [#1]

all my posts will be in here.

Code from files of Blitz3D
http://stanrol.eu5.org/code/

For beers = 1 To 101
Print beers+" beers bottle on the wall; i am not drunk [sp]."
Next
WaitKey

slenkar

(Posted 2010) [#2]

nice to have it all in one place

_Skully

(Posted 2010) [#3]

Like a collection!

stanrol

(Posted 2010) [#4]

progressbar code

AppTitle "progress bar"
SetBuffer  BackBuffer()
For i=1 To 100
Cls
Color 0,0,255
Rect 1,1,200,44,1
Color 0,255.0*(Float(i)/100),0
Rect 2,2,199*(Float(i)/100),43,1
Flip
Delay 100
VWait
Next

stanrol

(Posted 2010) [#5]

simpl e drawing app.


While Not KeyHit(1)
If MouseDown(1) Then
Plot MouseX(),MouseY()
End If
Wend

stanrol

(Posted 2010) [#6]

line drawing hack

AppTitle "Esc to quit"
prevx=0
prevy=0
While Not KeyHit(1)
If MouseHit(1) Then
DebugLog "line "+prevx+", "+prevy+","+MouseX()+","+MouseY()
Line prevx,prevy,MouseX(),MouseY()
prevy=MouseY()
prevx=MouseX()
End If
Wend

stanrol

(Posted 2010) [#7]

a pic of a person.

Line 120, 214,162,126
Line 162, 126,155,60
Line 155, 60,110,63
Line 110, 63,211,53
Line 211, 53,159,56
Line 159, 56,141,39
Line 141, 39,127,25
Line 127, 25,141,4
Line 141, 4,162,7
Line 162, 7,176,21
Line 176, 21,169,42
Line 169, 42,159,49
Line 159, 49,155,80
Line 155, 80,162,126
Line 162, 126,225,192

;Wend
WaitKey

GfK	(Posted 2010) [#8]

Why don't you use a worklog instead??

Brucey

(Posted 2010) [#9]

Why don't you use a worklog instead??

Because people can't comment on worklogs? :-)

GfK	(Posted 2010) [#10]

Because people can't comment on worklogs? :-)

According to past form that might be a good thing.

slenkar

(Posted 2010) [#11]

TROLL

Robert Cummings

(Posted 2010) [#12]

I'm a fan of Stanrol. Cool guy indeed, he's out there getting stuff DONE.

stanrol

(Posted 2010) [#13]

death scene like Quake and Doom

Dim done(GraphicsWidth(),GraphicsHeight())
;i=LoadImage("doom11.jpg")
;DrawImage i,0,0
Repeat
x=Rand(0,GraphicsWidth())
y=Rand(0,GraphicsHeight())
If done(x,y)=0 Then
Color 255,0,0
Plot x,y
done(x,y)=1
End If
Forever

slenkar

(Posted 2010) [#14]

Space Picture creator for blitzmax

Graphics 800,600

Local done[GraphicsWidth()+1,GraphicsHeight()+1]

SetColor 0,0,0
DrawRect 0,0,GraphicsWidth(),GraphicsHeight()
Flip

Local iter
Local limit=200
While iter<limit

x=Rand(0,GraphicsWidth())
y=Rand(0,GraphicsHeight())
If done(x,y)=0 Then
SetColor 255,255,255
Plot x,y
done(x,y)=1
iter:+1
Flip
End If
Wend

While Not KeyHit(key_escape)

Wend

stanrol

(Posted 2010) [#15]

circle using trig.

For i=1 To 360
Plot Cos(i)*100+100,Sin(i)*100+100
Delay 10
Next

GIB3D

(Posted 2010) [#16]

I was doing a Circle function and stumbled upon a Star function and thought you might want to see it...

Graphics 800,600,0,2
SetBuffer BackBuffer()

Local toggle
While Not KeyHit(1)
	Cls
		Select toggle
			Case True
				i = i + 1
				If i => 300
					toggle = Not toggle
				EndIf
			Case False
				i = i - 1
				If i <= 0
					i = 0
					toggle = Not toggle
				EndIf
		End Select
		
		Circle(400,300,i)
		Star(400,300,i)
	Flip
	Delay 5
Wend

Function Star(x,y,size#)
	Local x2#,y2#
	
	x2 = Cos(0)*size+x
	y2 = Sin(0)*size+y
	
	For i=-180 To 180 Step 45
		Line x2,y2,Cos(i+180)*size+x,Sin(i+180)*size+y
		x2 = Cos(i)*size+x
		y2 = Sin(i)*size+y
	Next
End Function

Function Circle(x,y,size#)
	Local x2#,y2#
	
	x2 = Cos(-180)*size+x
	y2 = Sin(-180)*size+y
	
	For i=-180 To 180
		Line x2,y2,Cos(i)*size+x,Sin(i)*size+y
		x2 = Cos(i)*size+x
		y2 = Sin(i)*size+y
	Next
End Function

stanrol

(Posted 2010) [#17]

interesting.

grasss

Graphics 555,555,0,2
Color 0,255,0
For i = 1 To GraphicsWidth()
Line i,Sin(i)*55+55,i,GraphicsHeight()
Next
WaitKey

Ked	(Posted 2010) [#18]

Is no one really going to stop him?!

_Skully

(Posted 2010) [#19]

Why.. its confined to one thread. Let him play... it was just the multi-thread thing that was annoying me. And.. its possible that real newby's might find this simple encapsulation of how to's useful... who knows!

stanrol,
You should include the graphics initialization code with the examples if the aim is to help new coders... since they may not realize that those examples won't work without the graphics command to intialize and a flip at the bottom of the loop/code.

*	(Posted 2010) [#20]

agreed, its good to see how he develops as a coder :)

Nate the Great

(Posted 2010) [#21]

@ skully

no graphics initialization is needed in b3d :)

_Skully

(Posted 2010) [#22]

I never knew that LOL.. k then.. i'll erm... shutup ;)

stanrol

(Posted 2010) [#23]

Hungarian flag

http://stanrol.eu5.org/hungarian%20flag.zip

Graphics 555,555,0,2
For i = 1 To GraphicsWidth()
Color 255,0,0
a=56
Line i,Sin(i)*a+55,i,Sin(i)*a+155
Color 255,255,255
Line i,Sin(i)*a+156,i,Sin(i)*a+256
Color 0,255,1
Line i,Sin(i)*a+257,i,Sin(i)*a+357
Next
WaitKey

andy_mc

(Posted 2010) [#24]

This reminds me of some "Amstrad Action" used to do. They used to run 10 line type-ins every month to see what complete programs people could write using just 10 lines of code.

JustLuke

(Posted 2010) [#25]

Err... That's not what the Hungarian flag looks like, Stanrol. Well, not unless the flag has been made out of half-melted butter.

slenkar

(Posted 2010) [#26]

its flapping in the breeze

Nate the Great

(Posted 2010) [#27]

@slenkar

now its flapping in the breeze!

Graphics 555,555,0,2

SetBuffer BackBuffer()
b = 0
While Not KeyDown(1)
	Cls
	b = b + 1
	For i = 1 To GraphicsWidth()
		Color 255,0,0
		a=56
		Line i,Sin(i)*a*Sin(b)+55,i,Sin(i)*a*Sin(b)+155
		Color 255,255,255
		Line i,Sin(i)*a*Sin(b)+156,i,Sin(i)*a*Sin(b)+256
		Color 0,255,1
		Line i,Sin(i)*a*Sin(b)+257,i,Sin(i)*a*Sin(b)+357
	Next
	
	Flip
Wend

End

beanage

(Posted 2010) [#28]

@Stanrol
Just you'd know, the first pixel has an index of Zero. With

For i = 1 To GraphicsWidth()

you get a black line on the left side of the window :)

slenkar

(Posted 2010) [#29]

now its flapping in the breeze!

niiiccee

stanrol

(Posted 2010) [#30]

weird spinning needle

version 2

SetBuffer BackBuffer()
AppTitle "ONLY esc works to quit"
i=0
While Not KeyHit(1)
Cls
AppTitle (Float(Sqr#(Abs(MouseX()-Cos(i Mod 359)*100+111))/100)*255.0)
Color 0,200+Int(Float(Sqr#(Abs(MouseX()-Cos(i Mod 359)*100+111))/100)*255.0),0
Line MouseX(),MouseY(),Cos(i Mod 359)*100+111,Sin(i Mod 359)*100+111
i=i+1
Flip
Wend

SetBuffer BackBuffer()
AppTitle "ONLY esc works to quit"
i=0
While Not KeyHit(1)
Cls
Line MouseX(),MouseY(),Cos(i Mod 359)*100+111,Sin(i Mod 359)*100+111
i=i+1
Flip
Wend

stanrol

(Posted 2010) [#31]

acrobatics

i=0
SetBuffer BackBuffer()
While Not KeyHit(1)
Cls
Line Cos(i)*100+111,Sin(i)*100+111,105,105
Line Cos((i+90) Mod 360)*100+111,Sin((i+90) Mod 360)*100+111,55,55
Flip
i=i+1
VWait
Wend

Brucey

(Posted 2010) [#32]

:o)

' "stanrol" - Home Sweet Home ;-)
' v2
SuperStrict

Local s:Int[] = [19,284,269,120,156,189,136,177,287,208,43,262,96,213,14,126,26,63,158,190,274,184,22,155,176,116,119,207,222,66,227,169,137,50,25,252,149,203,178,249,263,193,218,82,245,250,99,148,84,174,52,97,9,273,225,48,286,243,33,125,164,114,54,146,16,253,21,244,100,117,171,40,170,141,255,173,234,8,266,12,108,74,115,7,103,32,241,257,30,91,17,198,104,280,161,49,37,199,75,229,153,165,39,69,223,59,145,60,275,172,68,87,76,157,150,35,285,265,220,133,130,268,111,88,197,86,106,94,204,167,28,10,95,24,38,77,101,92,4,278,236,240,81,180,67,29,45,283,107,259,143,147,288,5,129,196,192,85,36,123,6,205,80,122,118,261,64,1,219,182,42,47,58,230,211,264,121,18,0,144,217,221,181,163,20,46,242,231,237,89,212,271,276,79,232,73,235,159,179,142,83,224,214,151,233,13,186,128,102,200,183,98,289,194,154,270,78,53,272,112,188,138,247,2,166,162,168,11,93,260,135,62,127,109,258,34,110,251,140,206,57,238,131,216,209,139,248,65,23,277,210,228,56,226,44,61,267,124,191,185,105,202,187,175,41,72,160,256,254,15,134,239,246,71,55,152,27,282,113,215,3,31,195,281,51,90,132,70,201,279]
Local s2:Int[] = [240,188,2,207,190,193,7,189,186,17,3,227,199,246,252,235,0,194,192,195,198,191,1,215,207,241,246,249,189,189,203,195,254,183,1,222,248,197,192,193,233,199,192,188,220,200,180,253,200,253,248,216,2,191,193,249,196,245,197,8,195,246,209,202,248,227,192,242,250,3,193,201,210,207,190,4,197,238,212,6,245,199,0,1,226,253,13,10,244,193,249,179,224,213,190,252,3,14,196,192,214,192,243,191,198,197,253,207,190,180,197,204,179,190,220,1,186,193,194,208,195,197,196,198,249,201,197,192,11,202,1,4,201,188,239,18,247,188,203,197,191,237,220,194,194,208,252,185,178,207,184,180,194,195,251,201,208,196,3,214,195,238,250,241,246,244,197,8,196,194,254,207,188,198,186,211,210,205,250,246,190,204,190,192,14,254,253,191,200,192,239,15,196,254,193,200,198,190,207,194,188,201,0,186,196,14,194,242,206,209,196,195,212,184,188,243,7,249,201,197,194,250,201,8,189,189,209,192,197,248,186,195,188,3,247,1,206,254,1,5,214,184,7,206,209,246,3,203,253,199,244,197,192,189,197,198,207,11,205,185,210,216,192,252,4,202,196,217,231,249,207,1,218,198,185,210,2,186,248,0,253,201,19,199,1,189,0,198,189,205]

Local name:String

While Not name

	name = Input("Name : ")

Wend

Local ub:Byte[] = New Byte[s.length]

Local tick:Int
For Local i:Int = 0 Until s.length
	ub[s[i]]=Byte(s2[i])+name[tick]
	tick:+1
	If tick = name.length Then
		tick = 0
	End If
Next
Local url:String = String.FromBytes(ub, ub.length)

If Not url.StartsWith("http") Then
	Print "This is not your home!"
	End
End If

OpenURL(url)

stanrol

(Posted 2010) [#33]

Executing:untitled1.debug.exe
Name : This is not your home!

Process complete

MGE	(Posted 2010) [#34]

Actually...this is fun stuff for noobs and possible non noobs. ;) Just wish it wouldn't bump the more recent showcases off the top. :(

Polan

(Posted 2010) [#35]

I managed to crash Brucey code.

GaryV

(Posted 2010) [#36]

I managed to crash Brucey code.

Try as he might, Brucey is no stanrol ;)

LineOf7s

(Posted 2010) [#37]

Soon we're gonna need an entire thread just for stanrol's ever-growing signature links.

stanrol

(Posted 2010) [#38]

woman

Line 0, 0,105,166
Line 105, 166,111,96
Line 111, 96,160,54
Line 160, 54,220,47
Line 220, 47,301,78
Line 301, 78,297,113
Line 297, 113,294,169
Line 294, 169,269,180
Line 269, 180,245,177
Line 245, 177,241,149
Line 241, 149,241,138
Line 241, 138,217,89
Line 217, 89,178,100
Line 178, 100,160,117
Line 160, 117,160,145
Line 160, 145,160,159
Line 160, 159,160,173
Line 160, 173,105,169
Line 105, 169,161,173
Line 161, 173,174,190
Line 174, 190,195,208
Line 195, 208,244,208
Line 244, 208,244,180
Line 244, 180,244,177
Line 244, 177,234,145
Line 234, 145,224,138
Line 224, 138,217,155
Line 217, 155,203,155
Line 203, 155,203,152
Line 203, 152,203,145
Line 203, 145,209,128
Line 209, 128,224,131
Line 224, 131,224,138
Line 224, 138,213,128
Line 213, 128,202,145
Line 202, 145,196,145
Line 196, 145,189,135
Line 189, 135,178,135
Line 178, 135,178,141
Line 178, 141,178,152
Line 178, 152,195,162
Line 195, 162,195,156
Line 195, 156,195,149
Line 195, 149,195,145
WaitKey

elcoo

(Posted 2010) [#39]

Why don't you use the standart windows screenshot function to get rid of those HyperSnap banners?

stanrol

(Posted 2010) [#40]

good advice

puki	(Posted 2010) [#41]

It's upside down:

stanrol

(Posted 2010) [#42]

Line 0, 0,78,140
Line 78, 140,78,203
Line 78, 203,133,199
Line 133, 199,144,220
Line 144, 220,182,220
Line 182, 220,189,196
Line 189, 196,298,193
Line 298, 193,305,220
Line 305, 220,350,224
Line 350, 224,354,185
Line 354, 185,378,185
Line 378, 185,364,102
Line 364, 102,260,98
Line 260, 98,228,39
Line 228, 39,162,45
Line 162, 45,148,105
Line 148, 105,74,112
Line 74, 112,77,133
WaitKey

Leon Drake

(Posted 2010) [#43]

if yor a programmer and you don't know about print scrn on your keyboard you deserved to be slapped..... hard

Who was John Galt?

(Posted 2010) [#44]

Hahah! Undoubtedly, he does know. He's just being 'zany'. So long as it's confined to a single thread, I find it amusing rather than irritating.

Kryzon

(Posted 2010) [#45]

Is that you, puki?

stanrol

(Posted 2010) [#46]

the rocky mountains


line 0, 0,95,231
line 95, 231,161,151
line 161, 151,214,231
line 214, 231,252,154
line 252, 154,280,217
line 280, 217,319,172
line 319, 172,340,213
line 340, 213,389,91
line 389, 91,372,130
line 372, 130,379,147
line 379, 147,385,137
line 385, 137,396,137
line 396, 137,396,112
line 396, 112,393,88
waitkey

stanrol

(Posted 2010) [#47]

diamond


line 0, 0,97,147
line 97, 147,244,14
line 244, 14,356,161
line 356, 161,213,283
line 213, 283,97,147
line 97, 147,227,189
line 227, 189,353,158
waitkey

stanrol

(Posted 2010) [#48]

homing beam

Graphics 777,777,0,2
SetBuffer BackBuffer()
x=0
y=0
Repeat
d#=Sqr#(sq#(MouseX()-x)+sq#(MouseY()-y))
AppTitle Str(d#)
Color 255*((d#/777.0)/Float(1)),11,11
Cls
Oval x,y,11,11,1
If MouseX()>x Then
x=x+3
Else
x=x-3
End If
If MouseY()>y Then
y=y+3
Else
y=y-3
End If
Flip
VWait
Forever
Function sq#(a#)
Return a#*a#
End Function

Adam Novagen

(Posted 2010) [#49]

Is no one really going to stop him?!

Nope. We've been stanrol'd. O U C WAT I DID THAR XD

But anyway, I'm with Skully on this, let him play. As long as it stays in this thread and he doesn't start doing anything stupid or rude, where's the harm? :D

stanrol

(Posted 2010) [#50]

distance color

Repeat
Cls
Color 0,Int(Float(255)*(Sqr#(sq#(MouseX()-0)+sq#(MouseY()))/Float(700))),0
Line 0,0,MouseX(),MouseY()
VWait
Forever


Function sq#(a#)
Return a#*a#
End Function

stanrol

(Posted 2010) [#51]

moving circle
arrow keys to mve.

SetBuffer BackBuffer()
Local x=0,y=0
AppTitle "Press the arrows to move"
While Not KeyHit(1)
Cls
Color 1,255,1
Oval 3+x,3+y,55,55,1
Flip
If KeyHit(200) Then
y=y-55
Else If KeyHit(208) Then
y=y+55
Else If KeyHit(203) Then
x=x-55
Else If KeyHit(205) Then
x=x+55
End If
vwait
Wend

MusicianKool

(Posted 2010) [#52]

The best computer AI ever!. It guesses colors. see if you can beat it.

Global gw = 800,gh = 600
Graphics gw,gh,32,2
gw = gw/2:gh = gh/2
SeedRnd MilliSecs()
SetBuffer BackBuffer()

Global fntArialB=LoadFont("Arial",88) 
Global fntArialN=LoadFont("Arial",24) 

Dim ColValue(7,2)
Restore ColorValues
For i = 1 To 7
	Read ColValue(i,0):Read ColValue(i,1):Read ColValue(i,2)
Next

Dim ColName$(7)
Restore ColorNames
For i = 1 To 7
	Read ColName$(i)
Next
col = Rand(1,7):orbr = 100
While Not KeyHit(1)
		Cls
		
		If count > dyl Then	nam = Rand(1,7):count = 0:dyl = Rand(50,100):	em = Rand(0,2):en = Rand(0,3):sz = Rand(0,2)
		Color ColValue(col,0),ColValue(col,1),ColValue(col,2)
		Orb(gw,gh,orbr)
	
		If col = nam Then 
			If count = dyl Then col = Rand(1,7)
			If nam <> tname Then Score = Score + 10:MakeP10():orbr = 100
			SetFont fntArialB
			Color 255,255,255
			Locate gw-70,gh+100
			Print "Yes!":orbr = orbr + 10
		Else
		
			SetFont fntArialN
			If score > 50 Then FinishingMove(score)
			orbr = 100
			If nam <> tname Then score = score - 1
			Color 255,255,255
			Locate gw-10,gh+100
			Print "No."
		EndIf
		
		Color 255,255,255
		Locate 0,0
		SetFont fntArialN
		Print "Your Score: 0"
		Print "Computers Score: " + score
		
		Select em:Case 0:n = 33
			Case 1:	n = 46
			Case 2:	n = 63
		End Select
		Select en:Case 0:what$ = "It's "
			Case 1:what$ = "No It's "
			Case 2:what$ = "Ah, ah ,ah... "
			Case 3:what$ = "Is it not "
		End Select
		fin$ = What+ColName(nam)
		Locate gw-(Len(fin)/2)*10,gh-147
		Print fin$
		If sz = 1 Then 
			SetFont fntArialB:Text (gw-50)+Len(fin)*10,gh-199,Chr(n)
		Else:Text (gw-50)+Len(fin)*10,gh-147,Chr(n):EndIf
	
	UpdateP10()
	Flip
	
	tname = nam
	count = count + 1
Wend

Function Orb(X#,Y#,Radius#,Solid = 1)
	Oval X - Radius,Y - Radius,Radius*2,Radius*2,Solid
End Function

.ColorNames
Data "red","green","blue","white","yellow","magenta","aqua"
.ColorValues
Data 255,0,0,0,255,0,0,0,255,255,255,255,255,255,0,255,0,255,0,255,255

Type PLUS10
	Field x,Y,age
End Type

Function UpdateP10()
	For p.Plus10 = Each Plus10
		Color Rand(255),Rand(255),Rand(255)
		SetFont fntarialn
		p\y = p\y - 1
		Text p\x,p\y,"+10"
		p\age = p\age + 1
		If p\age > 200 Then Delete p
	Next
End Function

Function MakeP10()
	P.Plus10 = New PLUS10
	p\y = gh+Rand(-100,100)
	p\x = gw+Rand(-100,100)
End Function

Function FinishingMove(score)
	While Not KeyHit(1)
		Cls
		Color 255,255,255
		Locate 0,0
		SetFont fntArialN
		Print "Your Score: 0"
		Print "Computers Score: " + score
		Locate 200,200
		Print "Ultra Guess~"
		Print"Computer wins!"
		Print " Humans are no gud at gusssin! "
		MakeP10():Score = score + 10
		UpdateP10()
		Flip
	Wend
	Cls
	Color 255,255,255
	Print "Hahahaha I've bested u again!"
	Print "humans 0"
	Print "Computer " +score
	Flip
	Delay(4000)
	End
End Function

Serpent

(Posted 2010) [#53]

this is looking beginning to like a 'Free-For-All' thread now :)

stanrol

(Posted 2010) [#54]

new

s$="say this word"
For i=1 To Len(s$)
AppTitle Mid$(s$,i,1)
Delay 2111
Next

Dabhand

(Posted 2010) [#55]

Since your playing with lines, heres something I think you'll like... It's a 2D '3D' cube I made for Qube a while back... BlitzMax only, but, if you can pick up anything from it, well, be my guest:-

Framework BRL.D3D7Max2D

Type vector
  Field x:Float
  Field y:Float
  Field z:Float
	Field xp:Float
	Field yp:Float
End Type

Type Triangle
  Field p1:Long
  Field p2:Long
  Field p3:Long
  Field dotProduct:Float
End Type

Global P:vector[9]   'We need eight vectors and 12 triangles, but adding 
Global T:Triangle[13]	'But I'm adding one more so we can index them them 
						'from 1, instead of 0... Just to ease readibility.
For loop = 0 To 12
	If loop< 9
		P[loop] = New vector
	End If
	T[loop] = New Triangle
Next

Const CULL_BACK_FACES = True     
Const PERSPECTIVE_MODE = True 


Global Offset:Float = 300
Global turnRate:Float = 1
Global pointOfView:Float
Init(200)

Graphics 800,600

Repeat
Cls

If KeyDown(KEY_LEFT)
	RotateCubeZ(-turnRate)
End If

If KeyDown(KEY_RIGHT)
	RotateCubeZ(turnRate)
End If 

If KeyDown(KEY_UP)
	RotateCubeX(-turnRate)
End If

If KeyDown(KEY_DOWN)
	RotateCubeX(turnRate)
End If 

If KeyDown(KEY_S)
	RotateCubeY(-turnRate)
End If

If KeyDown(KEY_A)
	RotateCubeY(turnRate)
End If 

If CULL_BACK_FACES = True
	CullBackFaces() 
End If

If PERSPECTIVE_MODE = True 
	CalculatevectorProjections()
End If 



DrawCube()
Flip(1) 
Until KeyDown(KEY_ESCAPE)

Function CullBackFaces()
Local loop:Int
For loop = 1 To 12
	CalculateCrossProduct(loop)
	T[loop].dotProduct = CalculateDotProduct()
Next
End Function

Function CalculatevectorProjections()
	Local loop:Int
	For loop = 1 To 8
		P[loop].xp = P[loop].X * pointOfView / (pointOfView + P[loop].Z) + Offset
    P[loop].yp = P[loop].Y * pointOfView / (pointOfView + P[loop].Z) + Offset
	Next
End Function

Function CalculateCrossProduct(triangleIndex:Long)
  Local x1:Float, y1:Float, z1:Float, x2:Float, y2:Float, z2:Float
  x1 = P[T[triangleIndex].p2].X - P[T[triangleIndex].p1].X
  y1 = P[T[triangleIndex].p2].Y - P[T[triangleIndex].p1].Y
  z1 = P[T[triangleIndex].p2].Z - P[T[triangleIndex].p1].Z
  
  x2 = P[T[triangleIndex].p3].X - P[T[triangleIndex].p1].X
  y2 = P[T[triangleIndex].p3].Y - P[T[triangleIndex].p1].Y
  z2 = P[T[triangleIndex].p3].Z - P[T[triangleIndex].p1].Z
  
  P[0].X = y1 * z2 - y2 * z1
  P[0].Y = x2 * z1 - x1 * z2
  P[0].Z = x1 * y2 - x2 * y1
End Function 

Function CalculateDotProduct:Float()
  Return(0 * P(0).X + 0 * P(0).Y + (pointOfView * P(0).Z))
End Function

Function RotateCubeX(angle:Float)
  Local NewY:Float, NewZ:Float,loop:Int 
  For loop = 1 To 8
    NewY = P[loop].Y * Cos(angle) - P[loop].Z * Sin(angle)
    NewZ = P[loop].Y * Sin(angle) + P[loop].Z * Cos(angle)
    P[loop].Y = NewY
    P[loop].Z = NewZ
  Next 
End Function 

Function RotateCubeZ(angle:Float)
Local newX:Float,newY:Float,loop:Int
For loop = 1 To 8
	NewX = P[loop].X * Cos(angle) - P[loop].Y * Sin(angle)
  NewY = P[loop].X * Sin(angle) + P[loop].Y * Cos(angle)
	P[loop].X = NewX
  P[loop].Y = NewY
Next
End Function

Function RotateCubeY(angle:Float)
  Local loop:Int,NewX:Float, NewZ:Float 
    For loop = 1 To 8
      NewX = P[loop].Z * Sin(angle) + P[loop].X * Cos(angle)
      NewZ = P[loop].Z * Cos(angle) - P[loop].X * Sin(angle)
      P[loop].X = NewX
      P[loop].Z = NewZ
    Next 
End Function 

Function DrawCube() 	
Local loop:Int, draw:Byte

If CULL_BACK_FACES = True Then draw = True 

For loop = 1 To 12
	If (draw = True And T[loop].dotProduct > 0.5) Or draw = False 
	DrawColouredLine(T(loop).p1,T(loop).p2)
	DrawColouredLine(T(loop).p2,T(loop).p3)
	DrawColouredLine(T(loop).p3,T(loop).p1)
	End If 
Next
End Function

Function Init(size:Float)
	If CULL_BACK_FACES = False 
  	pointOfView = 1000
	Else
		pointOfView = 5000
	End If
	
	P[1].x = -size; P[1].y = -size; P[1].z = -size
  P[2].x = -size; P[2].y = size; P[2].z = -size
  P[3].x = size; P[3].y = size; P[3].z = -size
  P[4].x = size; P[4].y = -size; P[4].z = -size
  P[5].x = -size; P[5].y = -size; P[5].z = size
  P[6].x = -size; P[6].y = size; P[6].z = size
  P[7].x = size; P[7].y = size; P[7].z = size
  P[8].x = size; P[8].y = -size; P[8].z = size
 
  T[1].p1 = 1; T[1].p2 = 4; T[1].p3 = 3
  T[2].p1 = 1; T[2].p2 = 3; T[2].p3 = 2
  T[3].p1 = 5; T[3].p2 = 1; T[3].p3 = 2
  T[4].p1 = 5; T[4].p2 = 2; T[4].p3 = 6
  T[5].p1 = 8; T[5].p2 = 5; T[5].p3 = 6
  T[6].p1 = 8; T[6].p2 = 6; T[6].p3 = 7
  T[7].p1 = 4; T[7].p2 = 8; T[7].p3 = 7
  T[8].p1 = 4; T[8].p2 = 7; T[8].p3 = 3
  T[9].p1 = 3; T[9].p2 = 7; T[9].p3 = 6
  T[10].p1 = 3; T[10].p2 = 6; T[10].p3 = 2
  T[11].p1 = 4; T[11].p2 = 1; T[11].p3 = 5
  T[12].p1 = 4; T[12].p2 = 5; T[12].p3 = 8 
End Function 

Function DrawColouredLine(p1:Long,p2:Long,r:Byte =255,g:Byte = 255,b:Byte = 255)
Local x1:Float, y1:Float,x2:Float,y2:Float

If PERSPECTIVE_MODE = True
	x1 = P[p1].X * pointOfView / (pointOfView + P[p1].Z) + Offset
  y1 = P[p1].Y * pointOfView / (pointOfView + P[p1].Z) + Offset
  x2 = P[p2].X * pointOfView / (pointOfView + P[p2].Z) + Offset
  y2 = P[p2].Y * pointOfView / (pointOfView + P[p2].Z) + Offset	
Else
	x1 = P(p1).x + offset
	y1 = P(p1).y + offset
	x2 = P(p2).x + offset
	y2 = P(p2).y + offset
End If
SetColor r,g,b
DrawLine x1,y1,x2,y2
SetColor 255,255,255
End Function

Executable is here: http://www.blitzmonkeys.com/adminfiles/dabz/cube.zip

Note: Backface culling has a couple of niggles, but hey! :)

Dabz

Brucey

(Posted 2010) [#56]

Executing:untitled1.debug.exe
Name : This is not your home!

I guess it depends if your name is stanrol or not :-)

stanrol

(Posted 2010) [#57]

new wing ing cube

i#=0
SetBuffer BackBuffer()
Repeat
Cls
Rect (100*Cos(Int(i#)))+111,99+(100*Sin(Int(i#))),34,34,1
VWait
Flip
i#=i#+0.2
Forever

stanrol

(Posted 2010) [#58]

ukrainian flag

Graphics 555,555,0,2
Color 0,0,200
Rect 0,0,GraphicsWidth()-1,(GraphicsHeight()-1)/2,1
Color 222,199,2
Rect 0,(GraphicsHeight()-1)/2,GraphicsWidth()-1,GraphicsHeight()-1,1
WaitKey

stanrol

(Posted 2010) [#59]

half a helix

For i = 0 To GraphicsWidth()-1
	Plot i,round(41*Sin#(Float(i))+((GraphicsHeight()-1)/2))
	Next
	WaitKey
Function round(a#)
b#=a#-Int(a#)
If b#>.5 Then
Return Int(a#)+1
Else
Return Int(a#)
End If
End Function

stanrol

(Posted 2010) [#60]

draw green circle

Color 2,255,2
For i=1 To 360
Plot Cos(i)*100+200,Sin(i)*100+200
Delay 10
Next

Leon Drake

(Posted 2010) [#61]

you should compile all this into a 2d draw module

stanrol

(Posted 2010) [#62]

flashing moveing coin

using millisecs to generate gradient.

SetBuffer BackBuffer()
Local x=0,y=0
AppTitle "Press the arrows to move"
While Not KeyHit(1)
Cls
Color 1,MilliSecs()Mod 255,1
Oval 3+x,3+y,55,55,1
Flip
If KeyHit(200) Then
y=y-55
Else If KeyHit(208) Then
y=y+55
Else If KeyHit(203) Then
x=x-55
Else If KeyHit(205) Then
x=x+55
End If
VWait
Wend

GfK	(Posted 2010) [#63]

Jeez, can't you make your sig smaller? Wouldn't mind but most of it is pictures of somebody's garden/wheelie bins/bus stops/road signs/other boring blurry nonsense.

Brucey

(Posted 2010) [#64]

Wouldn't mind but most of it is pictures of somebody's garden/wheelie bins/bus stops/road signs/other boring blurry nonsense.

Well, this is more specific as to location of said wheelie bins.

G'day!

stanrol

(Posted 2010) [#65]

orange kaleidoscope

While Not KeyHit(1)
ClsColor 1,(MilliSecs()*20) Mod 255,MilliSecs() Mod 255
Cls
VWait
Wend

puki	(Posted 2010) [#66]

Way to go "GfK", now he has added more to his sig and uploaded another 6 videos to YouTube: http://www.youtube.com/user/rolandsta1

"Roland" do more videos with food - especially sweets, I want to see what sweets you have in your country - but food in general is fine - but show us the food because most of your videos just feature you and nothing on what they are about.

stayne

(Posted 2010) [#67]

What on earth??? I think he is heavily medicated.

stayne

(Posted 2010) [#68]

Pause this video at 0:08...

http://www.youtube.com/user/rolandsta1#p/u/23/qJbi3GXDoGQ

what is that at the bottom?

stanrol

(Posted 2010) [#69]

@stayne I am.
I'll keep my healthcare in private.
isn't it 0:10? It's a grid to help me visualize my programs.

stanrol

(Posted 2010) [#70]

jumping asterix in title


i=0
Repeat
AppTitle String$(" ",20*Sin(i Mod 360))+"*"
i=i+1
VWait
Forever

Ross C

(Posted 2010) [#71]

Try reducing the size of your signature, please.

Nate the Great

(Posted 2010) [#72]

since he has resorted to keeping almost all of his posts here I really dont mind his signature. If you dont like it dont come to this thread and you almost certainly wont see it.

stayne

(Posted 2010) [#73]

I see. Well buddy I hope you are having fun with Blitz and it is keeping your mind busy!

stanrol

(Posted 2010) [#74]

jumping signpost #2

i=0
Repeat
AppTitle String$(">",20*Sin(i Mod 360))+"*ROCKSTAR"
i=i+1
VWait
Forever

JustLuke

(Posted 2010) [#75]

After having viewed Stanrol's youtube videos I think it's safe to say that we should cut him some slack.

I'm glad you're enjoying playing with Blitz3d, Stanrol. Continue to collect your posts in this thread and have fun!

Ross C

(Posted 2010) [#76]

Fair enough :)

Nate the Great

(Posted 2010) [#77]

hey this thread taught me something! however crazy that sounds

I didnt know that you could use the string command to add a bunch of arrows before the word rockstar,

String$(">",20*Sin(i Mod 360))+"*ROCKSTAR"

stanrol

(Posted 2010) [#78]

nice

stanrol

(Posted 2010) [#79]

Print "chocolates are tasty"

stanrol

(Posted 2010) [#80]

more col stuff for you

AppTitle "Quake II"
Graphics 777,666,0,2
;set ClsColor to red
ClsColor Rand(1,255), Rand(1,255),0
Color 220,244,99 
Text 22,22,"Szia"
;set current drawing buffer to the color set by the ClsColor command
Cls
WaitKey

stanrol

(Posted 2010) [#81]

AppTitle "snakers the ultimate"
Global gw=600:Global gh=500
DebugLog "hello"
Global c=20
Type part
Field x,y
End Type
Graphics gw,gh,0,2
Global snake.part
Global dir=0
SetBuffer BackBuffer()
snake.part=New part
snake\x=5
snake\y=5
While Not KeyHit(1)
DebugLog "in loop"
Cls
Color 199,0,0
;
For snake.part=Each part
Color 0,255,0
Oval snake\x*(gw/c),snake\y*(gh/c),gw/c,gh/c,1
Next
f.part=First part
snake.part=New part
snake\x=f\x
snake\y=f\y
Select dir
Case 0
snake\x=snake\x
DebugLog snake\y
snake\y=snake\y-1
DebugLog snake\y
Case 1
DebugLog "case 1"
snake\x=snake\x+1
snake\y=snake\y
Case 2
snake\x=snake\x
snake\y=snake\y+1
Case 3
snake\x=snake\x-1
snake\y=snake\y
End Select
Delete Last part
Flip
VWait
Wend

stanrol

(Posted 2010) [#82]

lien gallery

Repeat
Cls
Line Rand(GraphicsWidth()),Rand(GraphicsHeight()),Rand(GraphicsWidth()),Rand(GraphicsHeight())
Delay 3111
Forever

stanrol

(Posted 2010) [#83]

inefficiently drawing a cube.

For i=1 To 100
Line 0,i,100,i
Next
WaitKey

stanrol

(Posted 2010) [#84]

Select Input$( "[h]eads or [t]ails?")
Case "h"
Print "you lost"
Case "t"
Print "you won."
End Select
WaitKey

stanrol

(Posted 2010) [#85]

AppTitle "video"
Print "you have "+Str(CountGfxDrivers() )+" gfx drivers."
Print "first one it's called "+GfxDriverName$(1)
WaitKey

stanrol

(Posted 2010) [#86]

;written by Roland stanyislav
; (c) 
AppTitle String$("-",14)+"> to Quit"
Repeat
Color Rand(255),Rand(255),Rand(255)
Line Rand(GraphicsWidth()),Rand(GraphicsHeight()),Rand(GraphicsWidth()),Rand(GraphicsHeight())
Delay 500
Forever