Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1570 1744 (N28W70 L=316)   780     51        2 (1538/1712-1591/1771)  -4.8 W65-W77 N25-N28
      2 1018 1612 (N38W19 L=265)   235     81        0 ( 975/1603-1061/1627) -31.0 W16-W21 N36-N39
      3 1733 1518 (N11W64 L=310)  1976    321        3 (1602/1418-1845/1589) -39.8 W54-W72 N02-N17
      4 1315 1179 (N06W20 L=266)   426     86        0 (1267/1160-1362/1196) -31.0 W17-W22 N03-N07
      5 1141 1059 (N04W07 L=253)   728    235        2 (1052/1002-1222/1155)  18.4 W01-W13 N01-N07
      6  818 1097 (N14E10 L=236)   226     70        0 ( 787/1073- 857/1117)   0.0 E11-E06 N13-N14
      7 1822  939 (S23W50 L=296)  1237    168        3 (1780/ 861-1868/1004)  69.4 W46-W56 S26-S18
      8  572  905 (N09E29 L=217)   758    154        2 ( 511/ 846- 615/ 982)  24.0 E33-E24 N05-N12
      9  290  929 (N17E50 L=196)   383     67        1 ( 264/ 902- 321/ 953)  11.3 E52-E46 N15-N18
     10 1247  863 (S10W08 L=254)   190     59        1 (1225/ 838-1269/ 893) -76.0 W07-W09 S11-S07
     11 1682  756 (S29W35 L=281)   750    135        0 (1632/ 714-1737/ 800)   5.7 W30-W40 S30-S27
     12  424  474 (S12E56 L=190)  7428      0       27 ( 238/ 271- 576/ 751)  78.0 E68-E45 S26-N07
     13  578  716 (S01E34 L=212)   355    121        0 ( 519/ 679- 634/ 744) -45.0 E36-E31 S04-N01
     14  937  533 (S20E19 L=227)   526    206        2 ( 913/ 441- 976/ 633)  45.0 E23-E13 S25-S15
     15  566  595 (S08E39 L=207)   243     45        1 ( 542/ 572- 589/ 614)  14.0 E40-E36 S09-S06
     16  672  543 (S13E34 L=212)   634    117        4 ( 629/ 493- 723/ 599) -90.0 E37-E31 S17-S09
     17  776  575 (S14E26 L=220)   293     75        2 ( 736/ 557- 810/ 592) -36.9 E28-E24 S15-S12
     18 1498  543 (S37W17 L=263)   694     79        3 (1465/ 506-1534/ 583)  11.3 W13-W19 S38-S33
     19  610  481 (S15E41 L=205)  1193    288        4 ( 479/ 407- 711/ 561) -45.0 E47-E35 S20-S07
     20  299  487 (S09E69 L=177)  1411    145        3 ( 247/ 437- 355/ 538) -45.0 E72-E64 S12-S05
     21  542  414 (S18E50 L=196)   439     54        1 ( 507/ 396- 577/ 437) -36.9 E52-E47 S19-S16
     22  663  243 (S32E54 L=192)  1457    198        2 ( 598/ 197- 698/ 322)  27.9 E63-E46 S35-S26
  

    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