---
title: "[Shaded Globe Program]"
type: "article"
slug: "shaded-globe-program"
url: "http://localhost/article/shaded-globe-program/"
markdown_url: "http://localhost/article/shaded-globe-program.md"
published_at: "2020-10-27T17:16:53+00:00"
modified_at: "2024-05-26T13:14:56+00:00"
featured_image:
  url: "http://localhost/wp-content/uploads/2020/10/20230809-041334.png"
excerpt: "3 line program that produces this image."
category:
  - name: "Sinc-Link"
    slug: "sinc-link"
    taxonomy: "category"
    url: "http://localhost/category/periodicals/sinc-link/"
post_tag:
  - name: "Downloadable"
    slug: "downloadable"
    taxonomy: "post_tag"
    url: "http://localhost/tag/downloadable/"
  - name: "TS 2068"
    slug: "ts2068"
    taxonomy: "post_tag"
    url: "http://localhost/tag/ts2068/"
  - name: "Type-in program"
    slug: "type-in-program"
    taxonomy: "post_tag"
    url: "http://localhost/tag/type-in-program/"
model:
  - name: "Timex/Sinclair 2068"
    slug: "ts-2068"
    taxonomy: "model"
    url: "http://localhost/model/ts-2068/"
publication: "Sinc-Link"
publication_r:
  id: 10240
  title: "Sinc-Link"
  type: "periodical"
  url: "http://localhost/periodical/sinc-link/"
volume: "9"
issue: "2"
issues_articles:
  - id: 26590
    title: "Sinc-Link v9 n2"
    type: "issue"
    url: "http://localhost/issue/sinc-link-v9-n2/"
pages: "6"
pubdate: "March/April 1991"
download: "https://archive.org/download/timex-sinclair-software-archive/Shaded%20Globe%20%281991%29%28Sinc-Link%20v9%20n2%29%28TS2068%29%28US%29%28Program%29.zip"
archive_link: false
volumeissue: "v9n2"
article_media:
  - id: 55027
    title: "Shaded Globe"
    type: "computer_media"
    url: "http://localhost/computer_media/shaded-globe/"
---

# [Shaded Globe Program]

3 line program that produces this image.

![Image](http://localhost/wp-content/uploads/2022/02/shaded-globe-300x297.png)

## Source Code: Shaded Globe

```
    1 REM This program will produce a shaded globe
    2 REM SINC-LINC v9 n2 p6
    3 REM Typed by David Anderson Feb 10, 2022
   10 FOR x=-87.5 TO 87.5: LET i=INT (SQR (7744-x*x)-.5)+.5
   20 FOR y=-i TO i: IF x+2*y+2*SQR (7744-x*x-y*y)<RND*264 THEN PLOT x+127.5,y+87.5
   30 NEXT y: NEXT x
```