SI
SI
discoversearch

We've detected that you're using an ad content blocking browser plug-in or feature. Ads provide a critical source of revenue to the continued operation of Silicon Investor.  We ask that you disable ad blocking while on Silicon Investor in the best interests of our community.  If you are not using an ad blocker but are still receiving this message, make sure your browser's tracking protection is set to the 'standard' level.
Politics : PRESIDENT GEORGE W. BUSH
 Public ReplyPrvt ReplyMark as Last ReadFilePrevious 10Next 10PreviousNext  
To: Mr. Palau who wrote (122601)1/18/2001 11:33:30 PM
From: Thomas A Watson   of 769670
 
Off course what do you expect. watman.com Give me the art and I will give it expression.

[ 1227 ] > cat /usr/local/bin/zzz
#!/bin/csh
# this is get em
# define seed url $1
# define last sequence $2
# define start of sequence $3
# define root or pre name 0 00 abie or abie00 etc $4
# assume .jpg

set blank =""
set seed=1
set last=2
set root="root"
set c=0
set seed=$1
set root=$4
set last=$2
set start=$3
set ten=10
set hun=100
@ last++
echo 1
if ( $start > $c ) then
set c=$start
endif
echo start is at 2

while ( $c < $last )
if ( $c < $ten ) then
echo $c 1 lynx -dump $seed$root"0"$c".jpg":
lynx -dump $seed$root"0"$c".jpg" >$root"0"$c".jpg"
set filename = $root"0"$c.jpg

else
echo $c 4 lynx -dump $seed$root$c".jpg"
lynx -dump $seed$root$c".jpg" >$root$c".jpg"
set filename = $root$c.jpg
endif
set filetype = `file $filename | awk '{print $2}'|grep JPEG | wc -l`
if ( $filetype > 0 ) then
echo file is jpeg
else
echo not a jpg
rm $filename
endif
@ c++
end
[ 1229 ] > cat /usr/local/bin/ppp
#!/bin/csh
mkdir renums
echo $1 this is the input rename prefix
mkdir orig
set c=1
set ten=10
set hun=100

set list = `ls *.[jJ][pP][gG]`

foreach i ($list)
set pre = `echo $i |awk -F - '{print $1}'`
if ($c < $ten ) then
echo $c 1
cp $i renums/$1"-00"$c".jpg"
else if ($c < $hun) then
echo $c 3
cp $i renums/$1"-0"$c".jpg"
else
echo $c 4
cp $i renums/$1"-"$c".jpg"
endif
@ c++
end
mv *.[jJ][pP][gG] orig


zzz bushorchimp.com 48 1 ; ppp hehe_palau

#!/bin/tcsh
# this script splits a list of jpg files in current directory
# Each image is processed in a foreach loop
# The image size is determined

if ( !( -e split ) ) then
mkdir split
endif

set list = `ls *.jpg`
set port = 768
set port1 = 480
set land = 1024
set land1 = 640

foreach i ($list)
echo file $i

set ROOT_IMAGE_NAME = `echo $i |awk -F. '{print $1}'`
set IMAGE_SIZE = `/usr/bin/identify -ping $i|awk '{print $2}'`
echo IMAGE_SIZE = $IMAGE_SIZE
set IMAGE_X_SIZE = `echo $IMAGE_SIZE |awk -Fx '{print $1}'`
set IMAGE_Y_SIZE = `echo $IMAGE_SIZE |awk -Fx '{print $2}'`

echo IMAGE_X_SIZE $IMAGE_X_SIZE
echo IMAGE_Y_SIZE $IMAGE_Y_SIZE
@ HALF_SIZE = $IMAGE_X_SIZE / 2
echo $HALF_SIZE HALF_SIZE
set LEFT_CROP = `echo $HALF_SIZE"x"$IMAGE_Y_SIZE"+0+0"`
set RIGHT_CROP = `echo $HALF_SIZE"x"$IMAGE_Y_SIZE"+"$HALF_SIZE"+0"`
echo $LEFT_CROP LEFT
echo $RIGHT_CROP RIGHT
convert -geom $IMAGE_SIZE -crop $LEFT_CROP $i left_$i
convert -geom $IMAGE_SIZE -crop $RIGHT_CROP $i right_$i
end

#!/bin/tcsh
# this script creates a list of jpg files in current directory
# Each image is then processed in a foreach loop
# The image size is determined
# several types of thumbnail are created. a label raised and a non labeled raise.
# also vga and 1/2 vga images are also created in their own subdirectory.
# After all the images are created a simple web page is created pointing to the
# different size images.

if ( !( -e thumbs ) ) then
mkdir thumbs
endif
#if ( !( -e 160x120 ) ) then
# mkdir 160x120
#endif

set list = `ls *.jpg`

foreach i ($list)
set IMAGE_TYPE = `/usr/bin/identify -ping $i|awk '{print $2}'|awk -Fx '{print $1}'`
set ROOT_IMAGE_NAME = `echo $i |awk -F. '{print $1}'`
set IMAGE_SIZE = `/usr/bin/identify -ping $i|awk '{print $2}'`

# making labeled thumbs
convert -geom 340x150 -bordercolor black -border 17 -pen white -draw 'text 1,163 "%t"' $i thumbs/l$i
end

Tom Watson tosiwmee
Report TOU ViolationShare This Post
 Public ReplyPrvt ReplyMark as Last ReadFilePrevious 10Next 10PreviousNext  

HomeMailHotSubjectMarksPeopleMarksKeepersSettings
Terms Of UseContact UsCopyright/IP PolicyPrivacy PolicyAbout UsFAQAdvertise on SI
© 2025 Knight Sac Media.  Data provided by Twelve Data, Alpha Vantage, and CityFALCON News