home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / CADKEY_C.ZIP / CADKEY14.ZIP / CDL / SH_DRWLN.CDL < prev    next >
Encoding:
Text File  |  1980-01-01  |  187 b   |  7 lines
  1.  
  2.    x1 = xc + ax*cosrot - ay*sinrot
  3.    y1 = yc + ax*sinrot + ay*cosrot
  4.    x2 = xc + bx*cosrot - by*sinrot
  5.    y2 = yc + bx*sinrot + by*cosrot
  6.    VLINE x1,y1,zc,x2,y2,zc,0,0,0,lntype
  7.