Commonmark migration

Source Link

edited Jun 17, 2020 at 9:04

1

#Mathematica ~~208 185~~ 139 bytes

Mathematica 208 185 139 bytes

Moves a purple pixel around an array used as an Image.

Method 1 139 bytes

n=900;Dynamic@Refresh[t=DateValue@"Second";ReplacePixelValue[Image@Array[1&,{n,n}],
400{Cos[z=Pi/30t],Sin@z}+450->Purple],UpdateInterval->1]

Method 2 154 bytes

Plots a pixel along a circular path in 60 seconds.

Dynamic@Refresh[t=DateValue@"Second";Graphics[{[email protected],Purple, 
Point[{Cos[z=Pi/30t],Sin@z}]},PlotRange->1,ImageSize->Full],UpdateInterval->1]

Method 3 193 bytes

This draws a clock, with ticks and labels in white, for which the second hand is a pixel.

Dynamic@Refresh[ClockGauge[AbsoluteTime[],TicksStyle->White, 
GaugeMarkers->{None,None,Graphics[{White,Disk[],Purple, 
AbsolutePointSize[.01],Point@{3,0}}]},PlotTheme->"Minimal"],UpdateInterval->1]

#Mathematica ~~208 185~~ 139 bytes

Moves a purple pixel around an array used as an Image.

Method 1 139 bytes

n=900;Dynamic@Refresh[t=DateValue@"Second";ReplacePixelValue[Image@Array[1&,{n,n}],
400{Cos[z=Pi/30t],Sin@z}+450->Purple],UpdateInterval->1]

Method 2 154 bytes

Plots a pixel along a circular path in 60 seconds.

Dynamic@Refresh[t=DateValue@"Second";Graphics[{[email protected],Purple, 
Point[{Cos[z=Pi/30t],Sin@z}]},PlotRange->1,ImageSize->Full],UpdateInterval->1]

Method 3 193 bytes

This draws a clock, with ticks and labels in white, for which the second hand is a pixel.

Dynamic@Refresh[ClockGauge[AbsoluteTime[],TicksStyle->White, 
GaugeMarkers->{None,None,Graphics[{White,Disk[],Purple, 
AbsolutePointSize[.01],Point@{3,0}}]},PlotTheme->"Minimal"],UpdateInterval->1]

Mathematica 208 185 139 bytes

Moves a purple pixel around an array used as an Image.

Method 1 139 bytes

n=900;Dynamic@Refresh[t=DateValue@"Second";ReplacePixelValue[Image@Array[1&,{n,n}],
400{Cos[z=Pi/30t],Sin@z}+450->Purple],UpdateInterval->1]

Method 2 154 bytes

Plots a pixel along a circular path in 60 seconds.

Dynamic@Refresh[t=DateValue@"Second";Graphics[{[email protected],Purple, 
Point[{Cos[z=Pi/30t],Sin@z}]},PlotRange->1,ImageSize->Full],UpdateInterval->1]

Method 3 193 bytes

This draws a clock, with ticks and labels in white, for which the second hand is a pixel.

Dynamic@Refresh[ClockGauge[AbsoluteTime[],TicksStyle->White, 
GaugeMarkers->{None,None,Graphics[{White,Disk[],Purple, 
AbsolutePointSize[.01],Point@{3,0}}]},PlotTheme->"Minimal"],UpdateInterval->1]

deleted 4 characters in body

Source Link

edited Nov 1, 2015 at 13:40

DavidC

25.4k
2
52
105

#Mathematica ~~208 185~~ 156139 bytes

Moves a purple pixel around an array used as an Image.

Method 1 156139 bytes

n=900;Dynamic@Refresh[t=DateValue@"Second";ReplacePixelValue[Image[Array[1&n=900;Dynamic@Refresh[t=DateValue@"Second";ReplacePixelValue[Image@Array[1&,{n,n}]]],
400{Cos[z=Pi/30 t]30t],Sin@z}+450->Purple],UpdateInterval->1]

Method 2 185 154 bytes

Plots a pixel along a circular path in 60 seconds.

Dynamic@Refresh[t=DateValue@"Second";Graphics[{[email protected],Purple, 
Point[{Cos[z=t PiCos[z=Pi/30 t]30t],Sin@z}]},PlotRange->1,ImageSize->Full],UpdateInterval->1]

Method 3 194193 bytes

This draws a clock, with ticks and labels in white, for which the second hand is a pixel.

Dynamic@Refresh[ClockGauge[AbsoluteTime[],TicksStyle->White, 
GaugeMarkers->{None,None,Graphics[{White,Disk[],Purple, 
AbsolutePointSize[.01],Point@{3,0}}]},PlotTheme->"Minimal"],UpdateInterval->1]

#Mathematica ~~208 185~~ 156 bytes

Moves a purple pixel around an array used as an Image.

Method 1 156 bytes

n=900;Dynamic@Refresh[t=DateValue@"Second";ReplacePixelValue[Image[Array[1&,{n,n}]],
400{Cos[z=Pi/30 t],Sin@z}+450->Purple],UpdateInterval->1]

Method 2 185 bytes

Plots a pixel along a circular path in 60 seconds.

Dynamic@Refresh[t=DateValue@"Second";Graphics[{[email protected],Purple, 
Point[{Cos[z=t Pi/30 t],Sin@z}]},PlotRange->1,ImageSize->Full],UpdateInterval->1]

Method 3 194 bytes

This draws a clock, with ticks and labels in white, for which the second hand is a pixel.

Dynamic@Refresh[ClockGauge[AbsoluteTime[],TicksStyle->White, 
GaugeMarkers->{None,None,Graphics[{White,Disk[],Purple, 
AbsolutePointSize[.01],Point@{3,0}}]},PlotTheme->"Minimal"],UpdateInterval->1]

#Mathematica ~~208 185~~ 139 bytes

Moves a purple pixel around an array used as an Image.

Method 1 139 bytes

n=900;Dynamic@Refresh[t=DateValue@"Second";ReplacePixelValue[Image@Array[1&,{n,n}],
400{Cos[z=Pi/30t],Sin@z}+450->Purple],UpdateInterval->1]

Method 2 154 bytes

Plots a pixel along a circular path in 60 seconds.

Dynamic@Refresh[t=DateValue@"Second";Graphics[{[email protected],Purple, 
Point[{Cos[z=Pi/30t],Sin@z}]},PlotRange->1,ImageSize->Full],UpdateInterval->1]

Method 3 193 bytes

This draws a clock, with ticks and labels in white, for which the second hand is a pixel.

Dynamic@Refresh[ClockGauge[AbsoluteTime[],TicksStyle->White, 
GaugeMarkers->{None,None,Graphics[{White,Disk[],Purple, 
AbsolutePointSize[.01],Point@{3,0}}]},PlotTheme->"Minimal"],UpdateInterval->1]

deleted 14 characters in body

Source Link

edited Nov 1, 2015 at 9:52

DavidC

25.4k
2
52
105

#Mathematica ~~208 185~~ 156 bytes

Moves a purple pixel around an array used as an Image.

Method 1 156 bytes

n=900;Dynamic@Refresh[t=DateValue@"Second";ReplacePixelValue[Image[Array[1&,{n,n}]],
400{Cos[z=t 2PiCos[z=Pi/60]30 t],Sin@z}+450->Purple],UpdateInterval->1]

Method 2 185 bytes

Plots a pixel along a circular path in 60 seconds.

Dynamic@Refresh[t=DateValue@"Second";Graphics[{[email protected],Purple, 
Point[{Cos[z=t 2PiPi/60]30 t],Sin@z}]},PlotRange->1,ImageSize->Full],UpdateInterval->1]

Method 3 208194 bytes

This draws a clock, with ticks and labels in white, for which the second hand is a pixel.

Dynamic@Refresh[ClockGauge[AbsoluteTime[],TicksStyle->White, 
GaugeMarkers->{None,None,Graphics[{White,Disk[],RGBColor@{128,0,128}Purple, 
AbsolutePointSize[.01],Point@{3,0}}]},PlotTheme->"Minimal"],UpdateInterval->1]

#Mathematica ~~208 185~~ 156 bytes

Moves a purple pixel around an array used as an Image.

Method 1 156 bytes

n=900;Dynamic@Refresh[t=DateValue@"Second";ReplacePixelValue[Image[Array[1&,{n,n}]],
400{Cos[z=t 2Pi/60],Sin@z}+450->Purple],UpdateInterval->1]

Method 2 185 bytes

Plots a pixel along a circular path in 60 seconds.

Dynamic@Refresh[t=DateValue@"Second";Graphics[{[email protected],Purple, 
Point[{Cos[z=t 2Pi/60],Sin@z}]},PlotRange->1,ImageSize->Full],UpdateInterval->1]

Method 3 208 bytes

This draws a clock, with ticks and labels in white, for which the second hand is a pixel.

Dynamic@Refresh[ClockGauge[AbsoluteTime[],TicksStyle->White, 
GaugeMarkers->{None,None,Graphics[{White,Disk[],RGBColor@{128,0,128}, 
AbsolutePointSize[.01],Point@{3,0}}]},PlotTheme->"Minimal"],UpdateInterval->1]

#Mathematica ~~208 185~~ 156 bytes

Moves a purple pixel around an array used as an Image.

Method 1 156 bytes

n=900;Dynamic@Refresh[t=DateValue@"Second";ReplacePixelValue[Image[Array[1&,{n,n}]],
400{Cos[z=Pi/30 t],Sin@z}+450->Purple],UpdateInterval->1]

Method 2 185 bytes

Plots a pixel along a circular path in 60 seconds.

Dynamic@Refresh[t=DateValue@"Second";Graphics[{[email protected],Purple, 
Point[{Cos[z=t Pi/30 t],Sin@z}]},PlotRange->1,ImageSize->Full],UpdateInterval->1]

Method 3 194 bytes

This draws a clock, with ticks and labels in white, for which the second hand is a pixel.

Dynamic@Refresh[ClockGauge[AbsoluteTime[],TicksStyle->White, 
GaugeMarkers->{None,None,Graphics[{White,Disk[],Purple, 
AbsolutePointSize[.01],Point@{3,0}}]},PlotTheme->"Minimal"],UpdateInterval->1]

Rollback to Revision 4

Source Link

edited Nov 1, 2015 at 0:42

DavidC

25.4k
2
52
105

Loading

added 2 characters in body

Source Link

edited Oct 31, 2015 at 18:24

DavidC

25.4k
2
52
105

Loading

added 10 characters in body

Source Link

edited Oct 31, 2015 at 10:48

DavidC

25.4k
2
52
105

Loading

added 251 characters in body

Source Link

edited Oct 30, 2015 at 23:53

DavidC

25.4k
2
52
105

Loading

added 305 characters in body

Source Link

edited Oct 29, 2015 at 18:56

DavidC

25.4k
2
52
105

Loading

Source Link

created Oct 29, 2015 at 18:01

DavidC

25.4k
2
52
105

Loading

Stack Exchange Network

Return to Answer

Mathematica 208 185 139 bytes

Mathematica 208 185 139 bytes