Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1601 1526 (N16W53 L=127)   563     91        0 (1568/1481-1625/1566)  80.5 W51-W55 N12-N18
      2 1119 1342 (N21W15 L= 89)  1873    468        2 ( 917/1208-1281/1423) -56.3 W05-W20 N09-N30
      3 1411 1401 (N15W34 L=108)   271     76        0 (1373/1386-1455/1415) -21.8 W31-W36 N14-N16
      4 1697 1153 (S07W44 L=118)   949    177        2 (1604/1129-1767/1177) -12.1 W36-W50 S09-S04
      5 1785  937 (S22W47 L=121)  1301    297        1 (1722/ 819-1851/1067)  34.5 W38-W55 S26-S15
      6 1660  919 (S18W35 L=109)  1732    291        1 (1605/ 785-1712/1052)  42.7 W28-W42 S24-S11
      7 1290  993 (S03W14 L= 88)   342     98        2 (1240/ 963-1330/1019)   9.5 W10-W16 S04-N00
      8  154  829 (N15E70 L=  4)  1344    122        3 ( 135/ 771- 172/ 894)  49.4 E74-E65 N11-N18
      9  928  628 (S13E16 L= 58)   635    228        1 ( 894/ 541- 959/ 742)  57.5 E20-E13 S17-S06
     10  806  630 (S10E23 L= 51)   257     30        1 ( 784/ 610- 829/ 650) -71.6 E24-E21 S11-S08
     11  728  448 (S19E35 L= 39)  1176    244        2 ( 678/ 345- 784/ 556)  71.6 E38-E31 S26-S11
     12  491  460 (S13E51 L= 23)  1226    174        5 ( 402/ 415- 552/ 489) -35.0 E58-E46 S16-S09
     13  465  373 (S18E60 L= 14)   575     48        2 ( 439/ 346- 490/ 398) -90.0 E63-E57 S20-S16
     14  808  209 (S38E47 L= 27)   554     64        0 ( 783/ 186- 836/ 234)  18.4 E52-E43 S39-S35
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y