Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  297 1567 (N09E70 L=259)  1986    303        5 ( 263/1528- 336/1620)  63.4 E76-E64 N06-N13
      2  699 1448 (N09E30 L=299)   455    178        0 ( 657/1391- 736/1518) -33.7 E35-E26 N06-N12
      3  499 1235 (S07E37 L=293)   249     79        0 ( 471/1208- 536/1253)  45.0 E38-E34 S09-S05
      4  605 1171 (S09E28 L=301)   264     55        0 ( 589/1143- 625/1198)  76.0 E29-E26 S10-S06
      5  146 1176 (S16E68 L=262)   613    134        0 ( 117/1160- 173/1190)  -7.1 E72-E64 S17-S15
      6  341 1081 (S19E45 L=284)   891    294        0 ( 246/1023- 428/1145) -10.0 E54-E37 S21-S16
      7  162 1004 (S26E61 L=268)  1233    351        1 (  91/ 938- 219/1075)  33.7 E68-E56 S30-S21
      8  551  980 (S21E27 L=302)   704    189        0 ( 462/ 944- 627/1008)  22.6 E33-E21 S24-S18
      9 1816  952 (N12W53 L= 22)   340     93        0 (1801/ 912-1826/1003) -59.0 W51-W55 N09-N14
     10  850  922 (S17E07 L=322)   341    125        1 ( 784/ 874- 893/ 975) -18.4 E12-E03 S19-S15
     11  234  856 (S35E52 L=277)   335     88        1 ( 209/ 840- 266/ 874)   9.5 E54-E48 S35-S32
     12  427  777 (S36E34 L=295)   350     90        0 ( 384/ 753- 476/ 800)   0.0 E37-E29 S36-S34
     13  432  572 (S50E33 L=296)   917    239        1 ( 369/ 521- 482/ 653)  42.7 E42-E28 S55-S42
     14 1417  415 (S29W46 L= 15)  3878    883        5 (1135/ 359-1731/ 471)  22.0 W25-W72 S35-S16
  

    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