FB CAD

User projects written in or related to FreeBASIC.
owen
Posts: 506
Joined: Apr 19, 2006 10:55
Location: Kissimmee, FL
Contact:

ver 15 notes

Postby owen » May 27, 2010 9:42

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.
Last edited by owen on Aug 01, 2013 19:27, edited 1 time in total.
owen
Posts: 506
Joined: Apr 19, 2006 10:55
Location: Kissimmee, FL
Contact:

fbcad16.4.7-fbc21

Postby owen » Aug 08, 2010 7:12

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.
Last edited by owen on Aug 01, 2013 19:30, edited 1 time in total.
Galeon
Posts: 563
Joined: Apr 08, 2009 5:30
Location: Philippines
Contact:

Postby Galeon » Aug 10, 2010 11:12

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
Posts: 506
Joined: Apr 19, 2006 10:55
Location: Kissimmee, FL
Contact:

KetilO's Cad

Postby owen » Aug 13, 2010 13:21

Hi, thanks for the reply.
KetilO's Cad, is that SimCad ?
owen
Posts: 506
Joined: Apr 19, 2006 10:55
Location: Kissimmee, FL
Contact:

ff-fbcad-1-2

Postby owen » Aug 14, 2010 5:12

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

Image
http://fbcadcam.org/files/ff-fbcad-1-2.zip
Last edited by owen on Aug 01, 2013 19:30, edited 1 time in total.
owen
Posts: 506
Joined: Apr 19, 2006 10:55
Location: Kissimmee, FL
Contact:

3d to 2d projection

Postby owen » Aug 23, 2010 4:31

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
Posts: 506
Joined: Apr 19, 2006 10:55
Location: Kissimmee, FL
Contact:

fbcadcam

Postby owen » Nov 10, 2010 13:50

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
Last edited by owen on Aug 01, 2013 19:56, edited 2 times in total.
owen
Posts: 506
Joined: Apr 19, 2006 10:55
Location: Kissimmee, FL
Contact:

video tutorials

Postby owen » Nov 17, 2010 13:34

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?
Last edited by owen on Aug 01, 2013 19:57, edited 2 times in total.
Sisophon2001
Posts: 1702
Joined: May 27, 2005 6:34
Location: Cambodia, Thailand, Lao, Ireland etc.
Contact:

Postby Sisophon2001 » Nov 18, 2010 11:29

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
Posts: 328
Joined: Jun 02, 2007 12:35
Location: Sydney, Australia

Postby bfuller » Nov 19, 2010 5:13

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
Posts: 506
Joined: Apr 19, 2006 10:55
Location: Kissimmee, FL
Contact:

Postby owen » Nov 20, 2010 16:16

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
Posts: 375
Joined: Feb 01, 2007 16:54
Location: usa

Postby integer » Dec 09, 2011 14:30

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
Posts: 506
Joined: Apr 19, 2006 10:55
Location: Kissimmee, FL
Contact:

fbcadcam

Postby owen » Dec 09, 2011 17:12

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
Posts: 683
Joined: Feb 16, 2010 15:34
Location: Europe
Contact:

Re: FB CAD

Postby petan » Jan 15, 2016 14:59

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
Posts: 506
Joined: Apr 19, 2006 10:55
Location: Kissimmee, FL
Contact:

Re: FB CAD

Postby owen » Dec 29, 2016 15:08

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)
Image

Return to “Projects”

Who is online

Users browsing this forum: David Watson and 4 guests