June 2018 Update

Task/Video-display-modes/Kotlin/video-display-modes.kotlin

@@ -0,0 +1,25 @@
+// version 1.1.51
+
+import java.util.Scanner
+
+fun runSystemCommand(command: String) {
+    val proc = Runtime.getRuntime().exec(command)
+    Scanner(proc.inputStream).use {
+        while (it.hasNextLine()) println(it.nextLine())
+    }
+    proc.waitFor()
+    println()
+}
+
+fun main(args: Array<String>) {
+    // query supported display modes
+    runSystemCommand("xrandr -q")
+    Thread.sleep(3000)
+
+    // change display mode to 1024x768 say (no text output)
+    runSystemCommand("xrandr -s 1024x768")
+    Thread.sleep(3000)
+
+    // change it back again to 1366x768 (or whatever is optimal for your system)
+    runSystemCommand("xrandr -s 1366x768")
+}

Task/Video-display-modes/Perl-6/video-display-modes.pl6

@@ -0,0 +1,16 @@
+my @info = QX('xrandr -q').lines;
+
+@info[0] ~~ /<?after 'current '>(\d+) ' x ' (\d+)/;
+my $current = "$0x$1";
+
+my @resolutions;
+@resolutions.push: $0 if $_ ~~ /^\s+(\d+'x'\d+)/ for @info;
+
+QX("xrandr -s @resolutions[*-1]");
+say "Current resolution {@resolutions[*-1]}.";
+for 9 ... 1 {
+    print "\rChanging back in $_ seconds...";
+    sleep 1;
+}
+QX("xrandr -s $current");
+say "\rResolution returned to {$current}.     ";

Task/Video-display-modes/Scala/video-display-modes.scala

@@ -0,0 +1,27 @@
+object VideoDisplayModes extends App {
+
+  import java.util.Scanner
+
+  def runSystemCommand(command: String) {
+    val proc = Runtime.getRuntime.exec(command)
+
+    val a: Unit = {
+      val a = new Scanner(proc.getInputStream)
+      while (a.hasNextLine) println(a.nextLine())
+    }
+    proc.waitFor()
+    println()
+  }
+
+  // query supported display modes
+  runSystemCommand("xrandr -q")
+  Thread.sleep(3000)
+
+  // change display mode to 1024x768 say (no text output)
+  runSystemCommand("xrandr -s 1024x768")
+  Thread.sleep(3000)
+
+  // change it back again to 1366x768 (or whatever is optimal for your system)
+  runSystemCommand("xrandr -s 1366x768")
+
+}