June 2018 Update

Task/Pinstripe-Display/Julia/pinstripe-display.julia

@@ -0,0 +1,20 @@
+using Luxor
+
+function drawbars(w, h, sections, dk, lt)
+    Drawing(w,h)
+    background("white")
+    width = 1
+    height = h/sections
+    for y in 0:height:h-1
+        setline(width)
+        for x in 0:w/width
+            sethue(x % 2 == 0 ? dk: lt)
+            line(Point(x*width,y), Point(x*width,y+height), :stroke)
+        end
+        width += 1
+    end
+end
+
+drawbars(1920, 1080, 4, "black", "white")
+finish()
+preview()

Task/Pinstripe-Display/Ring/pinstripe-display.ring

@@ -0,0 +1,64 @@
+# Project : Pinstripe/Display
+# Date    : 2018/01/13
+# Author : Gal Zsolt (~ CalmoSoft ~)
+# Email   : <calmosoft@gmail.com>
+
+load "guilib.ring"
+
+paint = null
+
+new qapp
+        {
+        win1 = new qwidget() {
+                  setwindowtitle("Pinstripe/Display")
+                  setgeometry(100,100,500,600)
+                  label1 = new qlabel(win1) {
+                              setgeometry(10,10,400,400)
+                              settext("")
+                  }
+                  new qpushbutton(win1) {
+                          setgeometry(150,500,100,30)
+                          settext("draw")
+                          setclickevent("draw()")
+                  }
+                  show()
+        }
+        exec()
+        }
+
+func draw
+        p1 = new qpicture()
+               color = new qcolor() {
+               setrgb(0,0,255,255)
+        }
+        pen = new qpen() {
+                 setcolor(color)
+                 setwidth(1)
+        }
+        paint = new qpainter() {
+                  begin(p1)
+                  setpen(pen)
+
+        xscreen = 100
+        yscreen = 100
+        color = new qcolor()
+        color.setrgb(0,0,0,255)
+        mybrush = new qbrush() {setstyle(1) setcolor(color)}
+        setbrush(mybrush)
+        for x = 0 to xscreen*4-4 step 4
+             drawrect(x,yscreen*3/2,2,yscreen/2)
+        next
+        for x = 0 to xscreen*4-8 step 8
+             drawrect(x,yscreen*2/2,4,yscreen/2)
+        next
+        for x = 0 to xscreen*4-12 step 12
+             drawrect(x,yscreen*1/2,6,yscreen/2)
+        next
+        for x = 0 to xscreen*4-16 step 16
+             drawrect(x,yscreen*0/2,8,yscreen/2)
+        next
+
+        endpaint()
+        }
+        label1 { setpicture(p1) show() }
+        return

Task/Pinstripe-Display/Sinclair-ZX81-BASIC/pinstripe-display.sinclair

@@ -0,0 +1,9 @@
+10 FOR W=1 TO 4
+20 FOR I=0 TO 63 STEP 2*W
+30 FOR J=1 TO W
+40 FOR K=43-11*(W-1) TO 33-11*(W-1) STEP -1
+50 PLOT I+J,K
+60 NEXT K
+70 NEXT J
+80 NEXT I
+90 NEXT W