Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  789 1633 (N50W05 L= 96)   386     84        1 ( 762/1601- 822/1666)  15.9 W01-W08 N47-N51
      2 1601 1608 (N21W61 L=152)   884    136        1 (1549/1567-1643/1641) -63.4 W57-W63 N17-N23
      3  381 1321 (N40E39 L= 52)   595    155        0 ( 368/1252- 395/1397)  90.0 E40-E37 N35-N45
      4  657 1194 (N25E18 L= 74)   532    144        1 ( 584/1164- 725/1219) -33.7 E22-E13 N22-N28
      5  365 1105 (N27E42 L= 50)   657    134        2 ( 312/1054- 396/1158)  18.4 E47-E38 N24-N29
      6 1783 1076 (S13W50 L=141)  1522    256        2 (1672/1010-1881/1136)  -2.4 W39-W63 S14-S10
      7  406 1024 (N21E39 L= 52)   559     78        2 ( 355/ 992- 436/1059)   8.1 E43-E36 N19-N23
      8  388  967 (N18E42 L= 49)   302     67        2 ( 359/ 949- 422/ 993) -53.1 E44-E39 N16-N20
      9  223  946 (N20E59 L= 33)   511     88        0 ( 187/ 907- 260/ 980) -35.5 E62-E54 N17-N22
     10 1568  722 (S26W25 L=116)  1145    298        0 (1504/ 611-1617/ 857)  42.7 W18-W31 S32-S19
     11  352  784 (N09E49 L= 42)   704    150        0 ( 310/ 728- 378/ 849)  49.4 E54-E47 N05-N12
     12 1302  600 (S26W05 L= 96)  1557    601        0 (1150/ 421-1514/ 817)  23.0 E10-W23 S33-S18
     13 1717  729 (S32W38 L=130)   320     33        1 (1697/ 708-1742/ 752) -14.0 W36-W40 S32-S29
     14 1850  685 (S41W58 L=149)   772     75        1 (1813/ 660-1889/ 714)  -3.6 W50-W67 S43-S38
     15  641  390 (S21E44 L= 47)   577     98        1 ( 608/ 355- 686/ 413)   0.0 E49-E41 S22-S19
  

    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