Return to Answer

added 91 characters in body

Source Link

edited Sep 9, 2017 at 16:35

37.4k
4
61
152

This is the best use of SocketConnect that I can think for now.

Dynamic[Framed@TextCell[
   Text[Style[
     txt, LineSpacing -> {0.5, 0}, FontFamily -> "Courier", 
     TextJustification -> 0]], PageWidth -> 180
   , Background -> RGBColor[0, 0, Rational[8, 27]], FontColor -> White
   ]]

socket = SocketConnect[{"towel.blinkenlights.nl", 23}];
CheckAbort[
  While[txt =!= EndOfFile,
   txt = ReadString[socket, "\[RawEscape][H"]
   ], Close[socket]
  ];
Close[socket]

Mathematica graphics

This is the best use of SocketConnect that I can think for now.

Dynamic[Framed@TextCell[
   Text[Style[
     txt, LineSpacing -> {0.5, 0}, FontFamily -> "Courier", 
     TextJustification -> 0]], PageWidth -> 180
   , Background -> RGBColor[0, 0, Rational[8, 27]], FontColor -> White
   ]]

socket = SocketConnect[{"towel.blinkenlights.nl", 23}];
CheckAbort[
  While[txt =!= EndOfFile,
   txt = ReadString[socket, "\[RawEscape][H"]
   ], Close[socket]
  ];
Close[socket]

Mathematica graphics

This is the best use of SocketConnect that I can think for now.

Dynamic[Framed@TextCell[
   Text[Style[
     txt, LineSpacing -> {0.5, 0}, FontFamily -> "Courier", 
     TextJustification -> 0]], PageWidth -> 180
   , Background -> RGBColor[0, 0, Rational[8, 27]], FontColor -> White
   ]]

socket = SocketConnect[{"towel.blinkenlights.nl", 23}];
CheckAbort[
  While[txt =!= EndOfFile,
   txt = ReadString[socket, "\[RawEscape][H"]
   ], Close[socket]
  ];
Close[socket]

Mathematica graphics

Source Link

created Sep 9, 2017 at 16:19

rhermans

37.4k
4
61
152

This is the best use of SocketConnect that I can think for now.

Dynamic[Framed@TextCell[
   Text[Style[
     txt, LineSpacing -> {0.5, 0}, FontFamily -> "Courier", 
     TextJustification -> 0]], PageWidth -> 180
   , Background -> RGBColor[0, 0, Rational[8, 27]], FontColor -> White
   ]]

socket = SocketConnect[{"towel.blinkenlights.nl", 23}];
CheckAbort[
  While[txt =!= EndOfFile,
   txt = ReadString[socket, "\[RawEscape][H"]
   ], Close[socket]
  ];
Close[socket]

Mathematica graphics