Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1509 1667 (N52W36 L=308)   411     32        0 (1486/1646-1532/1685)  15.9 W32-W39 N50-N54
      2  364 1594 (N26E67 L=205)  1791    165        6 ( 313/1510- 409/1650) -55.0 E75-E61 N20-N30
      3  720 1556 (N29E31 L=242)  1171    219        1 ( 679/1461- 787/1650)  90.0 E33-E28 N22-N37
      4 1649 1533 (N43W47 L=320)   574     52        2 (1628/1501-1667/1565)  78.7 W44-W50 N40-N45
      5  399 1393 (N14E50 L=223)   529    143        1 ( 367/1348- 421/1470) -76.0 E52-E47 N11-N19
      6 1011 1397 (N23E06 L=266)   428    150        0 ( 967/1330-1040/1441) -50.2 E09-E03 N19-N25
      7  168 1098 (S07E67 L=205)   700    170        0 ( 144/1055- 187/1134)  59.0 E71-E64 S09-S04
      8  224 1020 (S11E59 L=214)  1751    244        4 ( 189/ 915- 265/1117) -80.5 E63-E53 S17-S04
      9  307 1010 (S10E50 L=223)   384     50        1 ( 280/ 991- 330/1036)  45.0 E52-E47 S11-S08
     10  330  959 (S13E47 L=225)   295     71        0 ( 297/ 944- 358/ 983)  18.4 E50-E44 S14-S11
     11  308  891 (S18E49 L=223)   383     80        2 ( 283/ 859- 347/ 915)  38.7 E51-E45 S19-S15
     12 1801  742 (S06W62 L=335)   774    140        1 (1778/ 702-1845/ 799) -24.4 W58-W70 S08-S02
     13  189  751 (S29E68 L=204)  1367    100        2 ( 151/ 719- 232/ 783)  12.8 E83-E59 S31-S26
     14  998  647 (S23W04 L=276)   295     81        2 ( 973/ 622-1029/ 685) -45.0 W01-W05 S25-S21
     15 1780  616 (S14W67 L=339)  1670    131        3 (1743/ 569-1823/ 665) -28.6 W59-W72 S17-S11
     16 1703  608 (S16W57 L=330)   448     57        1 (1675/ 580-1722/ 630)  26.6 W54-W60 S17-S14
     17 1296  485 (S30W28 L=301)  1439    400        1 (1115/ 447-1460/ 531)  23.5 W16-W39 S35-S24
     18 1176  255 (S50W32 L=305)   475     64        1 (1140/ 241-1215/ 274)   7.1 W28-W36 S51-S48
     19 1364  233 (S48W55 L=328)   680     60        1 (1340/ 203-1382/ 271) -32.5 W49-W63 S51-S44
  

    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