Skip to content

Instantly share code, notes, and snippets.

@alannakelly
Last active September 17, 2021 11:34
Show Gist options
  • Save alannakelly/4ab5bd291436788b626fa6ef43add240 to your computer and use it in GitHub Desktop.
Save alannakelly/4ab5bd291436788b626fa6ef43add240 to your computer and use it in GitHub Desktop.
1000 DIM CX,CY,XS,YS,XT,YT,IA,IB,IC,ID,IX
1002 DIM VX(100),VY(100),VZ(100)
1005 CX=128:CY=128
1010 READ VX(IX),VY(IX),VZ(IX):IF VX(IX)=-999 THEN GOTO 1020 ELSE IX=IX+1:GOTO 1010
1020 PMODE4:SCREEN1,0:PCLS:COLOR1
1030 READ IA,IB,IC,ID
1040 IF IA = -1 THEN GOTO 1490
1050 IX=IA:GOSUB1500:XT=XS:YT=YS:IX=IB:GOSUB1500:LINE(XS,YS)-(XT,YT),PSET
1060 IX=IB:GOSUB1500:XT=XS:YT=YS:IX=IC:GOSUB1500:LINE(XS,YS)-(XT,YT),PSET
1070 IX=IC:GOSUB1500:XT=XS:YT=YS:IX=ID:GOSUB1500:LINE(XS,YS)-(XT,YT),PSET
1080 IX=ID:GOSUB1500:XT=XS:YT=YS:IX=IA:GOSUB1500:LINE(XS,YS)-(XT,YT),PSET
1090 GOTO1030
1480 REM == END ==
1490 GOTO 1490
1500 REM ISOMETRIC(VX,VY,VZ)
1510 IX=IX-1:XS=CX+(VX(IX)-VY(IX)):YS=CY-VZ(IX)+(VX(IX)/2+VY(IX)/2):RETURN
2999 REM VERTS
3000 DATA -6,-39,15
3001 DATA -13,-16,20
3002 DATA -6,-39,3
3003 DATA -15,-23,-20
3004 DATA -13,16,20
3005 DATA -12,39,12
3006 DATA -12,39,-12
3007 DATA -15,23,-20
3008 DATA 6,-39,15
3009 DATA 13,-16,20
3010 DATA 6,-39,3
3011 DATA 15,-23,-20
3012 DATA 12,39,12
3013 DATA 13,16,20
3014 DATA 12,39,-12
3015 DATA 15,23,-20
3016 DATA 4,-92,5
3017 DATA -4,-92,5
3018 DATA -4,-92,13
3019 DATA 4,-92,13
3020 DATA 2,-100,6
3021 DATA -2,-100,6
3022 DATA -2,-100,14
3023 DATA 2,-100,14
3024 DATA -1,-92,24
3025 DATA 1,-92,24
3026 DATA -2,-100,27
3027 DATA 2,-100,27
3028 DATA -3,-3,37
3029 DATA 3,3,37
3030 DATA -3,3,37
3031 DATA 3,-3,37
3032 DATA -3,3,37
3033 DATA 3,-3,35
3034 DATA 5,-6,20
3035 DATA -5,-6,20
3036 DATA -5,6,20
3037 DATA -3,3,35
3038 DATA 3,-3,37
3039 DATA 5,6,20
3040 DATA -3,-3,35
3041 DATA -3,-3,37
3042 DATA 3,-3,35
3043 DATA -3,3,35
3044 DATA 3,3,35
3045 DATA -3,-3,35
3046 DATA 3,3,35
3047 DATA 3,3,37
3048 DATA -50,-3,37
3049 DATA -50,3,37
3050 DATA -50,3,35
3051 DATA 50,-3,35
3052 DATA 50,-3,37
3053 DATA -50,-3,35
3054 DATA 50,3,35
3055 DATA 50,3,37
3056 DATA -6,-95,8
3057 DATA -6,-95,11
3058 DATA -6,-98,8
3059 DATA -6,-98,11
3060 DATA -7,-95,8
3061 DATA -7,-95,11
3062 DATA -7,-98,8
3063 DATA -7,-98,11
3064 DATA -6,-95,8
3065 DATA -6,-95,11
3066 DATA -6,-98,8
3067 DATA -6,-98,11
3068 DATA -7,-95,8
3069 DATA -7,-95,11
3070 DATA -7,-98,8
3071 DATA -7,-98,11
3072 DATA -6,-95,21
3073 DATA -6,-98,21
3074 DATA -7,-98,21
3075 DATA -7,-95,21
3076 DATA -6,-86,8
3077 DATA -6,-86,11
3078 DATA -7,-86,11
3079 DATA -7,-86,8
3080 DATA -6,-98,-2
3081 DATA -6,-95,-2
3082 DATA -7,-95,-2
3083 DATA -7,-98,-2
3084 DATA -6,-107,11
3085 DATA -6,-107,8
3086 DATA -7,-107,8
3087 DATA -7,-107,11
3100 DATA -999,0,0
3102 REM --------------
4000 DATA 12,4,8,16
4001 DATA 16,14,10,12
4002 DATA 7,6,13,15
4003 DATA 4,2,5,8
4004 DATA 4,12,11,3
4005 DATA 2,4,3,1
4006 DATA 15,13,14,16
4007 DATA 6,7,8,5
4008 DATA 9,11,12,10
4009 DATA 6,5,14,13
4010 DATA 16,8,7,15
4011 DATA 10,2,1,9
4012 DATA 11,9,20,17
4013 DATA 20,19,25,26
4014 DATA 3,11,17,18
4015 DATA 9,1,19,20
4016 DATA 1,3,18,19
4017 DATA 21,24,23,22
4018 DATA 22,23,60,59
4019 DATA 17,20,24,21
4020 DATA 18,17,21,22
4021 DATA 26,25,27,28
4022 DATA 19,23,27,25
4023 DATA 24,20,26,28
4024 DATA 23,24,28,27
4025 DATA 33,38,51,50
4026 DATA 29,31,33,42
4027 DATA 45,30,48,47
4028 DATA 29,32,30,31
4029 DATA 35,10,14,40
4030 DATA 37,40,14,5
4031 DATA 36,35,43,41
4032 DATA 2,36,37,5
4033 DATA 35,40,45,43
4034 DATA 45,44,31,30
4035 DATA 30,32,39,48
4036 DATA 41,43,32,29
4037 DATA 34,47,55,52
4038 DATA 40,37,44,45
4039 DATA 37,36,41,44
4040 DATA 10,35,36,2
4041 DATA 32,43,34,39
4042 DATA 43,45,47,34
4043 DATA 31,44,38,33
4044 DATA 41,29,42,46
4045 DATA 44,41,46,38
4046 DATA 51,54,49,50
4047 DATA 52,55,56,53
4048 DATA 38,46,54,51
4049 DATA 48,39,53,56
4050 DATA 47,48,56,55
4051 DATA 46,42,49,54
4052 DATA 39,34,52,53
4053 DATA 42,33,50,49
4054 DATA 61,62,70,69
4055 DATA 18,22,59,57
4056 DATA 19,18,57,58
4057 DATA 23,19,58,60
4058 DATA 62,61,63,64
4059 DATA 62,64,72,70
4060 DATA 59,60,68,67
4061 DATA 57,59,67,65
4062 DATA 60,58,66,68
4063 DATA 63,61,69,71
4064 DATA 58,57,65,66
4065 DATA 64,63,71,72
4066 DATA 73,74,75,76
4067 DATA 67,74,73,65
4068 DATA 71,75,74,67
4069 DATA 69,76,75,71
4070 DATA 65,73,76,69
4071 DATA 77,78,79,80
4072 DATA 68,78,77,67
4073 DATA 72,79,78,68
4074 DATA 71,80,79,72
4075 DATA 67,77,80,71
4076 DATA 81,82,83,84
4077 DATA 66,82,81,68
4078 DATA 70,83,82,66
4079 DATA 72,84,83,70
4080 DATA 68,81,84,72
4081 DATA 85,86,87,88
4082 DATA 65,86,85,66
4083 DATA 69,87,86,65
4084 DATA 70,88,87,69
4085 DATA 66,85,88,70
4086 DATA -1,0,0,0
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment