Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1743 1599 (N20W72 L=297)   873     74        0 (1706/1582-1777/1622)   0.0 W65-W84 N18-N20
      2 1780 1463 (N11W65 L=290)  1201     98        1 (1729/1422-1814/1495) -45.0 W59-W69 N08-N14
      3  700 1367 (N28E14 L=212)   465    165        0 ( 636/1316- 757/1423) -52.1 E17-E10 N23-N32
      4 1643 1298 (N05W44 L=270)   818    196        1 (1560/1251-1722/1338)   3.6 W36-W52 N03-N06
      5  418 1242 (N26E36 L=190)   338     95        0 ( 366/1216- 451/1279)  15.9 E40-E32 N24-N27
      6 1144 1242 (N12W11 L=236)   362    111        0 (1104/1218-1197/1277) -51.3 W09-W13 N09-N14
      7 1342 1175 (N04W21 L=247)   359     94        0 (1302/1141-1377/1208) -59.0 W19-W22 N01-N06
      8  408 1119 (N19E37 L=188)  1532    464        1 ( 246/1062- 614/1173) -21.4 E51-E22 N12-N24
      9  858  875 (S04E12 L=213)   324    131        0 ( 790/ 850- 914/ 893) -33.7 E15-E09 S05-S01
     10  768  749 (S09E20 L=205)   597    157        0 ( 730/ 695- 833/ 815) -77.5 E22-E17 S13-S04
     11  887  730 (S12E14 L=212)   411    155        1 ( 826/ 704- 949/ 771)   0.0 E17-E09 S13-S10
     12 1161  654 (S22W01 L=226)   285    108        0 (1133/ 608-1186/ 703)  51.3 E01-W03 S24-S19
     13  497  646 (S10E41 L=185)   675    141        4 ( 455/ 578- 532/ 696)  74.1 E43-E38 S14-S07
     14 1624  660 (S32W34 L=259)   343     64        1 (1594/ 642-1656/ 682)   9.5 W30-W36 S33-S30
     15  324  537 (S14E61 L=165)  6413      0       18 ( 232/ 421- 413/ 651) -68.2 E73-E52 S22-S06
     16  638  531 (S19E35 L=190)   382     86        1 ( 612/ 485- 659/ 566) -90.0 E36-E33 S22-S17
     17 1365  480 (S38W11 L=237)  1167    358        1 (1227/ 381-1505/ 566)  16.9 W00-W23 S42-S35
     18 1719  521 (S45W47 L=272)   533     98        0 (1675/ 491-1760/ 555)  11.3 W41-W51 S46-S43
     19  868  325 (S38E29 L=196)  1035    200        0 ( 797/ 261- 935/ 411)  22.4 E37-E20 S41-S33
     20 1027  257 (S47E21 L=204)   497     58        2 ( 991/ 235-1067/ 280)  -8.1 E24-E17 S48-S45
  

    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