ф;АЪOК >>>>>>>>>> 'HOUSE' DRAWS A 3'D HOUSE <<<<<<<<<<<<<< АЪOА- 7АаOА A-Z : А I,J,K : А.АгORH = 100 : D = 1000 : CX = 320 : CY = 550&А╙OА IR = 75 К 150 К 25 : RH = IR*АхO А IZ = 4 К 11 К 2 : TH = IZ * .16АP А IP = 5 К 15 К 2 : А : PH = IP * .1 : А:А-P А1 @(0,0) "VIEW TH="; TH, "PH="; PH, "RH="; RH;$ АjP S1 = Ж(TH) : C1 = Ж(TH)$ АИP S2 = Ж(PH) : C2 = Ж(PH)АжP К DATA FOR HOUSE&АжP N% = 11 : А "VISIBLE LINE"1 АпP А -11,-20, 23, 6,-20, 9, 6,-20, 01АпP А 6, 32, 0, 0, 32, 0, 0, 32, 201АпP А 0, 0, 20, 0, 0, 13, 0, 32, 13%АпP А 6, 32, 9, 6,-20, 9%АпP N% = 2 : А "VISIBLE LINE"%А╕P А 6, 32, 0, 6, 32, 9%А╕P N% = 2 : А "VISIBLE LINE"%А┴P А 6, 0, 0, 6, 0, 9%А┴P N% = 3 : А "VISIBLE LINE"1А╩P А 0, 32, 0, 0, 0, 0, 6, 0, 0%А╩P N% = 5 : А "VISIBLE LINE"2А╙P А 0, 32, 0,-11.5,32, 0,-11.5,33.5,0'А╙P А-11.5,33.5,33 ,-11.5,32,33.А╙P А "HIDDEN LINE": А XP,YP К XQ,YQ%АQ А -11.5,32,33, -11.5,32,0%АQ А 0,32,20, -14,32,31.5АQ А "HIDDEN LINE 1"&АQ А -14,0,31.5 ,-14,32,31.5.АQ А "HIDDEN LINE": А XP,YP К XQ,YQ А8Q А 0,0,20, -14,0,31.5"!А8Q А -11,-20,23, -11,0,23%"А8Q N% = 2 : А "VISIBLE LINE"(#АAQ А -11.5,33.5,0, -16.5,33.5,0%$АAQ N% = 2 : А "VISIBLE LINE"*%АJQ А -11.5,33.5,33, -16.5,33.5,33.&АJQ А "HIDDEN LINE": А XP,YP К XQ,YQ)'А{Q А -16.5,33.5,0, -16.5,33.5,33"(А{Q А -28,32,0, -16.5,32,0)А{Q А "HIDDEN LINE 1""*А~Q А -28,32,20, -14,32,33%+А~Q N% = 2 : А "VISIBLE LINE"!,АЗQ А -28,32,20, -28,32,0-АЗQ А "HIDDEN LINE".АКQ А 6,-20,9, 6,32,9/АКQ А 0,0,0, 0,0,10<0АКQ А I = 1 К 5 : А "READ STUFF": А "WINDOWS": А I,1АвQ А 0,5,13.5, 0,14,13.5, 0,23,13.52АвQ А 0,14,2, 0,23,2@3АвQ А I = 1 К 2 : А "READ STUFF": А "GARAGE DOOR": А I 4А║Q А 6,-11,0, 6,-1.5,0%5А║Q N% = 4 : А "VISIBLE LINE"6А├Q А 0,6,0, 0,6,6.57А├Q А 0,9,6.5, 0,9,08А А X9АY А IP:АY А IZ ;АYА IR<АYА=└>АY"PERSPECTIVE"?АYК PERSPECTIVE PROGECTION#@АYА "READ STUFF": К READ X,Y,ZAАY"PERSPECTIVE 1"BАYXE = 0 - X * S1 + Y * C10CАYYE = 0 - X * C1 * C2 - Y * S1 * C2 + Z * S25DАYZE = 0 - X * S2 * C1 - Y * S2 * S1 - Z * C2 + RHEАYSX% = D * XE / ZE + CXFАYSY% = CY - D * YE / ZEGАYАH└IАY"HIDDEN LINE"JАYК HIDDEN LINE ROUTINE*KАYА "PERSPECTIVE": XP = SX% : YP = SY%*LАYА "PERSPECTIVE": XQ = SX% : YQ = SY%MАY"HIDDEN LINE 1"*NАYА "PERSPECTIVE": XV = SX% : YV = SY%*OАYА "PERSPECTIVE": XH = SX% : YH = SY%.PАYV1 = (XH - XV) * .5 : V2 = (YH - YV) * .5%QАYU1 = XP - XQ : U2 = YP - YQ%RАYXT = XV + V1 : YT = YV + V2SАYА I = 2 К 7ZTАY VI = Ж(0. + (U2 * (XV - XQ) - U1 * (YV - YQ)) * (U2 * (XT - XQ) - U1 * (YT - YQ)))!UАY V1 = V1 * .5 : V2 = V2 *.5,VАY XT = XT + VI * V1 : YT = YT + VI * V2WАYАXАYА XV,YV К XT,YTYАYАZ└[АY"VISIBLE LINE"\АYК VISABLE LINE ROUTINE]АYА I = 1 К N%^АY А "PERSPECTIVE"_АY А I = 1 К А SX%, SY%`АY А К SX%, SY% aАYА IbАYАc└dАY"WINDOWS"eАYК WINDOWS SUBROUTINE$fАYА "PERSPECTIVE 1": А SX%, SY%3gАYY = Y + 4 : А "PERSPECTIVE 1": А К SX%, SY%2hАYZ = Z + 5.5:А "PERSPECTIVE 1": А К SX%,SY%2iАYY = Y - 4 : А "PERSPECTIVE 1": А К SX%,SY%2jАYZ = Z - 5.5:А "PERSPECTIVE 1": А К SX%,SY%/kАYY = Y + 2 : А "PERSPECTIVE 1": А SX%,SY%2lАYZ = Z + 5.5:А "PERSPECTIVE 1": А К SX%,SY%>mАYY = Y - 2 : Z = Z - 2.75 : А "PERSPECTIVE 1": А SX%,SY%2nАYY = Y + 4 : А "PERSPECTIVE 1": А К SX%,SY%oАYАp└)qАY"GARAGE DOOR" К GARAGE DOOR ROUTINE#rАYА "PERSPECTIVE 1": А SX%,SY%2sАYZ = Z + 7 : А "PERSPECTIVE 1": А К SX%,SY%2tАYY = Y - 7.5:А "PERSPECTIVE 1": А К SX%,SY%2uАYZ = Z - 7 : А "PERSPECTIVE 1": А К SX%,SY%;vАYZ = Z + 5 : Y = Y + 1 : А "PERSPECTIVE 1": А SX%,SY%2wАYZ = Z + 1 : А "PERSPECTIVE 1": А К SX%,SY%2xАYY = Y + 5.5:А "PERSPECTIVE 1": А К SX%,SY%2yАYZ = Z - 1 : А "PERSPECTIVE 1": А К SX%,SY%2zАYY = Y - 5.5:А "PERSPECTIVE 1": А К SX%,SY%{АYА|└}АY"READ STUFF" ~АYА X,Y,ZАYА