Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  536 1762 (N25E62 L=237)   487     19        0 ( 520/1739- 553/1783) -45.0 E65-E59 N23-N26
      2 1092 1736 (N38E20 L=279)   584    108        0 (1049/1707-1144/1767)  -6.3 E24-E15 N36-N39
      3  580 1538 (N11E42 L=257)   946    188        1 ( 535/1467- 634/1633) -26.6 E49-E35 N07-N16
      4 1458 1600 (N41W11 L=310)   311     56        0 (1439/1570-1472/1627) -36.9 W08-W12 N39-N43
      5  285 1472 (N02E64 L=235)   611     94        1 ( 247/1451- 322/1510)  38.7 E69-E60 N00-N04
      6 1458 1333 (N23W17 L=316)   267     86        0 (1418/1304-1491/1363)  -9.5 W13-W19 N22-N24
      7 1716 1220 (N25W38 L=337)   335     89        0 (1671/1200-1756/1236)  15.9 W34-W41 N22-N26
      8 1887 1085 (N24W59 L=358)   663     99        0 (1858/1046-1912/1131) -14.0 W54-W63 N22-N25
      9  674 1053 (S14E21 L=279)   372     66        2 ( 646/1025- 701/1094)  90.0 E21-E18 S15-S11
     10 1753  946 (N11W47 L=346)   570    126        0 (1727/ 886-1773/1005)  90.0 W45-W49 N07-N14
     11 1814  870 (N09W55 L=355)  2280    290        6 (1748/ 761-1879/ 980)  85.9 W51-W60 N02-N16
     12 1035  905 (S12W04 L=303)   389    170        0 ( 982/ 841-1083/ 974) -26.6 W00-W08 S14-S10
     13  949  823 (S19W01 L=301)   310     86        1 ( 905/ 799- 993/ 842)  11.3 E01-W04 S20-S17
     14  803  732 (S29E05 L=295)   324    110        0 ( 761/ 701- 859/ 750)  38.7 E06-E01 S31-S26
     15  210  689 (S47E63 L=236)   613     71        1 ( 173/ 670- 244/ 712)   6.7 E73-E56 S48-S45
     16 1423  617 (S17W36 L=335)   377    105        0 (1372/ 602-1473/ 636)  33.7 W32-W39 S18-S14
     17  532  547 (S48E21 L=278)   787    184        0 ( 451/ 507- 609/ 585)   0.0 E29-E13 S50-S46
     18  850  462 (S44W08 L=307)   329     82        1 ( 810/ 436- 888/ 489)   0.0 W04-W11 S44-S42
     19 1444  346 (S30W55 L=354)   355     82        2 (1408/ 319-1468/ 379)  -5.7 W49-W59 S30-S28
     20 1578  326 (S26W69 L=  9)   825     72        1 (1548/ 297-1603/ 351)   0.0 W63-W75 S27-S24
     21 1023  170 (S58W48 L=347)   510     63        0 (1006/ 138-1042/ 202) -14.9 W41-W56 S59-S55
  

    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