Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  922 1655 (N37E09 L=258)  1811    361        2 ( 777/1569-1077/1725) -22.6 E22-W02 N30-N42
      2 1135 1487 (N25W06 L=274)   253     70        0 (1123/1448-1147/1530) -80.5 W05-W06 N22-N28
      3 1576 1365 (N19W36 L=304)   346     38        0 (1554/1341-1602/1388)  45.0 W34-W38 N17-N20
      4  798 1212 (N07E14 L=253)   371    112        0 ( 784/1154- 817/1264) -90.0 E15-E12 N03-N10
      5  370  954 (S08E43 L=224)   542     81        2 ( 328/ 926- 414/ 983)  15.9 E46-E39 S10-S06
      6 1691  810 (S14W46 L=314)   682    160        0 (1646/ 739-1712/ 863) -49.4 W41-W49 S18-S10
      7  469  822 (S16E36 L=231)   387     62        1 ( 448/ 794- 491/ 862)  63.4 E38-E34 S18-S14
      8 1824  745 (S17W62 L=329)   563     78        1 (1810/ 702-1841/ 787) -68.2 W59-W63 S19-S14
      9  308  744 (S21E52 L=215)   315     35        0 ( 286/ 729- 336/ 764) -14.0 E54-E49 S21-S19
     10 1127  706 (S23W07 L=275)   268     36        1 (1102/ 686-1155/ 730) -14.0 W05-W09 S24-S21
     11  360  627 (S29E50 L=217)   652    173        2 ( 312/ 567- 395/ 706)  36.9 E56-E44 S32-S23
     12 1703  661 (S23W52 L=319)   313     57        1 (1672/ 644-1725/ 681)  36.9 W48-W53 S24-S21
     13  808  618 (S29E14 L=254)   522    148        0 ( 771/ 565- 834/ 678)  74.1 E16-E11 S32-S25
     14  558  592 (S31E33 L=234)   278     52        0 ( 532/ 573- 586/ 613)  21.8 E35-E30 S32-S29
     15 1393  215 (S58W53 L=320)   483     72        0 (1360/ 200-1430/ 237)  -6.7 W43-W61 S59-S56
  

    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