Comments on: Automatic creation of images displaying sequential numbers

Question: Automatic creation of images displaying sequential numbers

Grensgeval — Wed, 30 Apr 2008 02:22:02 -0800

How do I automatically create a series of images of sequential numbers? ( 01.jpg shows the number '1', 02.jpg the number '2', etc)

I would prefer to do this using software for Windows. Although if need be, a Mac-only solution would do.

The file-format is of no importance, since conversion is always possible.
Image size for my use is about 500x500 pixels. Simple two-tone images are fine, although some influence on (randomization of) background color, font type/color would be even better.

I'm no guru, but have a basic understanding of Adobe's CS3 Suite and have monkeyed around with various video-editing programs (using the titler functions) as well as image-management software (e.g. ThumbsPlus) and different watermarking software to get this problem solved, but without success.

I'm sure it must be possible, even if the method is a 'dirty' way of using a program. ThumbsPlus for example can make thumbnail-sheets of images, which it then numbers, if you ask it to. However, I haven't been able to cheat this option into doing what I need.

Any ideas? Making these by hand is not going to be fun...

By: le morte de bea arthur

le morte de bea arthur — Wed, 30 Apr 2008 02:51:33 -0800

This is the sort of thing you could do fairly easily in VB 2008. My guess is it would take less than 10 lines of code. If you don't find a better solution and need someone to write the code for you, mail me and I'll see what I can do.

By: grouse

grouse — Wed, 30 Apr 2008 02:58:27 -0800

Install Cygwin, making sure to include ImageMagick in your install. Typing these commands from the bash shell will generate all of the images:

FILLS=(firebrick2 magenta2 NavyBlue DarkGreen DarkGoldenrod2)

FONTS=(Helvetica-BoldOblique Palatino-Bold AvantGarde-Book Times-Italic)



X=1

while [ $X -lt 100 ]; do

    FILL=${FILLS[( $RANDOM % ${#FILLS[@]} )]}

    FONT=${FONTS[( $RANDOM % ${#FONTS[@]} )]}

    convert -size 500x500 -fill $FILL -font $FONT -gravity center label:$X ${X}.png

    let X=X+1

done

See these recipes for examples. Here are color names.

Sorry, I didn't bother to make the file for 1 be 01.png, rename it yourself.

By: burnmp3s

burnmp3s — Wed, 30 Apr 2008 04:31:41 -0800

Here's a solution in VB.NET 2005. You have to set maxNumber to whatever you need it to be, and you would need to mess with the font size and text location for it to look pretty, but the rest of it should be what you need.



        Dim maxNumber As Integer = 100

        Dim textSize As New Size(500, 500)

        Dim textLocation As New Point(0, 0)



        Dim numberofdigits As Integer = CInt(Math.Floor(Math.Log10(maxNumber))) + 1



        For i As Integer = 1 To maxNumber



            Dim numberText As String = i.ToString

            Dim font As New Font("Lucida Console", 240, FontStyle.Regular)



            Dim blankImage As New Bitmap(textSize.Width, textSize.Height)

            Dim graph As Graphics = Graphics.FromImage(blankImage)

            graph.DrawString(numberText, font, Brushes.Black, textLocation.X, textLocation.Y)



            Dim fileName As String = i.ToString.PadLeft(numberofdigits, "0"c) & ".bmp"

            blankImage.Save(fileName)



        Next

By: chocolatepeanutbuttercup

chocolatepeanutbuttercup — Wed, 30 Apr 2008 05:11:42 -0800

Adobe Photoshop:
File | Automate | Batch

You can run it from a folder or using files that are already opened.

By: Grensgeval

Grensgeval — Wed, 30 Apr 2008 05:41:28 -0800

@grouse, that was beautiful.
I'm not a programmer at all, but even I can understand that code.

Installed Cygwin, copied your code and it worked the very first time.

Using your links I'll pretty the results up a little.

Thank you so much!

@burbmp3s, thank you for you reply!
It was easier for me to understand the Cygwin code, so for now that what I went with.
I'll give your code a test run later in the week, it will be put to use, so also major kudos to you, cheers!