FB CAD

[owen]

http://fbcadcam.org/files/fbcad15.zip

New features in FBCad15
1. Delete blocks
2. Draw at angles (1-7), set angles (1-7)
3. After all this time layers are done the way i was thinking way back when. An outline box is drawn around current layer, a small three state button for each layer toggles layers from hidden, visible, selectable. Note by default if a layer is set as active or current layer then its state is selectable
4. By selecting a single line in the drawing, the end points of that line are shown in the box on the right side of the window in the 'selected line' box. The idea is to be able to change the values of the lines end points by clicking on the text in the box and manuall type the x1,y1,x2,y2 values
5. Focus issues: When moving the mouse into and out of various areas in the fbcad window:
In reference to the boxes and scroll bar on the right side of the window
Into and out of the boxes – A yellow perimeter is used to indicate focus
6. Event log is diplayed at the bottom of the screen and saved as a text file 'eventlog.txt'

Bugs fixed:
Inserting (importing) blocks with circles - circles wouldn't import, the error was a nested for next typeo
Copy bocks caused crash - in sub routine setcopydown: If blockstoexclude(i)=FALSE Then blockstocopy(i)=TRUE; true and false was reversed
Copy, rotate and copy, flip and copy, for blocks were all either pending code or bugs but should work now
Residue when box selecting objects - needed to do screen switching prior to showgroup in sub routine groupbox
Rotating a copy of a block and rotate or scale it: notice loss of precission. This was a mod rounding issue and has been resolved in a hack called mymod

Bugs pending:
Drawing curve from two parallel lines using filette. Looks like it calcs curve but doesn't create it
Need to fix zoom out - try drawing boxes zoom out draw a bigger box around everthing, zoom out, keep doing this and see that the numbers get too big and then eventally unable to show the lines
Trim and extend - trim has problems and extend is still pending
Deal with divide by zero errors in curves and any where else the exist in the code
when scaling a block with circles errors occur. i think all of modifications i made to copy rotate, copy flip, etc.. in regards to blocks was not completed in scaling routines. any how i tested for error on curves using scale with grab handles when curves are not part of a block and error does not exist. i then converted same curves to a block and then scaled with grab handles and error happens soon

To Do:
Chamfer
Rename Fillet to Curve
Add Fillet
Rotate dimension text to angle of dimension line
Inserting text should be same as inserting a block. i.e. user moves mouse into drawing area and clicks to set text (block) down

Wish list:
When scaling with grab hadles: add functionality -if user holds ctrl down on keybd then x,y,z axis are all scaled the same. 'there was also the idea of showing blue boxes (grab handle boxes) at location of new scale boundry and show the user the scale factor he is currently at while scaling with grab handles ie. scale facter for each axis x,y,z.
Help files - need to be written and how will they be displayed?
Change the directory of text characters to a sub directory as well as blocks and common objects
Really need to create a open - save - save as dialog box
Menu is really incomplete and needs to be better thought out. for example, i don't need edit copy when i have a copy button. I need to add User Preferances to the menu like how to draw a circle (from the center out and holding a shift key down from the circumference out OR visa vesa)
Note: there's so much undocumented things like holding the shift key down when doing this does that
Create some basic objects and add them to the bar just right of the buttons so user can just drag them into the drawing area
The top left corner of fbcad is for the app logo. it has been used as a temporary location for displaying info (mostly for testing code) and for input - getting user info like enter text string or enter angle, etc... most cad programs use the box below
mutiple copy or array copy?
Finish gravity for dennis' conveyor bin placement. this was coded about half way - i called it trajectory. looks like i need to write settrajectorydown routine
The basic idea of blocks is that if u make a change in a block then that change is updated in all duplicates of it in that drawing automatically.

[owen]

http://fbcadcam.org/files/fbcad16.4.7.zip
this is my last update to fbcad
i made a mygui (open save dlg) for this version but it's crude at best.
from here i hope to redesign fbcad with a better interface.
my intention is to recreate this using firefly but i need a lot of help with win api stuff. i also still hope to go 3d with it.

[Galeon]

Try GTK+: it has a drawing control that you may use and far easier to use than Windows API. You need to create your own CAD control if you want to use Windows API. Also, KetilO already have a CAD program and control created using the Windows API, you may use it if you want.

[owen]

Hi, thanks for the reply.
KetilO's Cad, is that SimCad ?

[owen]

Progress is slow... firefly-freebasic-cad.1.2


http://fbcadcam.org/files/ff-fbcad-1-2.zip

[owen]

3d to 2d projection
here's my solution to rotation translation of points and camera positions/angles
takes into consideration, rotation of points and camera on the xy,xz,yz axes
this is mostly for my notes: it's in prep to implement 3d for fbcad

Code: Select all

'3d To 2d projection Using two cameras
'owen trying to learn 3d in prep to take fbcad to the 3rd dimension


Declare Function dbtp(x1 As Double,y1 As Double,z1 As Double,x2 As Double,y2 As Double,z2 As Double) As Double
Declare Sub drawstring(x As Integer, y As Integer, s As String, c As Integer)
Declare Sub calc3dto2dprojection(camera_zoom As Integer,camera_index As Integer,point_index As Integer)
Declare Sub drawprojection()
Declare Sub rotatepoint(px As Double,py As Double,pz As Double,plane As Integer,angle As Double,rox As Double,roy As Double,roz As Double)
Declare Sub rotatepoints(point_index As Integer,plane As Integer,angle As Double,rox As Double,roy As Double,roz As Double)

Type threedpoint
	x As Integer
	y As Integer
	z As Integer
End Type

Type twodproj
	x As Integer
	y As Integer
End Type


Type camera
	x     As Double
	y     As Double
	z     As Double
	xyrot As Double
	xzrot As Double
	yzrot As Double
	zoom  As Double
End Type

ScreenRes 404,200,8,2
Dim As Integer i,j,k
Dim Shared p(8) As threedpoint
Dim Shared tpr(8) As threedpoint'temp point rotation

Dim Shared pp As twodproj
Dim Shared cam(2) As camera
Dim Shared As Double tpx,tpy,tpz

Const pi As Double = 3.1415926535897932

Dim Shared r As Double
Dim As Integer sleeptime
sleeptime=15

cam(1).x=0
cam(1).y=0
cam(1).z=256
cam(1).xyrot=0
cam(1).xzrot=0
cam(1).yzrot=0
cam(1).zoom=1

cam(2).x=256
cam(2).y=0
cam(2).z=0
cam(2).xyrot=0
cam(2).xzrot=90
cam(2).yzrot=0
cam(2).zoom=1

For i = 1 To 8
        Read p(i).x,p(i).y,p(i).z
Next


Do
	Window:View
	ScreenSet 0,0
	Cls
	'box for camera 1
	Line (0,0)-(199,199),15,b
	drawstring(2,2,"camera 1 Front view",15)
	drawstring(2,190,"rotating on xy axis",15)
	'box for camera 2
	Line (203,0)-(403,199),14,b
	drawstring(205,2,"camera 2 Side view",14)
	drawstring(205,190,"Right Side view",14)
	ScreenSet 1,1
	For i = 0 To 359
		Select Case InKey
			Case Chr(27), Chr(255) + "k"
				End
		End Select
		For j=1 To 8
			tpr(j)=p(j)
			rotatepoints(j,1,Cdbl(i),0,0,0)'3 planes of rotation 1=xy, 2=xz, 3=yz
			'rotatepoints(j,2,Cdbl(i),0,0,0)'3 planes of rotation 1=xy, 2=xz, 3=yz
			'rotatepoints(j,3,Cdbl(i),0,0,0)'3 planes of rotation 1=xy, 2=xz, 3=yz
		Next
		drawprojection
		For j=1 To 8
			p(j)=tpr(j)
		Next
		Sleep sleeptime
	Next
	''''''''''''''''''''''''''''''
	Window:View
	ScreenSet 0,0
	Cls
	'box for camera 1
	Line (0,0)-(199,199),15,b
	drawstring(2,2,"camera 1 Front view",15)
	drawstring(2,190,"rotating on XZ axis",15)
	'box for camera 2
	Line (203,0)-(403,199),14,b
	drawstring(205,2,"camera 2 Side view",14)
	drawstring(205,190,"Right Side view",14)
	ScreenSet 1,1
	For i = 0 To 359
		Select Case InKey
			Case Chr(27), Chr(255) + "k"
				End
		End Select
		For j=1 To 8
			tpr(j)=p(j)
			'rotatepoints(j,1,Cdbl(i),0,0,0)'3 planes of rotation 1=xy, 2=xz, 3=yz
			rotatepoints(j,2,Cdbl(i),0,0,0)'3 planes of rotation 1=xy, 2=xz, 3=yz
			'rotatepoints(j,3,Cdbl(i),0,0,0)'3 planes of rotation 1=xy, 2=xz, 3=yz
		Next
		drawprojection
		For j=1 To 8
			p(j)=tpr(j)
		Next
		Sleep sleeptime
	Next
	Window:View
	ScreenSet 0,0
	Cls
	'box for camera 1
	Line (0,0)-(199,199),15,b
	drawstring(2,2,"camera 1 Front view",15)
	drawstring(2,190,"rotating on Yz axis",15)
	'box for camera 2
	Line (203,0)-(403,199),14,b
	drawstring(205,2,"camera 2 Side view",14)
	drawstring(205,190,"Right Side view",14)
	Window:View
	ScreenSet 1,1
	For i = 0 To 359
		Select Case InKey
			Case Chr(27), Chr(255) + "k"
				End
		End Select
		For j=1 To 8
			tpr(j)=p(j)
			'rotatepoints(j,1,Cdbl(i),0,0,0)'3 planes of rotation 1=xy, 2=xz, 3=yz
			'rotatepoints(j,2,Cdbl(i),0,0,0)'3 planes of rotation 1=xy, 2=xz, 3=yz
			rotatepoints(j,3,Cdbl(i),0,0,0)'3 planes of rotation 1=xy, 2=xz, 3=yz
		Next
		drawprojection
		For j=1 To 8
			p(j)=tpr(j)
		Next
		Sleep sleeptime
	Next
	Window:View
	ScreenSet 0,0
	Cls
	'box for camera 1
	Line (0,0)-(199,199),15,b
	drawstring(2,2,"camera 1 Front view",15)
	drawstring(2,190,"rotating on xy & xz axes",15)
	'box for camera 2
	Line (203,0)-(403,199),14,b
	drawstring(205,2,"camera 2 Side view",14)
	drawstring(205,190,"Right Side view",14)
	ScreenSet 1,1
	For i = 0 To 359
		Select Case InKey
			Case Chr(27), Chr(255) + "k"
				End
		End Select
		For j=1 To 8
			tpr(j)=p(j)
			rotatepoints(j,1,Cdbl(i),0,0,0)'3 planes of rotation 1=xy, 2=xz, 3=yz
			rotatepoints(j,2,Cdbl(i),0,0,0)'3 planes of rotation 1=xy, 2=xz, 3=yz
			'rotatepoints(j,3,Cdbl(i),0,0,0)'3 planes of rotation 1=xy, 2=xz, 3=yz
		Next
		drawprojection
		For j=1 To 8
			p(j)=tpr(j)
		Next
		Sleep sleeptime
	Next
	Window:View
	ScreenSet 0,0
	Cls
	'box for camera 1
	Line (0,0)-(199,199),15,b
	drawstring(2,2,"camera 1 Front view",15)
	drawstring(2,190,"rotating on xy & yz axes",15)
	'box for camera 2
	Line (203,0)-(403,199),14,b
	drawstring(205,2,"camera 2 Side view",14)
	drawstring(205,190,"Right Side view",14)
	ScreenSet 1,1
	For i = 0 To 359
		Select Case InKey
			Case Chr(27), Chr(255) + "k"
				End
		End Select
		For j=1 To 8
			tpr(j)=p(j)
			rotatepoints(j,1,Cdbl(i),0,0,0)'3 planes of rotation 1=xy, 2=xz, 3=yz
			'rotatepoints(j,2,Cdbl(i),0,0,0)'3 planes of rotation 1=xy, 2=xz, 3=yz
			rotatepoints(j,3,Cdbl(i),0,0,0)'3 planes of rotation 1=xy, 2=xz, 3=yz
		Next
		drawprojection
		For j=1 To 8
			p(j)=tpr(j)
		Next
		Sleep sleeptime
	Next
	Window:View
	ScreenSet 0,0
	Cls
	'box for camera 1
	Line (0,0)-(199,199),15,b
	drawstring(2,2,"camera 1 Front view",15)
	drawstring(2,190,"rotating on xy,xz,yz axes",15)
	'box for camera 2
	Line (203,0)-(403,199),14,b
	drawstring(205,2,"camera 2 Side view",14)
	drawstring(205,190,"Right Side view",14)
	ScreenSet 1,1
	For i = 0 To 359
		Select Case InKey
			Case Chr(27), Chr(255) + "k"
				End
		End Select
		For j=1 To 8
			tpr(j)=p(j)
			rotatepoints(j,1,Cdbl(i),0,0,0)'3 planes of rotation 1=xy, 2=xz, 3=yz
			rotatepoints(j,2,Cdbl(i),0,0,0)'3 planes of rotation 1=xy, 2=xz, 3=yz
			rotatepoints(j,3,Cdbl(i),0,0,0)'3 planes of rotation 1=xy, 2=xz, 3=yz
		Next
		drawprojection
		For j=1 To 8
			p(j)=tpr(j)
		Next
		Sleep sleeptime
	Next
Loop
End


Sub drawprojection()
	Dim As Integer i,j,k,clr
	Dim As Double x1,y1,x2,y2
	View:Window
	ScreenCopy 0,1
	For i = 1 To 2
		Select Case i
			Case 1
				View (0,0)-(199,199)'drawing area
				Window (-100,-100)-(99,99)
			Case 2
				View (203,0)-(403,199)'drawing area
				Window (-100,-100)-(99,99)'(0,0)-(199,199)
		End Select
		For j = 1 To 8
			calc3dto2dprojection(256,i,j)
			x1=pp.x
			y1=pp.y
			If j=1 Then
				Circle(x1,y1),r*10,11
				ScreenSet 0,0
				PSet(x1,y1),10
				ScreenSet 1,1
			End If
			For k = 1 To 8
				calc3dto2dprojection(256,i,k)
				x2=pp.x
				y2=pp.y
				If k <> j Then
					x2=pp.x
					y2=pp.y
					Select Case j
						Case 1 To 4
							Select Case k
								Case 1 To 4
									clr=12
								Case 5 To 8
									clr=13
							End Select
						Case 5 To 8
							Select Case k
								Case 1 To 4
									clr=14
								Case 5 To 8
									clr=15
							End Select
					End Select
					Line(x1,y1)-(x2,y2),clr
				End If
			Next
		Next
	Next
End Sub

'distance between two 3d points
Function dbtp(x1 As Double,y1 As Double,z1 As Double,x2 As Double,y2 As Double,z2 As Double) As Double
	dbtp = Sqr((x1-x2)^2 + (y1-y2)^2 + (z1-z2)^2)
End Function

Sub drawstring(x As Integer, y As Integer, s As String, c As Integer)
	Color c
	Draw String (x,y),s
End Sub

Sub calc3dto2dprojection(camera_zoom As Integer,camera_index As Integer,point_index As Integer)
	Dim As Integer i,j,k,cami,pointi
	cami=camera_index
	pointi=point_index
	Dim As Double dist'for brevity purposes
	Dim As Double ratio'
	Dim As Double temppx,temppy,temppz
	Dim As Double tempcx,tempcy,tempcz

	temppx=p(pointi).x
	temppy=p(pointi).y
	temppz=p(pointi).z
	tempcx=cam(cami).x
	tempcy=cam(cami).y
	tempcz=cam(cami).z
	'first step is to rotate the point around 0,0,0
	rotatepoint(temppx,temppy,temppz,1,-cam(cami).xyrot,0,0,0)
	temppx=tpx
	temppy=tpy
	rotatepoint(temppx,temppy,temppz,2,-cam(cami).xzrot,0,0,0)
	temppx=tpx
	temppz=tpz
	rotatepoint(temppx,temppy,temppz,3,-cam(cami).yzrot,0,0,0)
	temppy=tpy
	temppz=tpz
	'second step is to rotate the camera around 0,0,0
	rotatepoint(tempcx,tempcy,tempcz,1,-cam(cami).xyrot,0,0,0)
	tempcx=tpx
	tempcy=tpy
	rotatepoint(tempcx,tempcy,tempcz,2,-cam(cami).xzrot,0,0,0)
	tempcx=tpx
	tempcz=tpz
	rotatepoint(tempcx,tempcy,tempcz,3,-cam(cami).yzrot,0,0,0)
	tempcy=tpy
	tempcz=tpz
	'third step would be to move the point on the z axis only
	temppz=temppz+(camera_zoom-tempcz)
	'
	'forth step is to project it onto a 2d plane
	dist=dbtp(0,0,camera_zoom,temppx,temppy,temppz)
	ratio=camera_zoom/dist
	pp.x=temppx*ratio
	pp.y=temppy*ratio
	r=ratio

End Sub

Sub rotatepoints(point_index As Integer,plane As Integer,angle As Double,rox As Double,roy As Double,roz As Double)
	Dim As Integer pointi
	Dim As Double dx,dy,dz
	pointi=point_index
	dx=p(pointi).x-rox
	dy=p(pointi).y-roy
	dz=p(pointi).z-roz
	
	'3 planes of rotation 1=xy, 2=xz, 3=yz
	Select Case plane
		Case 1'xy plane
			p(pointi).x=dx*Cos(angle*pi/180) - dy*Sin(angle*pi/180)+rox
			p(pointi).y=dy*Cos(angle*pi/180) + dx*Sin(angle*pi/180)+roy
		Case 2'xz plane
			p(pointi).x=dx*Cos(angle*pi/180) + dz*Sin(angle*pi/180)+rox
			p(pointi).z=dz*Cos(angle*pi/180) - dx*Sin(angle*pi/180)+roz
		Case 3'yz plane
			p(pointi).z=dz*Cos(angle*pi/180) - dy*Sin(angle*pi/180)+roz
			p(pointi).y=dy*Cos(angle*pi/180) + dz*Sin(angle*pi/180)+roy
	End Select
End Sub


Sub rotatepoint(px As Double,py As Double,pz As Double,plane As Integer,angle As Double,rox As Double,roy As Double,roz As Double)
	Dim As Double dx,dy,dz
	dx=px-rox
	dy=py-roy
	dz=pz-roz
	
	'3 planes of rotation 1=xy, 2=xz, 3=yz
	Select Case plane
		Case 1'xy plane
			tpx=dx*Cos(angle*pi/180) - dy*Sin(angle*pi/180)+rox
			tpy=dy*Cos(angle*pi/180) + dx*Sin(angle*pi/180)+roy
		Case 2'xz plane
			tpx=dx*Cos(angle*pi/180) + dz*Sin(angle*pi/180)+rox
			tpz=dz*Cos(angle*pi/180) - dx*Sin(angle*pi/180)+roz
		Case 3'yz plane
			tpz=dz*Cos(angle*pi/180) - dy*Sin(angle*pi/180)+roz
			tpy=dy*Cos(angle*pi/180) + dz*Sin(angle*pi/180)+roy
	End Select
End Sub


Data -50, 50, 50
Data -50,-50, 50
Data  50,-50, 50
Data  50, 50, 50

Data -50, 50,-50
Data -50,-50,-50
Data  50,-50,-50
Data  50, 50,-50


 

[owen]

going 3d fbcad is on hold again because i'm working on adding cam features. so my new versions of fbcad are now being called fbcadcam and since it's stll 2d i call it fb2dcadcam. 3d implementation will be a 3d cad / cam program instead of just a 3d cad app and when that time comes i'll call it fb3dcadcam.

ok, as i explore cam, i realized i needed more cad features so in my newest version there are extra undocumented cad functions. and at the moment there really isn't any real cam features other then a parallel function that creates parallel lines and arcs. the idea is to create parallels of objects for the purpose of defining tool paths and finally gcode.

one thing i have always needed is documentation and i'm not a good candidate for the job. from a user perspective and this applies to any application or program, fact of the matter is, a program isn't any better then its documentation. knowing this, of course creating good documentation for fbcad won't all of a sudden make fbcad an awesome cad program because fact of the matter is that fbcad is crude at best.

so i work on documenting it and designing it simultaneously from now on.
yesterday i made 11 demo videos and today will be making more.

here are the links to the 11 video which i'll post now and then perhaps in a few days, i'll create a web page with the video links with descriptions of the content for each video.
http://fbcadcam.org/vids/fbcadcam/fbcadcam-demo1.avi
http://fbcadcam.org/vids/fbcadcam/fbcadcam-demo2.avi
http://fbcadcam.org/vids/fbcadcam/fbcadcam-demo3.avi
http://fbcadcam.org/vids/fbcadcam/fbcadcam-demo4.avi
http://fbcadcam.org/vids/fbcadcam/fbcadcam-demo5.avi
http://fbcadcam.org/vids/fbcadcam/fbcadcam-demo6.avi
http://fbcadcam.org/vids/fbcadcam/fbcadcam-demo7.avi
http://fbcadcam.org/vids/fbcadcam/fbcadcam-demo8.avi
http://fbcadcam.org/vids/fbcadcam/fbcadcam-demo9.avi
http://fbcadcam.org/vids/fbcadcam/fbcadcam-demo10.avi
http://fbcadcam.org/vids/fbcadcam/fbcadcam-demo11.avi

oops, forgot the code. as always it's free (free to do whatever with)
http://fbcadcam.org/files/fbcadcam/fb2dcadcam1-13.zip
owen

[owen]

having a hard time creating these tutorials.
here's a demo using camtasia 3.1.2 trial version
http://fbcadcam.org/vids/fbcadcam/demo1-1.avi
would be interested in knowing if this video plays automatically in your media player without having to down load techsmiths proprietary codec.

testing this older version of camtasia because the computer i'm using is only a 900mhz / 512 meg of ram and doing screen captures really bogs the system down, to the point that the audio sync is completely out and not consistently out from one recording to the next. this older version of camtasia seems to be less cpu intensive.

anybody have a legit copy of this version they can sell me?

[Sisophon2001]

My OS is Ubuntu which came with Movie Player pre-installed. I also have VLC installed as a back up movie player for files that give problems with Movie Player.

The avi file does not work with my install of Movie Player but it works perfectly with VLC. There are versions of VLC available for windows also, and it is free software.

I would prefer the video tutorial to be snappier. I found myself scrolling through the movie looking for the interesting bits.

Garvan

[bfuller]

Hello Owen,

when I click on your link, the avi file downloads and opens with Windows Media Player (default).

When it plays, I get audio only, no video. I'm using XP, and did not try any other media player.

[owen]

fbcadcam-demo(1 thru 13).avi were recorded with open source camstudio.
demo1-1.avi was recorded using a trial version of camtasia

camtasia (techsmith) codec is really very good but expensive.

so, being that i used their trial version i wasn't quite sure if i could distribute the tscc.exe (techsmiths - decoder) on my server.

interesting to see vlc player decoded tscc. actually vlc decodes most.
i don't know why all these other players are not decoding tscc becuase tscc is the defacto (the standard others try to meet). any how it must be a proprietary isssue.

[integer]

This looks very good.

Have you attempted to import some of the commercial formats?
Specifics:
ESRI shapefile
and
AutoCad DXF

I have found the published formats for both, but I have not found any code that could be translated to FB so that the graphic could be manipulated with your program.

Just wondering if you have attempted to work with the vector graphics.

Have you had the time to make enhancements since 2011 Nov?

[owen]

It's been awhile. Last update was:
http://fbcadcam.org/files/fb2dcadcam1-33-31.zip

To answer your questions:
Never did shapes but intended to place the icons for shapes in vertical tool bar just to the right of the color bar (layer bar)

As far as being able to open DXF files created in other apps such as Autocad and others, well... I think it would open them if they were saved in DXF version 12 or something like that...

This program only made use of lines,circles and ellipses.

[petan]

Just compiling fb2dcadcam1-33-32 on linux, and it runs ..., wow, great job, man, thank you !!
But highly missing me some online manual (F1 key e.g.) for knowing control and deeper tests.Or offline too, no matter for tests..

[owen]

Missing help files. Yes I agree. This project needs help from the FB community. I'm a one man show.
At the moment I am working on giving it a face lift using GTK3.
Here's a screen shot (source code is at fbcadcam.org/gtk3)