Visual Basic 6 Pro, generate a graphics test pattern in line with mandala draft
by Andy Flagg, Publication Date: Tuesday, October 29, 2019
View Count: 277, Keywords: Visual Basic 6, Mandalas, Mandelbrot, Images, Graphics, Test Pattern, Hashtags: #VisualBasic6 #Mandalas #Mandelbrot #Images #Graphics #TestPattern
Here is some sample code to get the screen width and height and test pattern to start your mandala generation. Its needed to start your symmetry points. it can be used for other things, but I am using it to start a Mandelbrot or Mandala's generator.
enjoy. more to come...
Private Sub Form_DblClick()
Private Sub Form_Load()
Private Sub DrawTestPattern()
'GGPCM.Label1 = "create line, randomize"
GGPCM.Label1 = ""
Debug.Print "create line, randomize"
Dim x, y, w, h
'Debug.Print Screen.Width & ", " & Screen.Height
Debug.Print GGPCM.Width & ", " & GGPCM.Height
Debug.Print GGPCM.ScaleWidth & ", " & GGPCM.ScaleHeight
'scalewidth is accurate to the form dimensions
w = GGPCM.ScaleWidth
h = GGPCM.ScaleHeight
'While x < 1000
' x = x + 1
' y = y + 5
' GGPCM.PSet (x, y), vbBlack
'draw a quadrant
PSet (w - (w * 0.1), h - (h * 0.1)), vbRed
'X corner to corner
GGPCM.Line (0, 0)-(ScaleWidth, ScaleHeight)
GGPCM.Line (ScaleWidth, 0)-(0, ScaleHeight)
GGPCM.Line (0, ScaleHeight * 0.5)-(ScaleWidth, ScaleHeight * 0.5)
GGPCM.Line (ScaleWidth * 0.5, 0)-(ScaleWidth * 0.5, ScaleHeight)
'GGPCM.Line (0, 0)-(w, h)
'GGPCM.Line (w, 0)-(0, h)
if you found this article helpful, consider contributing $10, 20 an Andrew Jackson or so..to the author. more authors coming soon
FYI we use paypal or patreon, patreon has 3x the transaction fees, so we don't, not yet.
© 2021 myBlog™ v1.1 All rights reserved. We count views as reads, so let's not over think it.