• Home
 · 
• Graphics
 · 
• Draw a diamond with 3D feel

Draw a diamond with 3D feel

Draw a diamond with 3D feel

API Declarations


property to 1000 and type the following in code window
dim t(8) as integer
dim x as integer
dim y as integer





Rate Draw a diamond with 3D feel

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

x=form1.width/2
y=form1.height/2
k=0
for i=0 to 7
t(i)=k
k=k+80
next
end sub
private sum timer1_timer()
k=0
for i=0 to 7
k=i+1
if k>7 then k=0
line(x+1500*sin(t(i)*3.1415/180),y+1500*cos(t(i)*3.1415/180))-(x+1500*sin(t(k)*3.1415/180),y+1500*cos(t(k)*3.1415/180)),backcolor
next
for i=0 to 7
line(x,y+2000)-(x+1500*sin(t(i)*3.1415/180),y+1500*cos(t(i)*3.1415/180)),backcolor
line(x,y-1500)-(x+1500*sin(t(i)*3.1415/180),y+1500*cos(t(i)*3.1415/180)),backcolor
t(i)=t(i)+2
next
k=0
for i=0 to 7
k=i+1
if k>7 then k=0
line(x+1500*sin(t(i)*3.1415/180),y+1500*cos(t(i)*3.1415/180))-(x+1500*sin(t(k)*3.1415/180),y+1500*cos(t(k)*3.1415/180)),vbred
next
for i=0 to 7
line(x,y+2000)-(x+1500*sin(t(i)*3.1415/180),y+1500*cos(t(i)*3.1415/180)),vbred
line(x,y-1500)-(x+1500*sin(t(i)*3.1415/180),y+1500*cos(t(i)*3.1415/180)),vbred
t(i)=t(i)+2
next
end sub