Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1380 1791 (N54W53 L= 45)  1657    221        3 (1299/1752-1454/1827)   3.6 W38-W70 N51-N57
      2  447 1532 (N41E48 L=304)   723    114        1 ( 399/1505- 503/1555)   4.8 E54-E41 N38-N42
      3  805 1468 (N35E13 L=339)   406    171        0 ( 780/1389- 827/1532)  90.0 E14-E11 N29-N39
      4  554 1494 (N38E35 L=317)   277     50        2 ( 533/1464- 579/1516) -53.1 E36-E32 N35-N39
      5 1041 1449 (N32W04 L=356)   975    208        3 ( 955/1413-1144/1493) -22.6 E01-W11 N28-N35
      6 1721 1357 (N19W56 L= 47)   330     71        0 (1706/1322-1740/1389)  63.4 W54-W57 N16-N20
      7 1066 1237 (N18W04 L=356)   625    230        2 (1006/1150-1144/1301)  45.0 W00-W09 N12-N21
      8 1614 1151 (N08W40 L= 32)   437    100        3 (1573/1106-1639/1181) -90.0 W37-W42 N04-N09
      9 1520 1090 (N05W33 L= 24)   540    148        1 (1444/1067-1580/1111) -11.3 W27-W37 N03-N06
     10 1764  783 (S17W53 L= 45)   426     59        1 (1744/ 760-1790/ 815) -38.7 W50-W56 S18-S14
     11 1134  546 (S26W04 L=356)   231     71        1 (1104/ 528-1168/ 566)  21.8 W01-W06 S27-S25
     12  487  499 (S27E45 L=307)  1209    367        1 ( 421/ 408- 583/ 565)  31.4 E57-E37 S33-S21
     13 1318  388 (S41W19 L= 10)   495    157        0 (1246/ 363-1384/ 410)   4.8 W12-W24 S42-S39
  

    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