24.कोड का रीयुज
हम अलग अलग प्रोसीजर बनाकर उसका उपयोग ड्राइंग के लिए करेंगे
हम एक square फंक्शन बनायेंगे जिसमे :size एक पैरामीटर हो औ rt 90 से हम मुड़ेंगे
TO square :size repeat 4 [ fd :size rt 90 ] END
@ इसे कर के देखो
अब हम ट्रायंगल के लिए एक फंक्शन बनायेंगे. इसमें :size एक पैरामीटर हो. और हरेक लाईन के बाद 120 डिग्री मुड़ें
TO triangle :size repeat 3 [fd :size rt 120] END
@ इसे कर के देखो
हमारे बनाये हुए दो प्रोसीजर्स से हम एक आसान सा घर बनाते हैं.
cs square 50 fd 50 rt 30 triangle 50
@ इसे कर के देखें
अब अगर दुबारा हमें यही ड्राइंग बनानी हो तो क्या हमे यह सारी कोडिंग दुबारा से करनी पड़ेगी ? नहीं .
स्क्रीन क्लियर करो
हम पहले बनाये हुए प्रोग्राम को सीधा नए प्रोग्राम में जोड़ सकते हैं. include कमांड से. पिछला प्रोग्राम इस वेबसाइट पर id 45865 में सेव्ह किया गया है. हम उसे अगले प्रोग्राम से शुरुआत में जोड़ सकते हैं
include 45865
तब हम इस प्रोग्राम में बनाये गए सारे प्रोसीजर्स नए प्रोग्राम ने यूज कर सकते हैं
@ कमांड विंडो में include 45865 टाइप कर के रन करें
अब यह कमांड रन कर के देखें
cs square 50 fd 50 rt 30 triangle 50
@ इसे कर के देखें