https://code-reference.com/ 2026-05-18T18:11:47+02:00 https://code-reference.com/ https://code-reference.com/ttps://code-reference.com/lib/tpl/dokuwiki/images/favicon.ico text/html 2024-02-16T01:11:59+02:00 https://code-reference.com/ivbasic/sampleapplication/flashcards/library?rev=1708042319&do=diff fn randomcolor[] dim l[4] for a = 0 to 3 precision[0] r= random[255] precision[2] l[a] = (r / 255) next a randomcolor = (r / 255) endfn cmd square[] Dim global color[4] Dim global widthHeight[2] Dim rectStart[2] color[0]=randomcolor[] ' red color[1]= randomcolor[] color[2]=randomcolor[] color[3]=1.0 ' alpha rectStart[0]= 10 ' x rectStart[1]= 10 ' y ' if width and height are the same is a circle widthHeight[0] = 400 ' width widthHeight[1] = 400 ' height SetLineWidth[5] fillRect[c…