Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1514 1697 (N28W60 L= 85)   839    104        1 (1455/1664-1547/1734) -80.5 W56-W63 N25-N31
      2 1431 1709 (N32W54 L= 79)   502     76        1 (1398/1694-1473/1733) -53.1 W51-W57 N29-N33
      3 1299 1640 (N32W39 L= 64)   515     97        0 (1259/1610-1347/1667) -63.4 W36-W40 N28-N34
      4  616 1604 (N52E13 L= 13)   357     35        0 ( 597/1575- 635/1628) -90.0 E14-E11 N49-N54
      5  440 1548 (N53E34 L=352)  1896    300        4 ( 330/1482- 549/1607)   6.3 E48-E20 N51-N55
      6  303 1262 (N36E47 L=339)   411     39        2 ( 284/1236- 321/1293)  45.0 E49-E44 N34-N38
      7  949 1162 (N14E01 L= 25)   477    116        2 ( 901/1130-1002/1204) -71.6 E03-W02 N11-N17
      8  152  931 (N19E68 L=317)  2323    371        4 (  85/ 786- 242/1064) -38.0 E83-E59 N09-N27
      9 1789  925 (S22W48 L= 73)   633    151        0 (1722/ 900-1830/ 971)  -9.5 W41-W53 S24-S19
     10  909  636 (S14E17 L=  9)   833    283        1 ( 842/ 532- 983/ 745)  31.0 E24-E09 S18-S09
     11  347  693 (N02E53 L=333)   363     90        2 ( 305/ 676- 382/ 713)   0.0 E56-E48 N00-N03
     12 1168  609 (S22E03 L= 23)   843    230        3 (1106/ 524-1214/ 713)  42.0 E08-W02 S26-S17
     13 1399  511 (S36W09 L= 35)   847    209        2 (1346/ 419-1445/ 596)  48.0 W04-W14 S41-S31
     14  390  410 (S16E66 L=320)   725    111        4 ( 357/ 372- 437/ 444) -63.4 E70-E62 S19-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