PenisRaep

(* PenisRaep by Yarukinasu *)

#light

open System
open System.Drawing
open System.Runtime.InteropServices
open System.Windows.Forms

[<DllImport("User32.dll")>]
extern nativeint GetDC(nativeint hWnd)

(* drawing tools *)
let outer = new Pen(Color.White)
let inner = new Pen(Color.Black)
let brush = new SolidBrush(Color.LightSalmon)

let g = Graphics.FromHdc(GetDC(IntPtr.Zero))

(* a poor algorithm for drawing a poor penis *)
let drawpenis(x, y) =
  g.DrawLine(outer, x + 9, y + 20, x + 9, y - 1);
  g.DrawArc(outer, x + 9, y - 6, 12, 12, 180, 180);
  g.DrawLine(outer, x + 21, y, x + 21, y + 20);
  g.DrawArc(outer, x + 14, y + 19, 12, 12, 270, 180);
  g.DrawLine(outer, x + 20, y + 31, x + 10, y + 31);
  g.DrawArc(outer, x + 4, y + 19, 12, 12, 90, 180);

  g.DrawLine(inner, x + 10, y + 20, x + 10, y);
  g.DrawArc(inner, x + 10, y - 5, 10, 10, 180, 180);
  g.DrawLine(inner, x + 20, y, x + 20, y + 20);
  g.DrawArc(inner, x + 15, y + 20, 10, 10, 270, 180);
  g.DrawLine(inner, x + 20, y + 30, x + 10, y + 30);
  g.DrawArc(inner, x + 5, y + 20, 10, 10, 90, 180);

  g.FillRectangle(brush, x + 11, y, 9, 30);
  g.FillPie(brush, x + 10, y - 5, 10, 10, 180, 180);
  g.FillPie(brush, x + 15, y + 20, 10, 10, 270, 180);
  g.FillPie(brush, x + 5, y + 20, 11, 10, 90, 180);

(* draw penis everywhere possible *)
let rnd = new Random()
let bounds = Screen.PrimaryScreen.Bounds

while true do
  drawpenis(rnd.Next(bounds.Width), rnd.Next(bounds.Height))