Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1500 1664 (N28W56 L=252)   353     57        0 (1473/1643-1521/1683) -90.0 W54-W57 N26-N30
      2 1585 1556 (N20W54 L=250)   515    130        1 (1531/1540-1632/1583) -20.6 W50-W58 N18-N21
      3  212 1409 (N49E69 L=127)   885     73        1 ( 170/1392- 256/1421)   0.0 E84-E59 N47-N49
      4 1616 1369 (N09W46 L=242)   312     88        1 (1575/1344-1644/1402)   0.0 W42-W49 N08-N11
      5  410 1143 (N28E37 L=159)   252     34        0 ( 383/1126- 436/1157) -14.0 E39-E35 N26-N28
      6 1070 1105 (N10W04 L=201)   373    135        0 (1021/1058-1121/1157) -69.4 W02-W06 N06-N14
      7 1659  908 (S17W36 L=232)   270     60        1 (1645/ 874-1676/ 937)  45.0 W34-W37 S18-S15
      8 1351  803 (S14W13 L=209)   253     67        1 (1310/ 785-1379/ 822) -11.3 W10-W15 S14-S12
      9 1262  705 (S17W05 L=202)   562    181        0 (1224/ 633-1306/ 765)  40.6 W02-W09 S21-S14
     10  245  589 (S02E69 L=127)  3164    341       10 ( 173/ 450- 353/ 704) -73.6 E76-E60 S12-N05
     11  399  432 (S14E62 L=135)  2522    215        6 ( 354/ 348- 433/ 545)  45.0 E71-E54 S20-S06
     12  778  338 (S28E37 L=159)  2192    399        4 ( 735/ 165- 825/ 509)  37.7 E56-E25 S42-S17
     13 1613  450 (S47W28 L=224)   952     73        0 (1566/ 428-1660/ 475) -11.3 W22-W34 S49-S44
     14  508  419 (S17E52 L=144)   766    125        3 ( 463/ 379- 567/ 461) -63.4 E54-E47 S19-S13
     15  482  310 (S24E65 L=131)   678     84        2 ( 452/ 281- 517/ 330) -90.0 E68-E59 S26-S22
  

    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