Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  873 1858 (N57E39 L= 84)   673    103        0 ( 821/1841- 922/1872)   4.4 E45-E32 N55-N58
      2  766 1703 (N41E33 L= 89)   344     76        1 ( 729/1683- 802/1720)  -8.1 E36-E29 N39-N42
      3  651 1644 (N35E39 L= 83)   371     83        0 ( 628/1608- 674/1680) -26.6 E43-E35 N32-N36
      4  936 1633 (N38E17 L=106)   548    150        1 ( 888/1605-1014/1651)   5.7 E20-E10 N35-N39
      5  327 1437 (N16E58 L= 64)   706    102        1 ( 302/1380- 350/1480) -71.6 E62-E55 N12-N18
      6 1415 1408 (N29W22 L=144)  2244    451        2 (1212/1325-1595/1476)  -5.7 W06-W36 N25-N31
      7  401 1134 (S01E42 L= 80)   467    140        1 ( 387/1069- 424/1195)  90.0 E43-E40 S04-N02
      8 1610 1141 (N15W37 L=159)   266     56        0 (1600/1099-1625/1171)  76.0 W36-W38 N12-N16
      9  618 1077 (S02E26 L= 97)   511    138        1 ( 562/1032- 660/1131)  51.3 E28-E23 S04-N02
     10 1541 1047 (N08W32 L=155)   232     41        1 (1518/1030-1566/1067)   0.0 W30-W34 N06-N09
     11  945  780 (S15E02 L=121)   193    103        0 ( 914/ 740- 958/ 821) -53.1 E04-W00 S17-S13
     12 1643  685 (S12W47 L=169)   943    255        2 (1528/ 634-1727/ 758)  34.7 W38-W53 S16-S06
     13 1686  523 (S22W59 L=182)  2590    424        2 (1507/ 477-1801/ 639)  30.6 W44-W70 S26-S13
  

    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