Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1232 1706 (N37W37 L=138)   380     57        0 (1201/1690-1272/1724) -45.0 W34-W39 N35-N39
      2 1705 1636 (N19W72 L=173)  1050    108        1 (1689/1585-1721/1689)  17.4 W66-W85 N16-N21
      3 1348 1590 (N27W37 L=138)   661    146        1 (1286/1534-1402/1623)   9.5 W30-W42 N25-N28
      4 1504 1466 (N16W42 L=143)   411     69        2 (1473/1429-1532/1505) -90.0 W40-W43 N13-N18
      5 1120 1415 (N23W16 L=117)   614    247        1 (1018/1329-1193/1486) -69.0 W12-W18 N16-N29
      6  926 1276 (N20W01 L=102)  1079    340        3 ( 837/1199-1080/1377) -60.3 E03-W07 N12-N27
      7 1769 1250 (S03W53 L=154)  1430    186        2 (1711/1155-1808/1313) -71.6 W48-W56 S08-N01
      8  468 1271 (N31E30 L= 71)   891    189        2 ( 391/1232- 562/1304)  -8.1 E36-E22 N28-N32
      9  737 1203 (N21E12 L= 89)  1239    325        3 ( 595/1092- 836/1266) -51.8 E20-E07 N12-N26
     10 1766 1043 (S14W47 L=148)   714    147        0 (1732/ 981-1786/1114)  40.6 W43-W50 S16-S10
     11  514 1093 (N19E29 L= 72)   271    106        0 ( 463/1080- 569/1106) -29.7 E32-E25 N17-N21
     12 1605  878 (S19W31 L=132)  1247    226        3 (1512/ 820-1714/ 929)   0.0 W24-W40 S20-S16
     13 1857  864 (S28W55 L=156)  2489    233        3 (1752/ 801-1946/ 929)  -4.1 W42-W71 S30-S24
     14  405  802 (N05E43 L= 58)   587     97        1 ( 371/ 754- 439/ 843)  38.7 E46-E40 N03-N07
     15  793  734 (S07E20 L= 81)   432    130        0 ( 755/ 685- 815/ 786)  45.0 E23-E17 S08-S03
     16  303  656 (S01E57 L= 44)   653     82        1 ( 273/ 624- 334/ 688)  21.8 E59-E53 S02-N00
     17  365  644 (S03E52 L= 49)   420     70        1 ( 342/ 612- 391/ 678) -76.0 E53-E49 S04-N00
     18  417  560 (S09E51 L= 50)  3350    301        8 ( 344/ 439- 483/ 678)  59.0 E58-E42 S16-S01
     19  346  524 (S09E60 L= 41)   540     68        3 ( 327/ 492- 367/ 560)  76.0 E62-E57 S11-S07
     20  480  461 (S16E51 L= 50)   517     80        1 ( 448/ 433- 517/ 495)  14.0 E54-E46 S17-S14
     21  629  337 (S27E48 L= 53)   988    193        0 ( 552/ 311- 714/ 394)   0.0 E54-E37 S28-S25
  

    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