Off Topic / Religion -> Bible chat rooms? [Closed]

For other topics related to the FreeBASIC project or its community.
rolliebollocks
Posts: 2655
Joined: Aug 28, 2008 10:54
Location: new york

Postby rolliebollocks » Feb 23, 2011 16:52

The bible predicts Armageddon, this surely must be the case, we can see it now all around us now, and it is fast approaching.
Sorry to seem so gloomy, but everybody, in their inner self, knows that we are living in Fool's Paradise, for we don't have the ability to shake off (pride, avarice, lust, envy, gluttony, anger, sloth), the seven DEADLY sins.
We ignore them at our peril.
Modern understanding is an abstract noun which is meaningless, for in 1000 years from now, if we still exist, all we know now will have been superceded by a different knowledge.


I prescribe 37 doses of Taoism. Wu wei, is a healthy solution to this problem. I also agree we are pushing the envelope for what constitutes wise conduct. Pride, avarice and sloth are the sins of the technological age. Prophecies do have a way of self-fulfilling. We have more knowledge of nature, but we are less attuned to it. We live in a self-constructed ecosystem where the laws of Darwin (thankfully) no longer apply.

But have we solved one problem only to introduce another? If so it would be our desire for convenience and the mass production of non-degradable substances for productions sake alone.
vdecampo
Posts: 2982
Joined: Aug 07, 2007 23:20
Location: Maryland, USA
Contact:

Postby vdecampo » Feb 23, 2011 16:57

rolliebollocks wrote:We live in a self-constructed ecosystem where the laws of Darwin (thankfully) no longer apply.


If you think natural selection no longer plays a part in human evolution, I think you are mistaken. I recently heard of a study that identified that womens breasts are larger than 50 years ago and it was attributed to the fact that males prefer larger breasts. Hence these women pass on their traits for large breasts!

THANK GOD FOR DARWIN!

-Vince
rolliebollocks
Posts: 2655
Joined: Aug 28, 2008 10:54
Location: new york

Postby rolliebollocks » Feb 23, 2011 18:25

You're right, but that is aesthetic selection, large breasts cause back problems and would slow a woman down if she was running from something predatory. The laws that govern large breasts and that laws that govern fitfullness to survive are necessarily different.

For instance, in the 70's Olive Oil shaped women were preferred, Kate Moss types who are anorexically thin. There is no natural reason this preference would occur, it can only be described by aesthetic selection.

So no, I don't think fitfullness for survival plays a dominant role with all the medical technology at our disposal. Also, it has been argued that our knowledge of medicine has put us at an evolutionary dead end at least as regards the body.

The factors nowadays that predict how many children you have are

#1. A lack of education
#2. A lack of health insurance
owen
Posts: 555
Joined: Apr 19, 2006 10:55
Location: Kissimmee, FL
Contact:

Postby owen » Feb 23, 2011 19:54

"a place where I can discuss these matters freely", would be with me on skype: user name opreese

never thought i would see this as a topic of discussion in this forum however it would be rather cool if this discussion would lend itself to something related to programming such as morality for AI.
BasicCoder2
Posts: 3671
Joined: Jan 01, 2009 7:03
Location: Australia

Postby BasicCoder2 » Feb 23, 2011 20:20

[delete]
Last edited by BasicCoder2 on Feb 25, 2011 3:15, edited 2 times in total.
TJF
Posts: 3609
Joined: Dec 06, 2009 22:27
Location: N47°, E15°
Contact:

Postby TJF » Feb 23, 2011 20:20

owen wrote:... morality for AI.

Amnesty International? :)
dodicat
Posts: 6789
Joined: Jan 10, 2006 20:30
Location: Scotland

Postby dodicat » Feb 24, 2011 0:14

Slightly off the bible topic, but another book set around the times of the Christian Crusades.
Anyway, it's a bit of FreeBasic code, to make up for the doom and gloom of Armageddon, and I don't think it has ties with breasts, but I haven't read the book, so it might have.
It is anagramic by nature, as you may see.

Code: Select all


Declare Sub rotate(Byval pivot_x As Double,_   'turns about this point
           Byval pivot_y As Double,_
           Byval first_x As Double,_    'centre for circles
           Byval first_y As Double,_
           Byval second_x As Double, _   'radius for circles
           Byval second_y As Double, _   'aspect
           Byval arc_1 As Double,_       'arcs only for circle, 0 for lines
           Byval arc_2 As Double,_
           Byval angle As Double, _      'all below for circles and lines
           Byval magnifier As Double,_
           Byval dilator As Double,_
           Byval colour As Integer,_
           Byval thickness As Double,_
           Byref shape As String,_
           image As Any Pointer=0)
        Dim Shared np(1 To 4) As Double   
 Declare  Sub paintstring(x As Double,_
           y As Double,_
           s As String,_
           size As Double,_
           c As Uinteger,_
           line_angle As Double=0,_
           char_angle As Double=0,_
           thickness_tweak As Double=1,_
           image As Any Pointer=0)
  ' ___________________________________________________________ 
  Screen 19,32',,1

  type point2d
      as double x,y
      as uinteger col
      as uinteger asci
      as string char
  end type
  dim shared as point2d p1(1 to 28),p2(1 to 28)
  Dim Shared As Double next_x,next_y
 
 
  sub storeline1(col as uinteger)
       next_x=5:next_y=100
      restore data1
  For x As Integer=1 To 28
      read p1(x).asci'u(x)
      p1(x).char=chr(p1(x).asci)
      p1(x).x=next_x:p1(x).y=next_y:p1(x).col=rgb(200,100,200)
      paintstring(next_x,next_y,p1(x).char,.8,col)
   next x
end sub
 sub storeline2(col as uinteger)
     next_x=5:next_y=300
      restore data2
  For x As Integer=1 To 28
      read p2(x).asci'u(x)
      p2(x).char=chr(p2(x).asci)
      p2(x).x=next_x:p2(x).y=next_y:p2(x).col=rgb(00,00,0)
      paintstring(next_x,next_y,p2(x).char,.8,col)
   next x
end sub
sub writeline1(p() as point2d)
    for x as integer=1 to 28
        paintstring(p(x).x,p(x).y,p1(x).char,.8,p(x).col)
    next x
end sub

sub writeline2(p() as point2d)
    for x as integer=1 to 28
        paintstring(p(x).x,p(x).y,p2(x).char,.8,p(x).col)
    next x
end sub
   
   storeline1 rgb(0,0,0)
   storeline2 rgb(0,0,0)
   

   dim temp(1 to 28) as string
   dim as double dx,dy,sx,sy,temp2
   for x1 as integer=1 to 28
       
       for x2 as integer=1 to 28

           if temp(x2)<>p1(x1).char then
           if p1(x1).char=p2(x2).char then
               temp(x2)=p1(x1).char
               dx=p2(x2).x-p1(x1).x
               dy=p2(x2).y-p1(x1).y
               temp2=sqr(dx^2+dy^2)
               dx=dx/temp2:dy=dy/temp2
             
                  for z as single=0 to temp2 step 5
                    screenlock
                   cls
                    writeline1(p1())
                   sx=p1(x1).x+z*dx
                   sy=p1(x1).y+z*dy
                 paintstring(sx,sy,p2(x2).char,.8,p1(x2).col)
                 writeline2(p2())
             screenunlock
             sleep 1,1
            next z
            p2(x2).col=p1(x2).col
               exit for
           end if
           end if
       next x2
   next x1
   cls
   writeline1(p1())
   writeline2(p2())
   paintstring 300,500,"END",2,rgb(0,200,0)
   '__________________________________________________         
 Sleep         
  DATA1:
Data 65,32,78,79,86,69,76,32,66,89,32,65,32,83,67,79,84,84,73,83,72,32,87,82,73,84,69,82
DATA2:
Data 32,73,86,65,78,72,79,69,32,66,89,32,83,73,82,32,87,65,76,84,69,82,32,83,67,79,84,84         
 'SUBS________________________________         
Sub rotate(Byval pivot_x As Double,_   'turns about this point
           Byval pivot_y As Double,_
           Byval first_x As Double,_    'centre for circles
           Byval first_y As Double,_
           Byval second_x As Double, _   'radius for circles
           Byval second_y As Double, _   'aspect
           Byval arc_1 As Double,_       'arcs only for circle, 0 for lines
           Byval arc_2 As Double,_
           Byval angle As Double, _      'all below for circles and lines
           Byval magnifier As Double,_
           Byval dilator As Double,_
           Byval colour As Integer,_
           Byval thickness As Double,_
           Byref shape As String,_
           image As Any Pointer=0)
           'rotated line is  (np(1),np(2))-(np(3),np(4))
           'rotated circle centre is np(3),np(4)
           'shape:
           'line - draws the line
           'linepoint - does the calculation, draws nothing
           'linepointset - does the calculations, sets a pixel at the line ends
           'ALSO circle,circlepoint, circlepointset,box, boxfill, circlefill.
           'arcs from horizontal positive x axis in DEGREES
           'arc1<arc2 always e.g from 330 to 430
  shape=Lcase$(shape)     
Dim p As Double = 4*Atn(1)  '(pi)
Dim radians As Double
Dim line_xvector As Double
Dim line_yvector As Double
Dim pivot_xvector As Double
Dim pivot_yvector As Double
Dim th As Double
  th=thickness
  Dim sx As Double=second_x
  angle=angle Mod 360
radians=(2*p/360)*angle      'change from degrees to radians
#Macro thickline(t)
Dim As Double s,h,c
Dim As Uinteger prime=Rgb(255,255,255)
h=Sqr(((np(1))-(np(3)))^2+((np(2))-(np(4)))^2)
s=((np(4))-np(2))/h
c=(np(1)-(np(3)))/h
Line image, (np(3)+s*t/2,np(4)+c*t/2)-(np(1)+s*t/2,np(2)+c*t/2),prime
Line image, (np(3)-s*t/2,np(4)-c*t/2)-(np(1)-s*t/2,np(2)-c*t/2),prime
Line image, (np(3)+s*t/2,np(4)+c*t/2)-(np(3)-s*t/2,np(4)-c*t/2),prime
Line image, (np(1)+s*t/2,np(2)+c*t/2)-(np(1)-s*t/2,np(2)-c*t/2),prime
Paint image,((np(3)+np(1))/2, (np(4)+np(2))/2),prime,prime

Line image, (np(3)+s*t/2,np(4)+c*t/2)-(np(1)+s*t/2,np(2)+c*t/2),colour
Line image, (np(3)-s*t/2,np(4)-c*t/2)-(np(1)-s*t/2,np(2)-c*t/2),colour
Line image, (np(3)+s*t/2,np(4)+c*t/2)-(np(3)-s*t/2,np(4)-c*t/2),colour
Line image, (np(1)+s*t/2,np(2)+c*t/2)-(np(1)-s*t/2,np(2)-c*t/2),colour
Paint image,((np(3)+np(1))/2, (np(4)+np(2))/2), colour, colour
#EndMacro

#macro thickcircle(t)
Dim As Uinteger prime=Rgb(255,255,255)
Dim As Double xp1,xp2,yp1,yp2
Dim arc1 As Double=arc_1*p/180
Dim arc2 As Double=arc_2*p/180
arc1=2*p+(arc1-(radians))
arc2=2*p+(arc2-(radians))
sx=sx*magnifier
If arc1=arc2 Then
     Circle image,(np(3),np(4)),sx+t/2,prime,,,second_y
    Circle image,(np(3),np(4)),sx-t/2,prime,,,second_y
    Paint image,(np(3),np(4)+sx),prime,prime
    Paint image,(np(3)+sx,np(4)),prime,prime
    Circle image,(np(3),np(4)),sx+t/2,colour,,,second_y
    Circle image,(np(3),np(4)),sx-t/2,colour,,,second_y
    Paint image,(np(3),np(4)+sx),colour,colour
    Paint image,(np(3)+sx,np(4)),colour,colour
End If
If arc1<>arc2 Then
    xp1=np(3)+(sx)*Cos(.5*(arc2+arc1))
yp1=np(4)-(sx)*Sin(.5*(arc2+arc1))
Circle image,(np(3),np(4)),sx+t/2,prime,arc1,arc2,second_y
    Circle image,(np(3),np(4)),sx-t/2,prime,arc1,arc2,second_y
    Line image,(np(3)+(sx+t/2)*Cos(arc1),np(4)-(sx+t/2)*Sin(arc1))-(np(3)+(sx-t/2)*Cos(arc1),np(4)-(sx-t/2)*Sin(arc1)),prime
    Line image,(np(3)+(sx+t/2)*Cos(arc2),np(4)-(sx+t/2)*Sin(arc2))-(np(3)+(sx-t/2)*Cos(arc2),np(4)-(sx-t/2)*Sin(arc2)),prime

    Paint image,(xp1,yp1),prime,prime
   
Circle image,(np(3),np(4)),sx+t/2,colour,arc1,arc2,second_y
    Circle image,(np(3),np(4)),sx-t/2,colour,arc1,arc2,second_y
    Line image,(np(3)+(sx+t/2)*Cos(arc1),np(4)-(sx+t/2)*Sin(arc1))-(np(3)+(sx-t/2)*Cos(arc1),np(4)-(sx-t/2)*Sin(arc1)),colour
    Line image,(np(3)+(sx+t/2)*Cos(arc2),np(4)-(sx+t/2)*Sin(arc2))-(np(3)+(sx-t/2)*Cos(arc2),np(4)-(sx-t/2)*Sin(arc2)),colour

    Paint image,(xp1,yp1),colour,colour
   
End If
#endmacro

magnifier=dilator*magnifier     
pivot_xvector=first_x-pivot_x
pivot_yvector=first_y-pivot_y
pivot_xvector=dilator*pivot_xvector 
pivot_yvector=dilator*pivot_yvector
Dim mover(1 To 2,1 To 2) As Double
Dim new_pos(1 To 2) As Double
mover(1,1)=Cos(radians)
mover(2,2)=Cos(radians)
mover(1,2)=-Sin(radians)
mover(2,1)=Sin(radians)

line_xvector=magnifier*(second_x-first_x)                   'get the vector
line_yvector=magnifier*(second_y-first_y)                   'get the vector

new_pos(1)=mover(1,1)*pivot_xvector+mover(1,2)*pivot_yvector +pivot_x
new_pos(2)=mover(2,1)*pivot_xvector+mover(2,2)*pivot_yvector +pivot_y
Dim new_one(1 To 2) As Double            'To hold the turned value

new_one(1)=mover(1,1)*line_xvector+mover(1,2)*line_yvector +first_x
new_one(2)=mover(2,1)*line_xvector+mover(2,2)*line_yvector +first_y
Dim xx As Double   'translation
Dim yy As Double
xx=first_x-new_pos(1)
yy=first_y-new_pos(2)
np(1)=new_one(1)-xx 
  np(2)=new_one(2)-yy   
  np(3)=first_x-xx
 np(4)=first_y-yy
Select Case shape
Case "line"
    If th<2 Then
 Line image,(np(3),np(4))-(np(1),np(2)),colour
Else
 thickline(th)   
 End If
Case "circle"
    Dim arc1 As Double=arc_1*p/180
Dim arc2 As Double=arc_2*p/180
    If arc1=arc2 Then
    If th<=3 Then
        For n As Double=magnifier*sx-1 To magnifier*sx+1 Step .5
     Circle image,(np(3),np(4)),n,colour,,,second_y       
 'circle image,(np(3),np(4)),magnifier*sx,colour,,,second_y
 Next n
Else
 thickcircle(th)
End If
Endif
If arc1<>arc2 Then
If th<=3 Then
    arc1=2*p+(arc1-(radians))'new
arc2=2*p+(arc2-(radians))'new
    For n As Double=magnifier*sx-1 To magnifier*sx+1 Step .5
     Circle image,(np(3),np(4)),n,colour,arc1,arc2,second_y   
   ' circle image,(np(3),np(4)),magnifier*sx,colour,arc1,arc2,second_y
    Next n
Else
    thickcircle(th)
End If
End If
Case "circlefill"
    Dim As Double xp1,xp2,yp1,yp2
Dim As Uinteger prime=Rgb(255,255,255)
Dim arc1 As Double=arc_1*p/180
Dim arc2 As Double=arc_2*p/180
If arc1=arc2 Then Circle image,(np(3),np(4)),magnifier*sx,colour,,,second_y,F
If arc1<>arc2 Then

 xp1=np(3)+magnifier*sx*Cos(.5*(arc2+arc1))*3/4
yp1=np(4)-magnifier*sx*Sin(.5*(arc2+arc1))*3/4   
Circle image,(np(3),np(4)),magnifier*sx,prime,arc1,arc2,second_y
Line image,(np(3),np(4))-(np(3)+magnifier*sx*Cos(arc2),np(4)-magnifier*sx*Sin(arc2)),prime
Line image,(np(3),np(4))-(np(3)+magnifier*sx*Cos(arc1),np(4)-magnifier*sx*Sin(arc1)),prime
Paint image,(xp1,yp1),prime,prime

Circle image,(np(3),np(4)),magnifier*sx,colour,arc1,arc2,second_y
Line image,(np(3),np(4))-(np(3)+magnifier*sx*Cos(arc2),np(4)-magnifier*sx*Sin(arc2)),colour
Line image,(np(3),np(4))-(np(3)+magnifier*sx*Cos(arc1),np(4)-magnifier*sx*Sin(arc1)),colour
Paint image,(xp1,yp1),colour,colour
End If
 Case"box"
 Line image,(np(3),np(4))-(np(1),np(2)),colour,b
Case "boxfill"
 Line image,(np(3),np(4))-(np(1),np(2)),colour,bf
        Case "linepoint","circlepoint"
  'nothing drawn
Case "linepointset","circlepointset"
 If shape="linepointset" Then
 Pset image,(np(1),np(2)),colour
 Pset image,(np(3),np(4)),colour
 Endif
 If shape="circlepointset" Then
     Pset image,(np(3),np(4)),colour
 End If

        Case Else
 Print "unknown rotation shape"
End Select
End Sub



Sub paintstring(x As Double,_
           y As Double,_
           s As String,_
           size As Double,_
           c As Uinteger,_
           line_angle As Double=0,_
           char_angle As Double=0,_
           thickness_tweak As Double=1,_
           image As Any Pointer=0)
Dim l As Integer=Len(s)
Dim px As Double=16*size+x
y=y+16*size
Dim py As Double=y'16*size+y
Dim z As Integer=0
Dim th As Double'=4
th=((.5-size)/4.5+5)*thickness_tweak
Dim sp As Double=6
Dim sp2 As Double=6
Dim pi As Double=4*Atn(1)
Dim la As Double=(line_angle *.5)
Dim ca As Double=(char_angle*.5)
sp2=sp2+30*Abs(Sin(ca*pi/180-la*pi/180))

#macro set(x1,y1,x2,y2,sarc,earc,shape,im)
rotate(px,py,x1,y1,x2,y2,sarc,earc,-char_angle,1,size,c,th*size,shape,im)
#endmacro

#macro spaces(xpixels,ypixels)
px=px+(xpixels*size+sp2*size)*Cos(line_angle*pi/180)
py=py-(ypixels*size+sp2*size)*Sin(line_angle*pi/180)
next_x=px-16*size
next_y=py-16*size
#endmacro

For n As Integer=1 To l
   
    Select Case Mid$(s,n,1)
    Case " "
 spaces(30,30)

 
Case "|"
 z=z+1
 px=(x+16*size+z*16*Sin(line_angle*pi/180))+1.3*z*(24*size+size*sp*size)*Sin(line_angle*pi/180)
 py=(y+z*16*Cos(line_angle*pi/180))+1.3*z*(24*size+size*sp*size)*Cos(line_angle*pi/180)
 next_x=px-16*size
next_y=py-16*size
Case "1"
 set(px-8,py-18,px-8,py+16,.0,.0,"line",image)'vert
 set(px-8,py-16,px-12,py-8,.0,.0,"line",image)
 spaces(12,12)
Case "2"
 set(px-2,py-8,9,1,310,530,"circle",image)'curve
 set(px-15,py+14,px+5,py-2,.0,.0,"line",image)
 set(px-16,py+14,px+10,py+14,.0,.0,"line",image)'base
 spaces(28,28)
Case "3"
 set(px-2,py-7,9,1,300,530,"circle",image)'curve top
 set(px-2,py+6,9,1,190,395,"circle",image)'curve
 set(px-3,py,px+5,py,.0,.0,"line",image)
 spaces(28,28)
Case "4"
 set(px-16,py+4,px+12,py+4,.0,.0,"line",image)'horiz
 set(px-14,py+4,px+4,py-16,.0,.0,"line",image)'slope
 set(px+4,py-18,px+4,py+16,.0,.0,"line",image)
 spaces(28,28)
Case "5"
 set(px-14,py-16,px+6,py-16,.0,.0,"line",image)'top
 set(px-12,py-16,px-12,py+1,.0,.0,"line",image)'vert
 set(px-4,py+6,9,1,210,500,"circle",image)'curve
 spaces(28,28)
Case "6"
 set(px-2,py+6,9,1,360,360,"circle",image)'curve base
 set(px+16,py+4,27,1,130,180,"circle",image)'curve edge
 spaces(28,28)
Case "7"
 set(px-14,py-16,px+6,py-16,.0,.0,"line",image)'top
 set(px+5,py-16,px-12,py+16,.0,.0,"line",image)'slope
 spaces(26,26)
Case "8"
 set(px-2,py-7,9,1,320,575,"circle",image)'curve top
 set(px-2,py+6,9,1,130,415,"circle",image)'curve
 set(px-9,py-1,px+6,py-1,.0,.0,"line",image)
 spaces(28,28)
 
Case "9"
 set(px-2,py-6,9,1,360,360,"circle",image)'top
 set(px-20,py-4,27,1,310,360,"circle",image)
 spaces(28,28)
Case "0"
 set(px,py-1,15,1,360,360,"circle",image)
 spaces(36,36)
Case "."
 set(px-12,py+12,1,1,360,360,"circle",image)
 spaces(10,10)
Case "A"
 set(px,py-16,px-12,py+16,.0,.0,"line",image)
 set(px,py-16,px+12,py+16,.0,.0,"line",image)
 set(px-8,py+3,px+8,py+3,.0,.0,"line",image)
 spaces(30,30)'36
 Case "a"
 set(px-4,py+4,10,1,360,360,"circle",image)
 set(px+6,py-8,px+6,py+16,.0,.0,"line",image)
 spaces(26,26)
Case "B"
 set(px-12,py-16,px-12,py+16,.0,.0,"line",image)'vert
 set(px-12,py-14,px-5,py-14,.0,.0,"line",image)'top
  set(px-12,py+14,px-5,py+14,.0,.0,"line",image)'base
  set(px-5,py-6,8,1,290,450,"circle",image)'top loop
  set(px-5,py+6,8,1,270,430,"circle",image)'base loop
  set(px-12,py,px-2,py,.0,.0,"line",image)'middle
  spaces(24,24)
Case "b"
    set(px-2,py+4,10,1,360,360,"circle",image)
 set(px-12,py-16,px-12,py+16,.0,.0,"line",image)
 spaces(28,28)
Case "C"
    set(px,py,14,1,60,300,"circle",image)
    spaces(25,25)
Case "c"
    set(px-4,py+4,10,1,60,300,"circle",image)
    spaces(20,20)
    Case "D"
  set(px-12,py-16,px-12,py+16,.0,.0,"line",image)
 set(px-5,py,14,1,270,450,"circle",image)
 set(px-12,py-14,px-5,py-14,.0,.0,"line",image)
  set(px-12,py+14,px-5,py+14,.0,.0,"line",image)
 
  'rotate(px,py,px-24,py+20,px-24,py-20,0,0,-line_angle,1,size,rgb(255,0,0),1,"line",image)
 spaces(30,30)
Case "d"
 set(px-4,py+4,10,1,360,360,"circle",image)
 set(px+6,py-16,px+6,py+16,.0,.0,"line",image)
 spaces(26,26)
Case "E"
 set(px-12,py-16,px-12,py+16,.0,.0,"line",image)'vert
 set(px-12,py-14,px+6,py-14,.0,.0,"line",image)'top
  set(px-12,py+14,px+6,py+14,.0,.0,"line",image)'base
  set(px-12,py,px-2,py,.0,.0,"line",image)'middle
  spaces(25,25)
Case "e"
  set(px-4,py+4,10,1,0,320,"circle",image)
  set(px-12,py+3,px+8,py+3,.0,.0,"line",image)
  spaces(26,26)
Case "F"
  set(px-12,py-16,px-12,py+16,.0,.0,"line",image)'vert
 set(px-12,py-14,px+6,py-14,.0,.0,"line",image)'top
  set(px-12,py,px-2,py,.0,.0,"line",image)'middle
  spaces(24,24)
Case "f"
  set(px-2,py-8,10,1,0,170,"circle",image)'curve
 set(px-12,py-10,px-12,py+16,.0,.0,"line",image)'vert
 set(px-10,py,px-2,py,.0,.0,"line",image)'middle
 spaces(28,28)
Case "G"
  set(px,py,14,1,50,350,"circle",image)
  set(px,py,px+16,py,.0,.0,"line",image)
    spaces(35,35)
Case "g"
    set(px-4,py+4,10,1,360,360,"circle",image)
 set(px+6,py-6,px+6,py+20,.0,.0,"line",image)
 set(px-4,py+17,10,1,230,345,"circle",image)
 
 spaces(26,26)
Case "H"
 set(px-12,py-16,px-12,py+16,.0,.0,"line",image)'vert
 set(px+12,py-16,px+12,py+16,.0,.0,"line",image)'vert
 set(px-12,py,px+12,py,.0,.0,"line",image)'middle
 spaces(32,32)
Case "h"
  'set(px-6,py+4,10,1,0,150,"circle",image)
  set(px-4,py+2,8,1,0,170,"circle",image)'curve right
 set(px-12,py-16,px-12,py+16,.0,.0,"line",image)
 set(px+4,py,px+4,py+16,.0,.0,"line",image)
 spaces(25,25)
Case "I"
 set(px,py+16,px,py-16,.0,.0,"line",image)'vert
 set(px-12,py+14,px+12,py+14,.0,.0,"line",image)
 set(px-12,py-14,px+12,py-14,.0,.0,"line",image)
 spaces(30,30)
Case "i"
  set(px-12,py-6,px-12,py+16,.0,.0,"line",image)
  set(px-12,py-14,1,1,360,360,"circle",image)
  spaces(10,10)
Case "J"
    'set(px-2,py+4,12,1,200,270,"circle",image)
    set(px-7,py+8,7,1,220,355,"circle",image)
 set(px,py-16,px,py+9,.0,.0,"line",image)'vert
 set(px-12,py-14,px+12,py-14,.0,.0,"line",image)'top
 spaces(30,30)
Case "j"
 set(px,py-6,px,py+20,.0,.0,"line",image)
 set(px-7,py+20,7,1,220,360,"circle",image)
 set(px,py-14,1,1,360,360,"circle",image)
 spaces(22,22)
Case "K"
 set(px-12,py-16,px-12,py+16,.0,.0,"line",image)'vert
 set(px+6,py-16,px-12,py,.0,.0,"line",image)'upper
 set(px+6,py+16,px-6,py-3,.0,.0,"line",image)
 spaces(25,25)
Case "k"
 set(px-12,py-16,px-12,py+16,.0,.0,"line",image)'vert
 set(px+3,py-6,px-12,py,.0,.0,"line",image)'upper
 set(px,py+16,px-8,py-3,.0,.0,"line",image)'lower
 spaces(20,20)
Case "L"
 set(px-12,py-16,px-12,py+16,.0,.0,"line",image)'vert
 set(px-12,py+14,px+6,py+14,.0,.0,"line",image)'base
 spaces(25,25)
Case "l"
 set(px-12,py-16,px-12,py+16,.0,.0,"line",image)'vert
 spaces(10,10)
Case "M"
 set(px-12,py-16,px-12,py+16,.0,.0,"line",image)'vert
 set(px+12,py-16,px+12,py+16,.0,.0,"line",image)'vert
 set(px-12,py-16,px,py,.0,.0,"line",image)'left arm
 set(px+12,py-16,px,py,.0,.0,"line",image)'right arm
 
 spaces(32,32)
Case "m"
 set(px-6,py+2,6,1,0,170,"circle",image)'curve left
 set(px+6,py+2,6,1,0,170,"circle",image)'curve right
 set(px-12,py-5,px-12,py+16,.0,.0,"line",image)'vert left
 set(px+12,py,px+12,py+16,.0,.0,"line",image)'vert right
 set(px,py+16,px,py,.0,.0,"line",image)'mid arm
 spaces(32,32)
Case "N"
 set(px-12,py-16,px-12,py+16,.0,.0,"line",image)'vert
 set(px+12,py-16,px+12,py+16,.0,.0,"line",image)'vert
 set(px-12,py-16,px+12,py+16,.0,.0,"line",image)'middle
 spaces(32,32)
Case "n"
    set(px-4,py+2,8,1,0,170,"circle",image)'curve right
 set(px-12,py-5,px-12,py+16,.0,.0,"line",image)'vert left
 set(px+4,py+16,px+4,py,.0,.0,"line",image)'mid arm
 spaces(24,24)
Case "O"
 set(px,py,14,1,360,360,"circle",image)
 spaces(36,36)
Case "o"
 set(px-4,py+4,10,1,360,360,"circle",image)
 'set(px+6,py-16,px+6,py+16,.0,.0,"line",image)
 spaces(26,26)
Case "P"
 set(px-12,py-16,px-12,py+16,.0,.0,"line",image)'vert
 set(px-12,py-14,px-5,py-14,.0,.0,"line",image)'top
  'set(px-12,py+14,px-5,py+14,.0,.0,"line",image)'base
  set(px-5,py-6,8,1,280,450,"circle",image)'top loop
  'set(px-5,py+6,10,1,270,430,"circle",image)'base loop
  set(px-12,py+2,px-2,py+2,.0,.0,"line",image)'middle
  spaces(24,24)
Case "p"
 set(px-5,py+4,10,1,270,435,"circle",image)' loop
  set(px-14,py-5,px-2,py-5,.0,.0,"line",image)'top
 set(px-12,py+14,px-5,py+14,.0,.0,"line",image)'base
 set(px-12,py-6,px-12,py+26,.0,.0,"line",image)'vert
 spaces(24,24)
Case "Q"
 set(px,py,14,1,360,360,"circle",image)
 set(px+5,py+20,16,1,400,460,"circle",image)
 spaces(36,36)
Case "q"
 set(px-5,py+6,10,1,110,270,"circle",image)' loop
 set(px-9,py-3,px+2,py-3,.0,.0,"line",image)'top
 set(px-8,py+16,px,py+16,.0,.0,"line",image)'base
 set(px,py-3,px,py+26,.0,.0,"line",image)'vert
 spaces(20,20)
Case "R"
 set(px-12,py-16,px-12,py+16,.0,.0,"line",image)'vert
 set(px-12,py-14,px-5,py-14,.0,.0,"line",image)'top
  'set(px-12,py+14,px-5,py+14,.0,.0,"line",image)'base
  set(px-5,py-6,8,1,290,450,"circle",image)'top loop
  'set(px-5,py+6,10,1,270,430,"circle",image)'base loop
  set(px-12,py+2,px-2,py+2,.0,.0,"line",image)'middle
  set(px-8-1+3,py+1,px+12-8-1,py+16+1-2,.0,.0,"line",image)'slope
  spaces(24,24)
Case "r"
  set(px-4,py+4,10,1,30,130,"circle",image)
 set(px-12,py-8,px-12,py+16,.0,.0,"line",image)
 spaces(24,24)
Case "S"
 set(px-2,py-7,8,1,20,240,"circle",image)'curve top
 set(px-2,py+6,8,1,200,500,"circle",image)'curve
 'set(px-9,py-1,px+6,py-1,.0,.0,"line",image)
 spaces(26,26)
Case "s"
 set(px-4,py+4,10,1,40,140,"circle",image)'top
 set(px-1,py-4,10,1,180,240,"circle",image)'topslant
 set(px-6,py+14,10,1,20,100,"circle",image)'baseslant
 set(px-4,py+4,10,1,220,325,"circle",image)'base
 'set(px-12,py-4,px+2,py+12,.0,.0,"line",image)
 'set(px+6,py-8,px+6,py+16,.0,.0,"line",image)
 spaces(26,26)
Case "T"
 set(px,py-12,px,py+16,.0,.0,"line",image)'vert
 set(px-16,py-12-2,px+16,py-12-2,.0,.0,"line",image)
 spaces(34,34)
Case "t"
 set(px-12,py-16,px-12,py+10,.0,.0,"line",image)'edge
 set(px-12,py-4,px-2,py-4,.0,.0,"line",image)
 set(px-4,py+4,10,1,210,320,"circle",image)
 spaces (24,24)
Case "U"
 set(px-12,py-16,px-12,py+8,.0,.0,"line",image)'vert
 set(px+12,py-16,px+12,py+8,.0,.0,"line",image)'vert
 set(px,py,14,1,205,335,"circle",image)
 'set(px-12,py,px+12,py,.0,.0,"line",image)'middle
 spaces(33,33)
Case "u"
 set(px-4,py+4,10,1,210,360,"circle",image)
 set(px+6,py-6,px+6,py+16,.0,.0,"line",image)
 set(px-12,py-6,px-12,py+10,.0,.0,"line",image)'left edge
 spaces(26,26)
Case "V"
 set(px,py+16,px-12,py-16,.0,.0,"line",image)
 set(px,py+16,px+12,py-16,.0,.0,"line",image)
 'set(px-8,py+3,px+8,py+3,.0,.0,"line",image)
 spaces(32,32)'36
            Case "v"
  set(px-12,py-6,px-4,py+16,.0,.0,"line",image)'left
  set(px-4,py+16,px+4,py-6,.0,.0,"line",image)
  spaces(24,24)
            Case "W"
   set(px-12,py-16,px-8,py+16,.0,.0,"line",image)'vert left
 set(px+12,py-16,px+8,py+16,.0,.0,"line",image)'vert
 set(px-8,py+16,px,py,.0,.0,"line",image)'left arm
 set(px+8,py+16,px,py,.0,.0,"line",image)'right arm
 spaces(32,32)
            Case "w"
                    set(px-14,py-6,px-8,py+16,.0,.0,"line",image)'vert left
                    set(px+8,py+16,px+12,py-6,.0,.0,"line",image)'vert right
                    set(px-8,py+16,px,py,.0,.0,"line",image)'left arm
 set(px+8,py+16,px,py,.0,.0,"line",image)'right arm
                    spaces(33,33)
        Case "X"
            set(px-12,py-16,px+12,py+16,.0,.0,"line",image)
            set(px+12,py-16,px-12,py+16,.0,.0,"line",image)
            spaces(32,32)
        Case "x"
            set(px-12,py-6,px+2,py+16,.0,.0,"line",image)
            set(px+2,py-6,px-12,py+16,.0,.0,"line",image)
            spaces(22,22)
        Case "Y"
            set(px-12,py-16,px,py,.0,.0,"line",image)
            set(px+12,py-16,px,py,.0,.0,"line",image)
            set(px,py,px,py+16,.0,.0,"line",image)
            spaces(32,32)
        Case "y"
               set(px-4,py+4,8,1,180,380,"circle",image)'top
 set(px+4,py-6,px+4,py+20,.0,.0,"line",image)'right
 set(px-6,py+17,10,1,230,345,"circle",image)'base
 set(px-12,py-6,px-12,py+4,.0,.0,"line",image)'left
 spaces(24,24)
Case "Z"
 set(px-12,py-14,px+12,py-14,.0,.0,"line",image)'top
 set(px-12,py+14,px+12,py+14,.0,.0,"line",image)
 set(px+10,py-14,px-10,py+14,.0,.0,"line",image)'slope
 spaces(30,30)
Case "z"
 set(px-16,py-4,px+2,py-4,.0,.0,"line",image)'top
 set(px-16,py+14,px+2,py+14,.0,.0,"line",image)'base
 set(px+1,py-5,px-14,py+14,.0,.0,"line",image)'slope
 spaces(20,20)
           
 '************************************************                 
Case ","
 set(px-12,py+12,px-18,py+20,.0,.0,"line",image)
 set(px-12,py+12,1,1,360,360,"circle",image)
 spaces(10,10)

 Case"£"
 set(px-5,py-5,8,1,40,220,"circle",image)'top
 set(px-19-5-5,py+10-5,18,1,320,390,"circle",image)
 set(px-16,py+16,px+8,py+16,.0,.0,"line",image)'base
 set(px-16,py+2,px,py+2,.0,.0,"line",image)
 spaces(28,28)
Case "$"
  set(px-2,py-7,8,1,20,240,"circle",image)'curve top
 set(px-2,py+6,8,1,200,495,"circle",image)'curve
 set(px-2,py-17,px-2,py+17,.0,.0,"line",image)
 'set(px-9,py-1,px+6,py-1,.0,.0,"line",image)
 spaces(26,26)
Case "%"
 set(px-10,py-10,6,1,360,360,"circle",image)
 set(px+10,py+10,6,1,360,360,"circle",image)
 set(px+8,py-8,px-8,py+8,.0,.0,"line",image)
 spaces(33,33)
Case "^"
 set(px-14,py,px-7,py-16,.0,.0,"line",image)
 set(px-7,py-16,px,py,.0,.0,"line",image)
 spaces(20,20)
 Case"&"
 set(px-2,py-7,8,1,70,220,"circle",image)'curve top
 set(px-2,py+6,8,1,110,415,"circle",image)'curve
 set(px-4-4-2,py-8,px+12-4,py+16,.0,.0,"line",image)
 'set(px-9,py-1,px+6,py-1,.0,.0,"line",image)
 spaces(28,28)
Case "*"
 set(px-12,py-6-8,px+2,py+16-8,.0,.0,"line",image)
            set(px+2,py-6-8,px-12,py+16-8,.0,.0,"line",image)
            set(px-16,py-3,px+6,py-3,.0,.0,"line",image)
            spaces(24,24)
        Case "("
            set(px+22,py,38,1,150,210,"circle",image)
            spaces(12,12)
        Case ")"
       set(px-22-16-6,py,38,1,330,390,"circle",image)
            spaces(12,12)
        Case "-"
            set(px-16,py,px+8,py,.0,.0,"line",image)
            spaces(26,26)
        Case "_"
            set(px-16,py+16,px+16,py+16,.0,.0,"line",image)
            spaces(34,34)
            Case "+"
            set(px-16,py,px+8,py,.0,.0,"line",image)
            set(px-4,py+12,px-4,py-12,.0,.0,"line",image)
            spaces(26,26)
        Case "="
        set(px-16,py-4,px+8,py-4,.0,.0,"line",image)
        set(px-16,py+4,px+8,py+4,.0,.0,"line",image)
        spaces(26,26)
    Case "!"
        set(px-12,py-16,px-12,py+6,.0,.0,"line",image)
        set(px-12,py+12,1,1,360,360,"circle",image)
        spaces(10,10)
    Case "¬"
    set(px-16,py+4,px+8,py+4,.0,.0,"line",image)
    set(px+6,py+4,px+6,py+12,.0,.0,"line",image)
    spaces(26,26)
Case "`"
    set(px-16,py-16,px-12,py-12,.0,.0,"line",image)
    spaces(8,8)
Case ";"
    set(px-12,py-4,1,1,360,360,"circle",image)'top
  set(px-12,py+12,px-18,py+20,.0,.0,"line",image)
 set(px-12,py+12,1,1,360,360,"circle",image)
 spaces(10,10)
Case ":"
   set(px-12,py-4,1,1,360,360,"circle",image)'top
  'set(px-12,py+12,px-18,py+20,.0,.0,"line",image)
 set(px-12,py+12,1,1,360,360,"circle",image)
 spaces(10,10)
Case "@"
 set(px,py,14,1,0,290,"circle",image)
 set(px+6,py,7,1,100,365,"circle",image)
 spaces(36,36)
Case "'"
 set(px-12,py-12,px-18,py-4,.0,.0,"line",image)
 set(px-12,py-12,1,1,360,360,"circle",image)
 spaces(10,10)
Case "#"
 set(px-16,py-4,px+8,py-4,.0,.0,"line",image)
set(px-16,py+4,px+8,py+4,.0,.0,"line",image)
set(px-8,py-12,px-8,py+12,.0,.0,"line",image)
set(px,py-12,px,py+12,.0,.0,"line",image)
        spaces(26,26)
    Case "~"
  set(px-8,py+16,14,1,60,120,"circle",image)
  set(px+4,py-8,14,1,240,300,"circle",image)
  spaces(30,30)
Case "/"
  set(px+14,py-16,px-14,py+16,.0,.0,"line",image)
  spaces(34,34)
Case "\"
  set(px-14,py-16,px+14,py+16,.0,.0,"line",image)
  spaces(34,34)
Case "["
  set(px-12,py-16,px-12,py+16,.0,.0,"line",image)'vert
  set(px-12,py-14,px-4,py-14,.0,.0,"line",image)'top
  set(px-12,py+14,px-4,py+14,.0,.0,"line",image)
  spaces(14,14)
Case "]"
  set(px-4,py-16,px-4,py+16,.0,.0,"line",image)'vert
  set(px-4,py-14,px-12,py-14,.0,.0,"line",image)'top
  set(px-12,py+14,px-4,py+14,.0,.0,"line",image)
  spaces(16,16)
Case "{"
  set(px+12,py-8,28,1,160,200,"circle",image)
  set(px+12,py+8,28,1,160,200,"circle",image)
            spaces(8,8)
Case "}"
  set(px-12-16-6,py-8,28,1,340,380,"circle",image)
  set(px-12-16-6,py+8,28,1,340,380,"circle",image)
            spaces(14,14)
Case "<"
    set(px-16,py,px+4,py-12,.0,.0,"line",image)
    set(px-16,py,px+4,py+12,.0,.0,"line",image)
    spaces(24,24)
Case ">"
    set(px+4,py,px-16,py-12,.0,.0,"line",image)
    set(px+4,py,px-16,py+12,.0,.0,"line",image)
    spaces(24,24)
Case "?"
     set(px-5,py-6,8,1,280,490,"circle",image)'top loop
     set(px-4,py,px-4,py+8,.0,.0,"line",image)
     set(px-4,py+15,1,1,360,360,"circle",image)
     spaces(24,24)
     Case """"
  set(px-12,py-16,px-18,py-8,.0,.0,"line",image)
 set(px-12,py-16,1,1,360,360,"circle",image)
 
 set(px-4,py-16,px-10,py-8,.0,.0,"line",image)
 set(px-4,py-16,1,1,360,360,"circle",image)
 spaces(16,16) 
  Case Else
    Draw String(px,py),"?",c
    spaces(24,24)
    End Select
    Next n
End Sub
'************************* END OF PAINTSTRING ******************************
 
Eponasoft
Posts: 264
Joined: Jul 26, 2007 2:40

Postby Eponasoft » Feb 24, 2011 15:39

If you open up a religious thread, expect anti-religious posters. I normally would probably come in here with guns blazing against the religious, but not this time. Faith is a personal thing; religion is not. However, both have lost their place in this world.

As for the person who commented on Lachie's "need"... humans have an inborn need to help other humans. People like Lachie and I see religion as a plague, and those that succumb to its crippling power are in need of help. Religion's only purpose, in my eyes (and the eyes of most nonreligious people), is to soften the blow of impending death... if you think you're going to go to heaven, then it makes your life easier. However, on the other hand, knowing better (aka knowing there's no heaven and that which dies is simply dead) gives your life real purpose and a sense of urgency... your time will eventually run out so you need to do everything you can before that time comes.

Of course, religion also frees you from the responsibility of maintaining your own personal set of ethics and morals. If you just go along with what someone else told you to do, you're going to "fit in" better with the rest of society (who also follows the dogma). However, those of us who have shunned the deceptions and warmongering of ancient tribesmen who subjugated women and killed those who didn't believe as they did know that the only truth in life is that we are mortal... the rest is what we put into it. Yeah, life is what you make it. So make yours good, and make it on your own without the need for ancient superstition and fear of spirits, gods, demons, and punishment for not following the words of terrible "holy" books.
badmrbox
Posts: 663
Joined: Oct 27, 2005 14:40
Location: Sweden
Contact:

Postby badmrbox » Feb 24, 2011 16:18

I'm with Eponasoft on this one.
Galeon
Posts: 563
Joined: Apr 08, 2009 5:30
Location: Philippines
Contact:

Postby Galeon » Feb 24, 2011 16:37

Actually, IMO being an atheist is being free from the responsibility of giving respect for the one who created you. :)
adhay
Posts: 158
Joined: May 12, 2006 17:52

Postby adhay » Feb 24, 2011 16:56

Galeon wrote:Actually, IMO being an atheist is being free from the responsibility of giving respect for the one who created you. :)

An atheist is one who professes not to believe what he believes about "God". Religion, in general, gives God a bad rap.
rolliebollocks
Posts: 2655
Joined: Aug 28, 2008 10:54
Location: new york

Postby rolliebollocks » Feb 24, 2011 17:09

Actually, it takes as much faith to say "there is no God" as to say that there is.
(Perhaps more)

What I got from Eponasoft was more along the lines of anti-theism, someone who is against religion, the conception of God and not (necessarily) God the creator.

For me the existence of God is not an article of faith, it is a logic puzzle.

http://www.anthonyflood.com/sadowskyendlessregress.htm
vdecampo
Posts: 2982
Joined: Aug 07, 2007 23:20
Location: Maryland, USA
Contact:

Postby vdecampo » Feb 24, 2011 17:12

rolliebollocks wrote:Actually, it takes as much faith to say "there is no God" as to say that there is.
(Perhaps more)

What I got from Eponasoft was more along the lines of anti-theism, someone who is against religion, the conception of God and not (necessarily) God the creator.

For me the existence of God is not an article of faith, it is a logic puzzle.

http://www.anthonyflood.com/sadowskyendlessregress.htm


Wouldn't infinite causation require infinite energy?

-Vince
rolliebollocks
Posts: 2655
Joined: Aug 28, 2008 10:54
Location: new york

Postby rolliebollocks » Feb 24, 2011 17:33

@Vince

I guess, I'm on the other side of this thing. Maybe the universe is a perpetual motion machine. Or maybe it will reach a state of equilibrium. The fact that it is constantly changing size prevents this from happening, I think.

Maybe we are dealing with a finite, circular set, so that any cause can be taken as the first cause.

Each effect becomes a cause along the chain. Cause and Effect only describe the relationship of one event to another.
counting_pine
Site Admin
Posts: 6241
Joined: Jul 05, 2005 17:32
Location: Manchester, Lancs

Postby counting_pine » Feb 24, 2011 18:25

rolliebollocks wrote:I think it's wrong to equate religion to "an answer". It think it's closer to a "strategy", a "system" or a "method" and has all the fundamental attributes of a language.

The question of God is more analogous to geometry as a discipline than it is to "how many radii are in a circumference".

As a strategy, it will have its advantages and disadvantages. For some problems it will excel, for others it will struggle.

If there was one true religion, it would necessarily be one that recognized the myriad of different people on this earth, and all the different problems that they struggle with, and then adapted the best strategies of all available to 1.) their specific personality and 2.) the question or struggle that they needed help with.

For instance, if someone is having a problem with jealousy, I would recommend four doses of Buddhism.

You're right, a religion isn't just a world view, but comes with instructions, or strategies, on how to live in light of the world view.

No religion is good at solving all problems, but they may have opinions on why or whether a problem is important to solve. The "whether" of jealousy may be clear cut, but not necessarily the "why".

Can Buddhism be helpful to someone struggling from jealousy? I'd need to know its takes on some important questions, which are dependent on its world view:
- why am I here?
- what is my main priority/priorities in life?
- (why) is jealousy a problem?
- what is the solution?
- why should I trust it?

Was George Washington bad for having slaves? That was the way the world worked back then.
That's a very good question. It would probably benefit from further discussion.

Return to “Community Discussion”

Who is online

Users browsing this forum: jj2007 and 13 guests