Original Usenet thread from alt.ascii-art, started 24 Apr 1997.
Ascii Hearts
alt.ascii-art
· 13 messages · 24 Apr 1997 - 4 May 1997
Got bored today and wrote some code. Here it is, Have fun :)
/* ---------------------------------- */
/* take text and melt it into a heart */
/* REXX code 4/24/97 by Gregory Spath */
/* enjoy :) */
/* ---------------------------------- */
/* To use: */
/* HEART [scroll] [text] */
/* */
/* if both scroll and text are */
/* ommitted, a single character heart */
/* is made using the value defined for */
/* an ASCII spacer below */
/* ---------------------------------- */
parse arg scroll thetext
l=length(thetext)
/* The following line defines the character used as a spacer */
heart = "@"
if scroll="" then scroll = heart
scrolltest=left(scroll,1,1)
if c2d(scrolltest) < 48 | c2d(scrolltest) > 57 then do
thetext = scroll||thetext
scroll=1
end
/* make adjustments to text if necessary */
do while l<200
thetext=thetext||heart||thetext
l = length(thetext)
end
/* seed the output strings */
do i=1 to 20
step = i * scroll
output.i=" "
overtext.i=substr(thetext, step)
end
/* make the heart */
data.1='09062606'
data.2='07102410'
data.3='05142214'
data.4='03172117'
data.5='0237'
data.6='0139'
data.7='0139'
data.8='0139'
data.9='0237'
data.10='0335'
data.11='0433'
data.12='0531'
data.13='0727'
data.14='0923'
data.15='1119'
data.16='1315'
data.17='1511'
data.18='1707'
data.19='1903'
data.20='2001'
do i = 1 to 4
start1=substr(data.i, 1, 2)
length1=substr(data.i, 3, 2)
start2=substr(data.i, 5, 2)
length2=substr(data.i, 7, 2)
output.i=overlay(substr(overtext.i, start1), output.i, start1, length1)
output.i=overlay(substr(overtext.i, start2), output.i, start2, length2)
end
do i = 5 to 20
start1=substr(data.i, 1, 2)
length1=substr(data.i, 3, 2)
output.i=overlay(substr(overtext.i, start1), output.i, start1, length1)
end
do i = 1 to 20
say output.i
end
__________________________________________________
reply-to address is incorrect. Please send any
email to gsp...@epix.net.
__________________________________________________
Greg Spath (Wease on IRC) | SKYDIVING
gsp...@epix.net | MOUNTAINBIKING
http://www.epix.net/~gspath | OS/2 and IRC
--------------------------------------------------
Greg wrote: > > Got bored today and wrote some code. Here it is, Have fun :) > What language is that? C? Java? ...? -- :) Veronica Karlsson ( e93...@sm.luth.se http://www.ludd.luth.se/~vk/ ) ( llizard's animation site: http://jota.sm.luth.se:80/~e93-vkn/docs/ )
I wrote stupidly enough:
> A Trebble Chef (?)
Ooops
,Imeantatr
ebleclef!O
oops,Imeanta
trebleclef!Ooo
ps,Imeantatreblec
lef!Ooops,Imeanta
treble cle
f!Ooops, Ime
antatr eble
clef!Oo ops
,Imeant atr
eblec lef
!Ooops ,Im
eanta tre
blecl ef!
Ooops ,Ime
ant atre
ble clef
!Oo ops,I
mea ntatreb
lec lef!Ooo
ps, Imeantatre
blec lef!Ooops
,Ime antatreblec
lef! Ooops,Imeant
atrebleclef!Ooops,
Imeantatreblecle
f!Ooops,Imeantat
rebleclef!Ooops,I
meantatrebleclef!O
oops,Imeantatreblec
lef!Ooops,Imeantat
rebleclef!Ooops,Imea
ntatrebleclef!Ooop
s,Imeantatreblecl e
f!Ooops,Imeantatreb lec
lef!Ooops,Imeanta tre
bleclef!Ooops,Im ea
ntatrebleclef! Oo
ops,Imeantatre bl
eclef!Ooops,Im ea
ntatreblecle f!Ooops,Ime
antatreblec lef!Ooops,Imeantatreblecl
ef!Ooops, Imeantatrebleclef!Ooops,Imean
tatreblec lef!Ooops,Imeantatrebleclef!Ooo
ps,Imeant atrebleclef!Ooops,Imeantatreblecle
f!Ooops, Imeantatrebleclef!Ooops,Imeantatreblec
lef!Ooop s,Imeantatrebl ec lef!Ooops,Imean
tatreb leclef!Oo op s,Imeanta
treble clef!Oo ops ,Imeantatr
eblecl ef!Ooo p s,Imeantat
reblec lef! O oops,Ime
anta treb l eclef!O
oops ,Ime ant atreble
clef!O oop s, Imeanta
trebl ecl ef !Ooop
s,Imea ntat re blecle
f!Ooop s,Imean ta treble
clef! Ooops ,I meant
atrebl ec lef!O
oops,Ime an tatreb
leclef! Oo ops,Im
eantatreb leclef!O
oops,Imeantatrebleclef!
Ooops,Imeant a
t
reb
le
cl
ef
!Ooops,I mea
ntatreblecle f
!Ooops,Imeanta t
rebleclef!Ooops,I m
eantatrebleclef!Oo op
s,Imeantatreblecle f!
Ooops,Imeantatrebl ec
lef!Ooops,Imeanta tre
bleclef!Ooops,I mea
ntatre ble
clef!O oops,
Imeantatrebleclef!Ooops,
Imeantatrebleclef!O
--
(Please remove ".spam.please" from my email before replying)
.______________________________________________________.
| .:' E______.R_____.I____.K_.____. |
| __ :'__ ) ____) ) ) / / |
| .'`__`-'__``. / ____/ O </ / -< |
| :__________.-' /______(__/\___(____(___\___( |
| :_________: <:::Wigwam Internet Community:::> |
| :_________`-; ID: Erik K. Veland (aka grim) |
|jgs`.__.-.__.' Mail: ekv...@online.no |
|_N_E_W___U_R_L___!_!_!___N_E_W___U_R_L___!_!_!___N_E_W|
| Wigwam Internet Community: http://wigwam.askoyv.no |
!______________________________________________________!
Greg wrote: > > Got bored today and wrote some code. Here it is, Have fun :) > > /* ---------------------------------- */ > /* take text and melt it into a heart */ > /* REXX code 4/24/97 by Gregory Spath */ > /* enjoy :) */ [snip of incomprehensible coding] > Greg Spath (Wease on IRC) gsp...@epix.net ??? ___ /\ _/ | ===%^, My head hurts.... |_____| \/> --- == > [_____] __>,^ | | //| | What should your code be saved as in order to read it? NOTE: If you hit the reply button, add an "e" to the "freent"; its absense is to stop the torment of automatic mailers. -- ,^ ===%^^^^^^^^^^^^^^^ " " llizard aka ejm cq5...@freenet.toronto.on.ca
llizard wrote: > > Greg wrote: > > > > Got bored today and wrote some code. Here it is, Have fun :) > > > > /* ---------------------------------- */ > > /* take text and melt it into a heart */ > > /* REXX code 4/24/97 by Gregory Spath */ > > /* enjoy :) */ > > [snip of incomprehensible coding] > > > Greg Spath (Wease on IRC) gsp...@epix.net > > ??? > > ___ /\ > _/ | ===%^, My head hurts.... > |_____| \/> > --- == > > [_____] __>,^ > | | //| | > > What should your code be saved as in order to read it? > I see I am not the only one to wonder.... maybe you could supply us with some information as to how to view this probably very nice thing, whatever it is... ? -- :) Veronica Karlsson ( e93...@sm.luth.se http://www.ludd.luth.se/~vk/ ) ( llizard's animation site: http://jota.sm.luth.se:80/~e93-vkn/docs/ )
In <335...@sm.luth.se.nospam>, Veronica Karlsson <e93...@sm.luth.se.nospam> writes: >Greg wrote: >> >> Got bored today and wrote some code. Here it is, Have fun :) >> > >What language is that? C? Java? ...? > oops...sowwy :( It's REXX. I thought I said that. Oh well :) __________________________________________________ reply-to address is incorrect. Please send any email to gsp...@epix.net. __________________________________________________ Greg Spath (Wease on IRC) | SKYDIVING gsp...@epix.net | MOUNTAINBIKING http://www.epix.net/~gspath | OS/2 and IRC --------------------------------------------------
Greg wrote: > > In <335...@sm.luth.se.nospam>, Veronica Karlsson <e93...@sm.luth.se.nospam> writes: > >Greg wrote: > >> > >> Got bored today and wrote some code. Here it is, Have fun :) > >> > > > >What language is that? C? Java? ...? > > > > oops...sowwy :( It's REXX. I thought I said that. Oh well :) hmmm..... never heard of it... how does one make it work? -- :) Veronica Karlsson ( e93...@sm.luth.se http://www.ludd.luth.se/~vk/ ) ( llizard's animation site: http://jota.sm.luth.se:80/~e93-vkn/docs/ )
In message <336...@sm.luth.se.nospam>
Veronica Karlsson <e93...@sm.luth.se.nospam> writes:
> Greg wrote:
> >
> > In <335...@sm.luth.se.nospam>, Veronica Karlsson
<e93...@sm.luth.se.nospam> writes:
> > >Greg wrote:
> > >>
> > >> Got bored today and wrote some code. Here it is, Have fun :)
> > >>
> > >
> > >What language is that? C? Java? ...?
> > >
> >
> > oops...sowwy :( It's REXX. I thought I said that. Oh well :)
> hmmm..... never heard of it... how does one make it work?
Not sure, I remember it from my Amiga days though
James!
e93...@sm.luth.se.nospam meinte am 29.04.97 zum Thema "Re: Ascii Hearts": ev> Greg wrote: ev> > oops...sowwy :( It's REXX. I thought I said that. Oh well :) Well, the source said it...strange that everybody is asking ;-) ev> hmmm..... never heard of it... how does one make it work? With e.g. PC DOS 7, just save it as a .BAT file and start it. I do not know about other systems such as OS/2 (which supports REXX) or the commercially available REXX for MS DOS... I might tell you about VM and MVS, but I guess you are not using it ;-) Ciao Bernd ------------------------------------------------------------------------- This line intentionally left blank ## CrossPoint v3.1 ##
Bernd Wolff: > e93...@sm.luth.se.nospam meinte am 29.04.97 > zum Thema "Re: Ascii Hearts": > > ev> Greg wrote: > ev> > oops...sowwy :( It's REXX. I thought I said that. Oh well :) > > Well, the source said it...strange that everybody is asking ;-) > > ev> hmmm..... never heard of it... how does one make it work? > > With e.g. PC DOS 7, just save it as a .BAT file and start it. > I do not know about other systems such as OS/2 (which supports > REXX) or the commercially available REXX for MS DOS... I might > tell you about VM and MVS, but I guess you are not using it ;-) No, unix... -- :) Veronica Karlsson ( e93...@sm.luth.se http://www.ludd.luth.se/~vk/ ) ( llizard's animation site: http://jota.sm.luth.se:80/~e93-vkn/docs/ )
Is there a list somewhere that someone could point me to of the relative "lightness" and "darkness" of the characters in the ascii character set? Some of the art posted looks great with white text on a black background, and I'd like to "negate" them, so they'd look good with black text on a white background. Thanks -- This is me: tal...@pacbell.net
In article <6Vs...@p-bwolff.newswire.de> Bernd Wolff wrote: > > e93...@sm.luth.se.nospam meinte am 29.04.97 > zum Thema "Re: Ascii Hearts": > > ev> Greg wrote: > ev> > oops...sowwy :( It's REXX. I thought I said that. Oh well :) > > Well, the source said it...strange that everybody is asking ;-) > > ev> hmmm..... never heard of it... how does one make it work? > > With e.g. PC DOS 7, just save it as a .BAT file and start it. > I do not know about other systems such as OS/2 (which supports > REXX) or the commercially available REXX for MS DOS... I might > tell you about VM and MVS, but I guess you are not using it ;-) .bat as in: -- | | | | | | | | | | | | | | | | ',,' || || || ejm97 )( (__) or: /^v^\ /^v^\ /^v^\ ejm 96 /^v^\ /^v^\ ? (my idea of a little joke) Okay, I saved it as a .bat and here is what came up: ------------------------------------------------------ C:\WINDOWS>end Bad command or file name C:\WINDOWS> C:\WINDOWS> C:\WINDOWS>/*make adjustments to text if necessary */ Bad command or file name C:\WINDOWS>do while l<200 Bad command or file name C:\WINDOWS> the text=the text||heart||the text Syntax error C:\WINDOWS> l = length(thetext) Bad command or file name C:\WINDOWS>end Bad command or file name C:\WINDOWS> C:\WINDOWS> ---------------------------------------------------------- Please advise. NOTE: If you hit the reply button, add an "e" to the "freent"; its absense is to stop the torment of automatic mailers. -- ??? ___ /\ _/ | ===%^, My head hurts.... |_____| \/> --- == > [_____] __>,^ llizard aka ejm | | //| | cq5...@freenet.toronto.on.ca
cq5...@freent.toronto.on.ca meinte am 03.05.97 zum Thema "Re: Ascii Hearts": c> .bat as in: c> c> -- c> | | c> | | c> | | c> | | c> | | c> | | c> | | c> | | c> ',,' c> || c> || c> || c> ejm97 )( c> (__) I remember that at school the computers worked more reliable when threatened with an axe, but I am not sure about bats... c> C:\WINDOWS>end c> Bad command or file name c> c> C:\WINDOWS> c> C:\WINDOWS> c> C:\WINDOWS>/*make adjustments to text if necessary */ c> Bad command or file name c> c> C:\WINDOWS>do while l<200 c> Bad command or file name c> c> C:\WINDOWS> the text=the text||heart||the text c> Syntax error c> c> C:\WINDOWS> l = length(thetext) c> Bad command or file name c> c> C:\WINDOWS>end c> Bad command or file name Looks like you are using MS-DOS or DR-DOS, which do not support REXX. AFAIK there is a product called KREXX or so, which allows you to use REXX procedures... PC-DOS comes complete with REXX. c> c> ___ /\ c> _/ | ===%^, My head hurts.... c> |_____| \/> c> --- == > c> [_____] __>,^ llizard aka ejm c> | | //| | cq5...@freenet.toronto.on.ca Your are sitting too close to the screen, I'd say :-) Ciao Bernd ------------------------------------------------------------------------- This line intentionally left blank ## CrossPoint v3.1 ##
Related ASCII art in the Gallery
Explore these categories from our collection of 11,000+ artworks:
Make your own ASCII art
Turn images, text or 3D into ASCII, or draw your own – right in your browser.
About this thread.
These messages were posted publicly to the newsgroup
alt.ascii-art
in 1997 and are mirrored here unchanged as part of the Historic Archives – only email addresses are masked.
The artwork and text belong to their original authors: if you copy a piece, keep the artist's initials or signature intact and credit them where you can.
Are you one of the authors? Contact us to get your posts attributed, connected to your artist profile, or removed.
Report this message
Help us keep the archive clean and accurate. Reports are reviewed by a person – nothing is changed automatically.