Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1292 1517 (N26W32 L=316)   822    209        0 (1192/1495-1398/1533) -28.3 W25-W38 N22-N29
      2 1030 1465 (N31W14 L=297)   348     96        0 ( 978/1438-1066/1492)   0.0 W09-W16 N30-N32
      3  939 1241 (N21W01 L=285)  1047    365        4 ( 791/1166-1099/1280)  -6.0 E09-W10 N17-N23
      4  187 1130 (N32E62 L=222)  1084    183        1 ( 148/1083- 235/1174)  51.3 E67-E54 N28-N34
      5 1925 1121 (S16W69 L=353)   747     72        0 (1887/1104-1958/1143)  -7.1 W62-W78 S17-S14
      6  804 1018 (N12E13 L=271)   818    221        2 ( 762/ 916- 849/1111) -90.0 E13-E10 N05-N18
      7 1786  891 (S23W46 L=330)  1078    289        0 (1741/ 763-1839/1025)  42.7 W40-W53 S29-S17
      8 1676  923 (S17W37 L=320)   332     42        1 (1654/ 898-1701/ 948)  26.6 W34-W39 S18-S15
      9  587  840 (N07E30 L=254)   385     77        2 ( 549/ 811- 625/ 867) -45.0 E32-E27 N04-N08
     10  468  720 (N03E42 L=242)  1061    273        6 ( 409/ 610- 516/ 832)  35.5 E49-E35 S02-N08
     11 1641  715 (S29W31 L=314)   286     52        0 (1619/ 689-1658/ 745)  33.7 W28-W32 S30-S26
     12 1328  675 (S21W08 L=292)   722    139        1 (1292/ 613-1375/ 726)  29.7 W04-W11 S23-S17
     13  864  584 (S14E21 L=263)   594    168        2 ( 796/ 547- 951/ 605) -11.3 E26-E15 S16-S11
     14  434  503 (S09E54 L=230)  1104    239        2 ( 351/ 461- 529/ 559) -36.0 E59-E46 S12-S04
     15  898  470 (S22E23 L=260)   539    200        1 ( 825/ 424- 958/ 531)   0.0 E27-E17 S24-S18
     16  713  489 (S16E34 L=250)   242     72        1 ( 692/ 454- 731/ 523)  68.2 E35-E32 S18-S13
     17 1247  495 (S30E02 L=282)   267     25        1 (1221/ 480-1273/ 515) -18.4 E03-W00 S31-S28
     18  430  419 (S15E60 L=224)  2703    216        7 ( 360/ 359- 506/ 485) -52.1 E67-E53 S18-S09
     19 1059  226 (S45E27 L=257)  1187    156        3 (1002/ 182-1114/ 283)  19.7 E33-E19 S47-S40
  

    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