Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  698 1817 (N44E44 L=167)   489     42        0 ( 681/1784- 716/1848) -31.0 E49-E39 N40-N47
      2 1632 1669 (N48W47 L=258)   910     88        0 (1595/1645-1669/1694)  17.1 W40-W53 N44-N50
      3  582 1522 (N20E36 L=175)   856    204        2 ( 540/1449- 617/1596) -39.3 E42-E31 N15-N24
      4  237 1471 (N15E69 L=142)  3127    185        7 ( 188/1405- 288/1550)  90.0 E77-E63 N10-N20
      5  900 1517 (N23E15 L=196)   347     56        1 ( 881/1481- 926/1549) -78.7 E16-E12 N20-N25
      6 1608 1341 (N22W35 L=246)  1694    331        3 (1466/1233-1709/1430) -21.8 W23-W43 N16-N25
      7  944 1403 (N16E10 L=201)   276     68        0 ( 906/1385- 975/1425)  26.6 E11-E07 N14-N17
      8 1853 1339 (N27W61 L=272)  1307     93        2 (1823/1300-1888/1384) -33.7 W56-W67 N24-N30
      9  337 1269 (N02E49 L=162)   761    227        2 ( 277/1230- 392/1326)  11.3 E54-E44 N00-N05
     10  718 1236 (N03E21 L=190)   303     94        1 ( 689/1197- 747/1275) -45.0 E23-E18 N01-N05
     11  540  846 (S22E30 L=181)   787    299        0 ( 445/ 803- 668/ 905)  20.6 E36-E20 S24-S16
     12 1145  804 (S17W10 L=221)   554    227        0 (1042/ 769-1248/ 830)  26.6 W04-W16 S20-S14
     13  857  615 (S33E06 L=205)   626    127        0 ( 804/ 573- 912/ 652)  40.6 E09-E02 S36-S29
     14 1649  492 (S28W58 L=269)  3474    430        4 (1484/ 392-1820/ 622)  46.4 W48-W70 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