Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1609 1668 (N47W43 L=257)  1042    115        0 (1563/1630-1644/1695)   5.2 W36-W48 N44-N50
      2  832 1597 (N28E21 L=193)   239     26        1 ( 811/1579- 854/1619)  90.0 E22-E19 N26-N29
      3  849 1529 (N23E18 L=196)   342     71        1 ( 829/1487- 877/1563)  90.0 E19-E16 N20-N25
      4  547 1485 (N17E38 L=176)   426     74        1 ( 521/1449- 575/1520) -33.7 E40-E34 N15-N19
      5 1555 1356 (N22W31 L=245)  1780    383        1 (1383/1242-1675/1450) -21.4 W17-W40 N16-N25
      6  908 1409 (N16E12 L=202)   391     83        2 ( 868/1374- 948/1449) -45.0 E14-E09 N14-N18
      7 1856 1322 (N26W62 L=276)  2313    200        7 (1795/1220-1899/1387) -59.0 W53-W69 N19-N30
      8  313 1254 (N01E51 L=163)   428     80        0 ( 280/1236- 351/1276)   8.1 E54-E47 N00-N02
      9  686 1206 (N01E23 L=191)   587    150        0 ( 643/1136- 726/1270) -45.0 E26-E19 S02-N04
     10  362 1009 (S13E44 L=170)   392    140        0 ( 323/ 952- 391/1070)  54.5 E47-E41 S16-S09
     11  481  831 (S23E34 L=180)   242     44        0 ( 460/ 811- 506/ 853) -33.7 E35-E32 S24-S21
     12 1084  812 (S18W06 L=221)   524    224        0 ( 986/ 775-1190/ 840)  26.6 W00-W12 S20-S14
     13  821  643 (S31E09 L=205)   743    146        1 ( 759/ 590- 881/ 682)  41.2 E12-E04 S35-S28
     14 1624  501 (S28W55 L=269)  3371    439        4 (1456/ 399-1799/ 630)  46.4 W45-W66 S37-S16
  

    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