(*^ ::[ Information = "This is a Mathematica Notebook file. It contains ASCII text, and can be transferred by email, ftp, or other text-file transfer utility. It should be read or edited using a copy of Mathematica or MathReader. If you received this as email, use your mail application or copy/paste to save everything from the line containing (*^ down to the line containing ^*) into a plain text file. On some systems you may have to give the file a name ending with ".ma" to allow Mathematica to recognize it as a Notebook. The line below identifies what version of Mathematica created this file, but it can be opened using any other version as well."; FrontEndVersion = "X Window System Mathematica Notebook Front End Version 2.2"; X11StandardFontEncoding; fontset = title, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, L3, e8, 24, fontName, "New York"; fontset = subtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, L2, e6, 18, fontName, "New York"; fontset = subsubtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, L2, e6, 14, fontName, "New York"; fontset = section, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, grayBox, M22, bold, L2, a20, 14, fontName, "New York"; fontset = subsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, blackBox, M19, bold, L2, a15, 12, fontName, "New York"; fontset = subsubsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, whiteBox, M18, bold, L2, a12, 10, fontName, "New York"; fontset = text, inactive, noKeepOnOnePage, preserveAspect, M7, L2, 12, fontName, "New York"; fontset = smalltext, inactive, noKeepOnOnePage, preserveAspect, M7, L2, 10, fontName, "New York"; fontset = input, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeInput, M42, N23, bold, L2, 12, fontName, "Courier"; fontset = output, output, inactive, noPageBreakInGroup, preserveAspect, groupLikeOutput, M42, N23, L2, 12, fontName, "Courier"; fontset = message, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, R65535, L2, 12, fontName, "Courier"; fontset = print, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L2, 12, fontName, "Courier"; fontset = info, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L2, 12, fontName, "Courier"; fontset = postscript, PostScript, formatAsPostScript, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeGraphics, M7, l34, w282, h287, L2, 12, fontName, "Courier"; fontset = name, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, italic, B65535, L2, 10, fontName, "Geneva"; fontset = header, inactive, noKeepOnOnePage, preserveAspect, M7, L2, 10, fontName, "New York"; fontset = leftheader, inactive, L2, 10, fontName, "New York"; fontset = footer, inactive, noKeepOnOnePage, preserveAspect, center, M7, L2, 12, fontName, "New York"; fontset = leftfooter, inactive, center, L2, 12, fontName, "New York"; fontset = help, inactive, noKeepOnOnePage, preserveAspect, M7, L2, 10, fontName, "Geneva"; fontset = clipboard, inactive, noKeepOnOnePage, preserveAspect, M7, L2, 12, fontName, "New York"; fontset = completions, inactive, noKeepOnOnePage, preserveAspect, M7, L2, 12, fontName, "New York"; fontset = special1, inactive, noKeepOnOnePage, preserveAspect, M7, L2, 12, fontName, "New York"; fontset = special2, inactive, noKeepOnOnePage, preserveAspect, center, M7, L2, 12, fontName, "New York"; fontset = special3, inactive, noKeepOnOnePage, preserveAspect, right, M7, L2, 12, fontName, "New York"; fontset = special4, inactive, noKeepOnOnePage, preserveAspect, M7, L2, 12, fontName, "New York"; fontset = special5, inactive, noKeepOnOnePage, preserveAspect, M7, L2, 12, fontName, "New York";paletteColors = 128; currentKernel; ] :[font = input; dontPreserveAspect] BresLine[x1_, y1_, x2_, y2_] := Block[{dx, dy, p,negativeAddon,positiveAddon}, list = {}; dx = Abs[x1 - x2]; dy = Abs[y1 - y2]; p = 2 dy - dx; negativeAddon = 2 dy; positiveAddon = 2 (dy - dx); If[x1 > x2, x = x2; y = y2; endX = x1, x = x1; y = y1; endX = x2]; list = {{x, y}}; While[x < endX, x++; If[p < 0, p = p + negativeAddon, y++; p = p + positiveAddon]; frameBuffer[[y, x]]=1]; Return[Length[list] ]]; :[font = input; preserveAspect] xMax=50; yMax=50; frameBuffer=Table[Table[0,{xMax}],{yMax}]; :[font = input; preserveAspect; startGroup] Do[ (v:=Random[Integer,{1,yMax/2}]; x1=1;y1=1;x2=xMax;y2=v; BresLine[x1,y1,x2,y2]; ListDensityPlot[frameBuffer]). {5}] :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 34; pictureWidth = 282; pictureHeight = 282; endGroup] %! %%Creator: Mathematica %%AspectRatio: 1 MathPictureStart %% DensityGraphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.0192308 0.0192308 0.0192308 0.0192308 [ [(0)] .01923 0 0 2 Msboxa [(10)] .21154 0 0 2 Msboxa [(20)] .40385 0 0 2 Msboxa [(30)] .59615 0 0 2 Msboxa [(40)] .78846 0 0 2 Msboxa [(50)] .98077 0 0 2 Msboxa [(0)] -0.0125 .01923 1 0 Msboxa [(10)] -0.0125 .21154 1 0 Msboxa [(20)] -0.0125 .40385 1 0 Msboxa [(30)] -0.0125 .59615 1 0 Msboxa [(40)] -0.0125 .78846 1 0 Msboxa [(50)] -0.0125 .98077 1 0 Msboxa [ -0.001 -0.001 0 0 ] [ 1.001 1.001 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p p .002 w .01923 0 m .01923 .00625 L s P [(0)] .01923 0 0 2 Mshowa p .002 w .21154 0 m .21154 .00625 L s P [(10)] .21154 0 0 2 Mshowa p .002 w .40385 0 m .40385 .00625 L s P [(20)] .40385 0 0 2 Mshowa p .002 w .59615 0 m .59615 .00625 L s P [(30)] .59615 0 0 2 Mshowa p .002 w .78846 0 m .78846 .00625 L s P [(40)] .78846 0 0 2 Mshowa p .002 w .98077 0 m .98077 .00625 L s P [(50)] .98077 0 0 2 Mshowa p .001 w .05769 0 m .05769 .00375 L s P p .001 w .09615 0 m .09615 .00375 L s P p .001 w .13462 0 m .13462 .00375 L s P p .001 w .17308 0 m .17308 .00375 L s P p .001 w .25 0 m .25 .00375 L s P p .001 w .28846 0 m .28846 .00375 L s P p .001 w .32692 0 m .32692 .00375 L s P p .001 w .36538 0 m .36538 .00375 L s P p .001 w .44231 0 m .44231 .00375 L s P p .001 w .48077 0 m .48077 .00375 L s P p .001 w .51923 0 m .51923 .00375 L s P p .001 w .55769 0 m .55769 .00375 L s P p .001 w .63462 0 m .63462 .00375 L s P p .001 w .67308 0 m .67308 .00375 L s P p .001 w .71154 0 m .71154 .00375 L s P p .001 w .75 0 m .75 .00375 L s P p .001 w .82692 0 m .82692 .00375 L s P p .001 w .86538 0 m .86538 .00375 L s P p .001 w .90385 0 m .90385 .00375 L s P p .001 w .94231 0 m .94231 .00375 L s P p .002 w 0 0 m 1 0 L s P p .002 w 0 .01923 m .00625 .01923 L s P [(0)] -0.0125 .01923 1 0 Mshowa p .002 w 0 .21154 m .00625 .21154 L s P [(10)] -0.0125 .21154 1 0 Mshowa p .002 w 0 .40385 m .00625 .40385 L s P [(20)] -0.0125 .40385 1 0 Mshowa p .002 w 0 .59615 m .00625 .59615 L s P [(30)] -0.0125 .59615 1 0 Mshowa p .002 w 0 .78846 m .00625 .78846 L s P [(40)] -0.0125 .78846 1 0 Mshowa p .002 w 0 .98077 m .00625 .98077 L s P [(50)] -0.0125 .98077 1 0 Mshowa p .001 w 0 .05769 m .00375 .05769 L s P p .001 w 0 .09615 m .00375 .09615 L s P p .001 w 0 .13462 m .00375 .13462 L s P p .001 w 0 .17308 m .00375 .17308 L s P p .001 w 0 .25 m .00375 .25 L s P p .001 w 0 .28846 m .00375 .28846 L s P p .001 w 0 .32692 m .00375 .32692 L s P p .001 w 0 .36538 m .00375 .36538 L s P p .001 w 0 .44231 m .00375 .44231 L s P p .001 w 0 .48077 m .00375 .48077 L s P p .001 w 0 .51923 m .00375 .51923 L s P p .001 w 0 .55769 m .00375 .55769 L s P p .001 w 0 .63462 m .00375 .63462 L s P p .001 w 0 .67308 m .00375 .67308 L s P p .001 w 0 .71154 m .00375 .71154 L s P p .001 w 0 .75 m .00375 .75 L s P p .001 w 0 .82692 m .00375 .82692 L s P p .001 w 0 .86538 m .00375 .86538 L s P p .001 w 0 .90385 m .00375 .90385 L s P p .001 w 0 .94231 m .00375 .94231 L s P p .002 w 0 0 m 0 1 L s P P p p .002 w .01923 .99375 m .01923 1 L s P p .002 w .21154 .99375 m .21154 1 L s P p .002 w .40385 .99375 m .40385 1 L s P p .002 w .59615 .99375 m .59615 1 L s P p .002 w .78846 .99375 m .78846 1 L s P p .002 w .98077 .99375 m .98077 1 L s P p .001 w .05769 .99625 m .05769 1 L s P p .001 w .09615 .99625 m .09615 1 L s P p .001 w .13462 .99625 m .13462 1 L s P p .001 w .17308 .99625 m .17308 1 L s P p .001 w .25 .99625 m .25 1 L s P p .001 w .28846 .99625 m .28846 1 L s P p .001 w .32692 .99625 m .32692 1 L s P p .001 w .36538 .99625 m .36538 1 L s P p .001 w .44231 .99625 m .44231 1 L s P p .001 w .48077 .99625 m .48077 1 L s P p .001 w .51923 .99625 m .51923 1 L s P p .001 w .55769 .99625 m .55769 1 L s P p .001 w .63462 .99625 m .63462 1 L s P p .001 w .67308 .99625 m .67308 1 L s P p .001 w .71154 .99625 m .71154 1 L s P p .001 w .75 .99625 m .75 1 L s P p .001 w .82692 .99625 m .82692 1 L s P p .001 w .86538 .99625 m .86538 1 L s P p .001 w .90385 .99625 m .90385 1 L s P p .001 w .94231 .99625 m .94231 1 L s P p .002 w 0 1 m 1 1 L s P p .002 w .99375 .01923 m 1 .01923 L s P p .002 w .99375 .21154 m 1 .21154 L s P p .002 w .99375 .40385 m 1 .40385 L s P p .002 w .99375 .59615 m 1 .59615 L s P p .002 w .99375 .78846 m 1 .78846 L s P p .002 w .99375 .98077 m 1 .98077 L s P p .001 w .99625 .05769 m 1 .05769 L s P p .001 w .99625 .09615 m 1 .09615 L s P p .001 w .99625 .13462 m 1 .13462 L s P p .001 w .99625 .17308 m 1 .17308 L s P p .001 w .99625 .25 m 1 .25 L s P p .001 w .99625 .28846 m 1 .28846 L s P p .001 w .99625 .32692 m 1 .32692 L s P p .001 w .99625 .36538 m 1 .36538 L s P p .001 w .99625 .44231 m 1 .44231 L s P p .001 w .99625 .48077 m 1 .48077 L s P p .001 w .99625 .51923 m 1 .51923 L s P p .001 w .99625 .55769 m 1 .55769 L s P p .001 w .99625 .63462 m 1 .63462 L s P p .001 w .99625 .67308 m 1 .67308 L s P p .001 w .99625 .71154 m 1 .71154 L s P p .001 w .99625 .75 m 1 .75 L s P p .001 w .99625 .82692 m 1 .82692 L s P p .001 w .99625 .86538 m 1 .86538 L s P p .001 w .99625 .90385 m 1 .90385 L s P p .001 w .99625 .94231 m 1 .94231 L s P p .002 w 1 0 m 1 1 L s P P p P 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath % Start of gray image p .01923 .01923 translate .96154 .96154 scale 50 string 50 50 8 [50 0 0 50 0 0] { currentfile 1 index readhexstring pop } Mimage 00FFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000 000000000000000000000000000000000000000000000000 0000 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000 0000 00000000FFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFF 00000000000000FFFFFF0000FFFFFFFFFFFFFFFF00000000 00FFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFF FFFF 000000000000000000FFFFFF00000000FFFFFFFFFFFFFFFF FF00000000000000000000FFFFFFFFFFFFFFFFFFFF000000 0000 000000000000000000000000FFFFFF000000000000FFFFFF FFFFFFFFFFFF000000000000000000000000000000FFFFFF FFFF 0000000000000000000000000000FFFFFF00000000000000 00FFFFFFFFFFFFFFFFFFFFFF000000000000000000000000 0000 00000000000000000000000000000000FFFFFFFF00000000 0000000000FFFFFFFFFFFFFFFFFFFFFFFF00000000000000 0000 00000000000000000000000000000000000000FFFFFF0000 00000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFF00 0000 000000000000000000000000000000000000000000FFFFFF FF00000000000000000000000000FFFFFFFFFFFFFFFFFFFF FFFF 000000000000000000000000000000000000000000000000 FFFFFFFF000000000000000000000000000000FFFFFFFFFF FFFF 000000000000000000000000000000000000000000000000 0000FFFFFFFF0000000000000000000000000000000000FF FFFF 000000000000000000000000000000000000000000000000 0000000000FFFFFFFF000000000000000000000000000000 0000 000000000000000000000000000000000000000000000000 00000000000000FFFFFFFF00000000000000000000000000 0000 000000000000000000000000000000000000000000000000 00000000000000000000FFFFFFFF00000000000000000000 0000 000000000000000000000000000000000000000000000000 000000000000000000000000FFFFFFFF0000000000000000 0000 000000000000000000000000000000000000000000000000 0000000000000000000000000000FFFFFFFFFF0000000000 0000 000000000000000000000000000000000000000000000000 0000000000000000000000000000000000FFFFFFFFFF0000 0000 000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000FFFFFFFFFF 0000 000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000FFFF FFFF 000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000 FFFF 000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000 0000 000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000 0000 000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000 0000 000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000 0000 000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000 0000 000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000 0000 000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000 0000 000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000 0000 000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000 0000 000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000 0000 000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000 0000 000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000 0000 000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000 0000 000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000 0000 000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000 0000 000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000 0000 000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000 0000 000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000 0000 000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000 0000 000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000 0000 000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000 0000 000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000 0000 000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000 0000 000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000 0000 000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000 0000 000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000 0000 000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000 0000 000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000 0000 000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000 0000 pop P % End of image p [ ] 0 setdash .0015 w .01923 .01923 m .01923 .98077 L s P p [ ] 0 setdash .0015 w .03846 .01923 m .03846 .98077 L s P p [ ] 0 setdash .0015 w .05769 .01923 m .05769 .98077 L s P p [ ] 0 setdash .0015 w .07692 .01923 m .07692 .98077 L s P p [ ] 0 setdash .0015 w .09615 .01923 m .09615 .98077 L s P p [ ] 0 setdash .0015 w .11538 .01923 m .11538 .98077 L s P p [ ] 0 setdash .0015 w .13462 .01923 m .13462 .98077 L s P p [ ] 0 setdash .0015 w .15385 .01923 m .15385 .98077 L s P p [ ] 0 setdash .0015 w .17308 .01923 m .17308 .98077 L s P p [ ] 0 setdash .0015 w .19231 .01923 m .19231 .98077 L s P p [ ] 0 setdash .0015 w .21154 .01923 m .21154 .98077 L s P p [ ] 0 setdash .0015 w .23077 .01923 m .23077 .98077 L s P p [ ] 0 setdash .0015 w .25 .01923 m .25 .98077 L s P p [ ] 0 setdash .0015 w .26923 .01923 m .26923 .98077 L s P p [ ] 0 setdash .0015 w .28846 .01923 m .28846 .98077 L s P p [ ] 0 setdash .0015 w .30769 .01923 m .30769 .98077 L s P p [ ] 0 setdash .0015 w .32692 .01923 m .32692 .98077 L s P p [ ] 0 setdash .0015 w .34615 .01923 m .34615 .98077 L s P p [ ] 0 setdash .0015 w .36538 .01923 m .36538 .98077 L s P p [ ] 0 setdash .0015 w .38462 .01923 m .38462 .98077 L s P p [ ] 0 setdash .0015 w .40385 .01923 m .40385 .98077 L s P p [ ] 0 setdash .0015 w .42308 .01923 m .42308 .98077 L s P p [ ] 0 setdash .0015 w .44231 .01923 m .44231 .98077 L s P p [ ] 0 setdash .0015 w .46154 .01923 m .46154 .98077 L s P p [ ] 0 setdash .0015 w .48077 .01923 m .48077 .98077 L s P p [ ] 0 setdash .0015 w .5 .01923 m .5 .98077 L s P p [ ] 0 setdash .0015 w .51923 .01923 m .51923 .98077 L s P p [ ] 0 setdash .0015 w .53846 .01923 m .53846 .98077 L s P p [ ] 0 setdash .0015 w .55769 .01923 m .55769 .98077 L s P p [ ] 0 setdash .0015 w .57692 .01923 m .57692 .98077 L s P p [ ] 0 setdash .0015 w .59615 .01923 m .59615 .98077 L s P p [ ] 0 setdash .0015 w .61538 .01923 m .61538 .98077 L s P p [ ] 0 setdash .0015 w .63462 .01923 m .63462 .98077 L s P p [ ] 0 setdash .0015 w .65385 .01923 m .65385 .98077 L s P p [ ] 0 setdash .0015 w .67308 .01923 m .67308 .98077 L s P p [ ] 0 setdash .0015 w .69231 .01923 m .69231 .98077 L s P p [ ] 0 setdash .0015 w .71154 .01923 m .71154 .98077 L s P p [ ] 0 setdash .0015 w .73077 .01923 m .73077 .98077 L s P p [ ] 0 setdash .0015 w .75 .01923 m .75 .98077 L s P p [ ] 0 setdash .0015 w .76923 .01923 m .76923 .98077 L s P p [ ] 0 setdash .0015 w .78846 .01923 m .78846 .98077 L s P p [ ] 0 setdash .0015 w .80769 .01923 m .80769 .98077 L s P p [ ] 0 setdash .0015 w .82692 .01923 m .82692 .98077 L s P p [ ] 0 setdash .0015 w .84615 .01923 m .84615 .98077 L s P p [ ] 0 setdash .0015 w .86538 .01923 m .86538 .98077 L s P p [ ] 0 setdash .0015 w .88462 .01923 m .88462 .98077 L s P p [ ] 0 setdash .0015 w .90385 .01923 m .90385 .98077 L s P p [ ] 0 setdash .0015 w .92308 .01923 m .92308 .98077 L s P p [ ] 0 setdash .0015 w .94231 .01923 m .94231 .98077 L s P p [ ] 0 setdash .0015 w .96154 .01923 m .96154 .98077 L s P p [ ] 0 setdash .0015 w .98077 .01923 m .98077 .98077 L s P p [ ] 0 setdash .0015 w .01923 .01923 m .98077 .01923 L s P p [ ] 0 setdash .0015 w .01923 .03846 m .98077 .03846 L s P p [ ] 0 setdash .0015 w .01923 .05769 m .98077 .05769 L s P p [ ] 0 setdash .0015 w .01923 .07692 m .98077 .07692 L s P p [ ] 0 setdash .0015 w .01923 .09615 m .98077 .09615 L s P p [ ] 0 setdash .0015 w .01923 .11538 m .98077 .11538 L s P p [ ] 0 setdash .0015 w .01923 .13462 m .98077 .13462 L s P p [ ] 0 setdash .0015 w .01923 .15385 m .98077 .15385 L s P p [ ] 0 setdash .0015 w .01923 .17308 m .98077 .17308 L s P p [ ] 0 setdash .0015 w .01923 .19231 m .98077 .19231 L s P p [ ] 0 setdash .0015 w .01923 .21154 m .98077 .21154 L s P p [ ] 0 setdash .0015 w .01923 .23077 m .98077 .23077 L s P p [ ] 0 setdash .0015 w .01923 .25 m .98077 .25 L s P p [ ] 0 setdash .0015 w .01923 .26923 m .98077 .26923 L s P p [ ] 0 setdash .0015 w .01923 .28846 m .98077 .28846 L s P p [ ] 0 setdash .0015 w .01923 .30769 m .98077 .30769 L s P p [ ] 0 setdash .0015 w .01923 .32692 m .98077 .32692 L s P p [ ] 0 setdash .0015 w .01923 .34615 m .98077 .34615 L s P p [ ] 0 setdash .0015 w .01923 .36538 m .98077 .36538 L s P p [ ] 0 setdash .0015 w .01923 .38462 m .98077 .38462 L s P p [ ] 0 setdash .0015 w .01923 .40385 m .98077 .40385 L s P p [ ] 0 setdash .0015 w .01923 .42308 m .98077 .42308 L s P p [ ] 0 setdash .0015 w .01923 .44231 m .98077 .44231 L s P p [ ] 0 setdash .0015 w .01923 .46154 m .98077 .46154 L s P p [ ] 0 setdash .0015 w .01923 .48077 m .98077 .48077 L s P p [ ] 0 setdash .0015 w .01923 .5 m .98077 .5 L s P p [ ] 0 setdash .0015 w .01923 .51923 m .98077 .51923 L s P p [ ] 0 setdash .0015 w .01923 .53846 m .98077 .53846 L s P p [ ] 0 setdash .0015 w .01923 .55769 m .98077 .55769 L s P p [ ] 0 setdash .0015 w .01923 .57692 m .98077 .57692 L s P p [ ] 0 setdash .0015 w .01923 .59615 m .98077 .59615 L s P p [ ] 0 setdash .0015 w .01923 .61538 m .98077 .61538 L s P p [ ] 0 setdash .0015 w .01923 .63462 m .98077 .63462 L s P p [ ] 0 setdash .0015 w .01923 .65385 m .98077 .65385 L s P p [ ] 0 setdash .0015 w .01923 .67308 m .98077 .67308 L s P p [ ] 0 setdash .0015 w .01923 .69231 m .98077 .69231 L s P p [ ] 0 setdash .0015 w .01923 .71154 m .98077 .71154 L s P p [ ] 0 setdash .0015 w .01923 .73077 m .98077 .73077 L s P p [ ] 0 setdash .0015 w .01923 .75 m .98077 .75 L s P p [ ] 0 setdash .0015 w .01923 .76923 m .98077 .76923 L s P p [ ] 0 setdash .0015 w .01923 .78846 m .98077 .78846 L s P p [ ] 0 setdash .0015 w .01923 .80769 m .98077 .80769 L s P p [ ] 0 setdash .0015 w .01923 .82692 m .98077 .82692 L s P p [ ] 0 setdash .0015 w .01923 .84615 m .98077 .84615 L s P p [ ] 0 setdash .0015 w .01923 .86538 m .98077 .86538 L s P p [ ] 0 setdash .0015 w .01923 .88462 m .98077 .88462 L s P p [ ] 0 setdash .0015 w .01923 .90385 m .98077 .90385 L s P p [ ] 0 setdash .0015 w .01923 .92308 m .98077 .92308 L s P p [ ] 0 setdash .0015 w .01923 .94231 m .98077 .94231 L s P p [ ] 0 setdash .0015 w .01923 .96154 m .98077 .96154 L s P p [ ] 0 setdash .0015 w .01923 .98077 m .98077 .98077 L s P % End of Graphics MathPictureEnd :[font = subsubtitle; inactive; preserveAspect] Bresenham Circle :[font = input; preserveAspect; startGroup] BresCircle[cx_, cy_, radius_] := Block[{x, y, p}, list = {}; x = 0; y = radius; p = 3 - 2 radius; While[x <= y, list = Union[list, {{cx + x, cy + y}, {cx - x, cy + y}, {cx + x, cy - y}, {cx - x, cy - y}, {cx + y, cy + x}, {cx - y, cy + x}, {cx + y, cy - x}, {cx - y, cy - x}}]; If[p < 0, p = p + 4 x + 6, p = p + 4 (x - y) + 10; y-- ]; x++ ]; If[x = y, list = Union[list, {{cx + x, cy + y}, {cx - x, cy + y}, {cx + x, cy - y}, {cx - x, cy - y}, {cx + y, cy + x}, {cx - y, cy + x}, {cx + y, cy - x}, {cx - y, cy - x}}], Null]; Return[Length[list]] ] BresCircle[0, 0, 40] ListPlot[list, AspectRatio -> Automatic, Axes -> None, PlotStyle -> PointSize[.02]] :[font = message; inactive; preserveAspect] General::spell1: Possible spelling error: new symbol name "list" is similar to existing symbol "List". :[font = output; output; inactive; preserveAspect] 228 ;[o] 228 :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 34; pictureWidth = 282; pictureHeight = 282] %! %%Creator: Mathematica %%AspectRatio: 1 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.0119048 0.5 0.0119048 [ [ 0 0 0 0 ] [ 1 1 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p P 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath p p .02 w .02381 .42857 Mdot .02381 .44048 Mdot .02381 .45238 Mdot .02381 .46429 Mdot .02381 .47619 Mdot .02381 .4881 Mdot .02381 .5 Mdot .02381 .5119 Mdot .02381 .52381 Mdot .02381 .53571 Mdot .02381 .54762 Mdot .02381 .55952 Mdot .02381 .57143 Mdot .03571 .38095 Mdot .03571 .39286 Mdot .03571 .40476 Mdot .03571 .41667 Mdot .03571 .58333 Mdot .03571 .59524 Mdot .03571 .60714 Mdot .03571 .61905 Mdot .04762 .34524 Mdot .04762 .35714 Mdot .04762 .36905 Mdot .04762 .63095 Mdot .04762 .64286 Mdot .04762 .65476 Mdot .05952 .30952 Mdot .05952 .32143 Mdot .05952 .33333 Mdot .05952 .66667 Mdot .05952 .67857 Mdot .05952 .69048 Mdot .07143 .28571 Mdot .07143 .29762 Mdot .07143 .70238 Mdot .07143 .71429 Mdot .08333 .2619 Mdot .08333 .27381 Mdot .08333 .72619 Mdot .08333 .7381 Mdot .09524 .25 Mdot .09524 .75 Mdot .10714 .22619 Mdot .10714 .2381 Mdot .10714 .7619 Mdot .10714 .77381 Mdot .11905 .21429 Mdot .11905 .78571 Mdot .13095 .20238 Mdot .13095 .79762 Mdot .14286 .17857 Mdot .14286 .19048 Mdot .14286 .80952 Mdot .14286 .82143 Mdot .15476 .16667 Mdot .15476 .83333 Mdot .16667 .15476 Mdot .16667 .84524 Mdot .17857 .14286 Mdot .17857 .85714 Mdot .19048 .14286 Mdot .19048 .85714 Mdot .20238 .13095 Mdot .20238 .86905 Mdot .21429 .11905 Mdot .21429 .88095 Mdot .22619 .10714 Mdot .22619 .89286 Mdot .2381 .10714 Mdot .2381 .89286 Mdot .25 .09524 Mdot .25 .90476 Mdot .2619 .08333 Mdot .2619 .91667 Mdot .27381 .08333 Mdot .27381 .91667 Mdot .28571 .07143 Mdot .28571 .92857 Mdot .29762 .07143 Mdot .29762 .92857 Mdot .30952 .05952 Mdot .30952 .94048 Mdot .32143 .05952 Mdot .32143 .94048 Mdot .33333 .05952 Mdot .33333 .94048 Mdot .34524 .04762 Mdot .34524 .95238 Mdot .35714 .04762 Mdot .35714 .95238 Mdot .36905 .04762 Mdot .36905 .95238 Mdot .38095 .03571 Mdot .38095 .96429 Mdot .39286 .03571 Mdot .39286 .96429 Mdot .40476 .03571 Mdot .40476 .96429 Mdot .41667 .03571 Mdot .41667 .96429 Mdot .42857 .02381 Mdot .42857 .97619 Mdot .44048 .02381 Mdot .44048 .97619 Mdot .45238 .02381 Mdot .45238 .97619 Mdot .46429 .02381 Mdot .46429 .97619 Mdot .47619 .02381 Mdot .47619 .97619 Mdot .4881 .02381 Mdot .4881 .97619 Mdot .5 .02381 Mdot .5 .97619 Mdot .5119 .02381 Mdot .5119 .97619 Mdot .52381 .02381 Mdot .52381 .97619 Mdot .53571 .02381 Mdot .53571 .97619 Mdot .54762 .02381 Mdot .54762 .97619 Mdot .55952 .02381 Mdot .55952 .97619 Mdot .57143 .02381 Mdot .57143 .97619 Mdot .58333 .03571 Mdot .58333 .96429 Mdot .59524 .03571 Mdot .59524 .96429 Mdot .60714 .03571 Mdot .60714 .96429 Mdot .61905 .03571 Mdot .61905 .96429 Mdot .63095 .04762 Mdot .63095 .95238 Mdot .64286 .04762 Mdot .64286 .95238 Mdot .65476 .04762 Mdot .65476 .95238 Mdot .66667 .05952 Mdot .66667 .94048 Mdot .67857 .05952 Mdot .67857 .94048 Mdot .69048 .05952 Mdot .69048 .94048 Mdot .70238 .07143 Mdot .70238 .92857 Mdot .71429 .07143 Mdot .71429 .92857 Mdot .72619 .08333 Mdot .72619 .91667 Mdot .7381 .08333 Mdot .7381 .91667 Mdot .75 .09524 Mdot .75 .90476 Mdot .7619 .10714 Mdot .7619 .89286 Mdot .77381 .10714 Mdot .77381 .89286 Mdot .78571 .11905 Mdot .78571 .88095 Mdot .79762 .13095 Mdot .79762 .86905 Mdot .80952 .14286 Mdot .80952 .85714 Mdot .82143 .14286 Mdot .82143 .85714 Mdot .83333 .15476 Mdot .83333 .84524 Mdot .84524 .16667 Mdot .84524 .83333 Mdot .85714 .17857 Mdot .85714 .19048 Mdot .85714 .80952 Mdot .85714 .82143 Mdot .86905 .20238 Mdot .86905 .79762 Mdot .88095 .21429 Mdot .88095 .78571 Mdot .89286 .22619 Mdot .89286 .2381 Mdot .89286 .7619 Mdot .89286 .77381 Mdot .90476 .25 Mdot .90476 .75 Mdot .91667 .2619 Mdot .91667 .27381 Mdot .91667 .72619 Mdot .91667 .7381 Mdot .92857 .28571 Mdot .92857 .29762 Mdot .92857 .70238 Mdot .92857 .71429 Mdot .94048 .30952 Mdot .94048 .32143 Mdot .94048 .33333 Mdot .94048 .66667 Mdot .94048 .67857 Mdot .94048 .69048 Mdot .95238 .34524 Mdot .95238 .35714 Mdot .95238 .36905 Mdot .95238 .63095 Mdot .95238 .64286 Mdot .95238 .65476 Mdot .96429 .38095 Mdot .96429 .39286 Mdot .96429 .40476 Mdot .96429 .41667 Mdot .96429 .58333 Mdot .96429 .59524 Mdot .96429 .60714 Mdot .96429 .61905 Mdot .97619 .42857 Mdot .97619 .44048 Mdot .97619 .45238 Mdot .97619 .46429 Mdot .97619 .47619 Mdot .97619 .4881 Mdot .97619 .5 Mdot .97619 .5119 Mdot .97619 .52381 Mdot .97619 .53571 Mdot .97619 .54762 Mdot .97619 .55952 Mdot .97619 .57143 Mdot P P % End of Graphics MathPictureEnd :[font = output; output; inactive; preserveAspect] Graphics["<<>>"] ;[o] -Graphics- :[font = output; output; inactive; preserveAspect] 228 ;[o] 228 :[font = message; inactive; preserveAspect; endGroup] Syntax::sntxi: Incomplete expression. ^*)