Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1355 1837 (N50W65 L=167)  1186    104        1 (1300/1809-1397/1871)   0.0 W54-W82 N48-N51
      2 1759 1399 (N13W62 L=164)  1241    210        1 (1677/1357-1839/1456) -32.7 W55-W72 N08-N17
      3  494 1362 (N36E33 L= 69)   486    165        1 ( 440/1288- 539/1425)  45.0 E37-E29 N31-N39
      4 1322 1342 (N20W25 L=127)  1062    312        5 (1198/1263-1446/1408)   2.9 W15-W35 N16-N21
      5 1795 1210 (N01W57 L=159)   492     91        0 (1757/1182-1837/1233)   5.2 W52-W63 N00-N02
      6 1880 1042 (S11W64 L=165)  6640    329       14 (1818/ 894-1952/1196) -90.0 W54-W82 S20-S01
      7 1079  778 (S09E01 L=101)   968    281        5 ( 982/ 692-1145/ 893) -74.1 E04-W02 S14-N00
      8 1737  851 (S18W45 L=147)   478      0        0 (1711/ 820-1764/ 881)  45.0 W43-W48 S19-S16
      9 1357  828 (S11W17 L=118)   398     99        1 (1332/ 795-1385/ 880) -80.5 W15-W18 S13-S07
     10 1469  815 (S14W24 L=126)   429     79        1 (1445/ 771-1494/ 861)  59.0 W21-W25 S16-S11
     11  230  827 (N05E61 L= 41)   431     56        1 ( 205/ 800- 258/ 854)  15.9 E64-E57 N03-N06
     12  557  692 (S06E35 L= 66)   309     79        1 ( 526/ 664- 594/ 719) -53.1 E37-E33 S08-S04
     13 1177  589 (S23W02 L=103)   641    174        1 (1149/ 507-1201/ 667)  63.4 E01-W04 S27-S17
     14  233  608 (S09E71 L= 31)  1493    140        2 ( 196/ 544- 279/ 666) -58.0 E74-E67 S13-S05
     15  575  498 (S19E41 L= 61)   899    187        1 ( 538/ 410- 639/ 576)  85.2 E42-E38 S25-S13
     16 1290  480 (S33W08 L=109)   909    139        2 (1220/ 452-1353/ 520)   0.0 W02-W12 S35-S30
     17  372  456 (S20E63 L= 39)  1250    104        6 ( 350/ 400- 392/ 516)  42.0 E70-E57 S24-S15
     18  856  441 (S27E23 L= 79)   612     84        1 ( 836/ 393- 880/ 483)  50.2 E25-E19 S30-S24
     19 1474  329 (S52W24 L=126)   883     96        3 (1427/ 300-1527/ 356)  -4.8 W18-W30 S54-S49
     20  487  317 (S32E63 L= 39)   698     49        1 ( 458/ 296- 515/ 340)   8.7 E70-E57 S33-S29
     21  860  200 (S47E38 L= 64)   559     76        1 ( 840/ 158- 884/ 228)  33.7 E45-E32 S52-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