Greyscale bars/Display: Difference between revisions

Content added Content deleted

Inline

@@ Line 8: / Line 8: @@
 Halfway down the display, we start with black, and produce 32 bars, ending in white, and for the last quarter, we start with white and step through 62 shades of grey, before finally arriving at black in the bottom right hand corner, producing a total of 64 bars for the bottom quarter.
+=={{header|AutoHotkey}}==
+Requires the GDI+ Standard Library by tic: http://www.autohotkey.com/forum/viewtopic.php?t=32238
+<lang AHK>h	:= A_ScreenHeight
+w	:= A_ScreenWidth
+pToken	:= gdip_Startup()
+hdc	:= CreateCompatibleDC()
+hbm	:= CreateDIBSection(w, h)
+obm	:= SelectObject(hdc, hbm)
+G	:= Gdip_GraphicsFromHDC(hdc)
+OnExit, Exit
+Gui +E0x80000 +LastFound +OwnDialogs +Owner +AlwaysOnTop
+hwnd	:= WinExist()
+Gui Show, NA
+columnHeight := h/4
+Loop 4
+{
+	columnY		:= (A_Index-1) * columnHeight
+	columnCount	:= 2**(A_Index+2)
+	colorgap	:= 255 / (columnCount-1)
+	columnWidth	:= w/ColumnCount
+	If (A_Index & 1)
+		colorComp := 0
+	else
+		colorComp := 255
+		,colorgap *= -1
+	MsgBox % colorGap * columnCount
+	Loop % columnCount
+	{
+		columnX := (A_Index-1) * columnWidth
+		pBrush := Gdip_BrushCreateSolid(QColor(colorComp, colorComp, colorComp))
+		Gdip_FillRectangle(G, pBrush, columnX, columnY, columnWidth, columnHeight)
+		Gdip_DeleteBrush(pBrush)
+		colorComp += colorgap
+	}
+	SetFormat, IntegerFast, hex
+	SetFormat, IntegerFast, D
+}
+UpdateLayeredWindow(hwnd, hdc, 0, 0, W, H)
+SelectObject(hdc, obm)
+DeleteObject(hbm)
+DeleteDC(hdc)
+Gdip_DeleteGraphics(G)
+Return
+Esc::
+Exit:
+Gdip_Shutdown(pToken)
+ExitApp
+QColor(r, g, b){
+	return 0xFF000000 | (r << 16) | (g << 8) | (b)
+}</lang>
 =={{header|BBC BASIC}}==
 <lang bbcbasic>MODE 8:REM 640 x 512 pixel display mode: BBC BASIC gives 2 graphics points per pixel