Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1465 1443 (N33W27 L= 34)  1252    292        2 (1413/1326-1557/1542) -58.4 W22-W33 N26-N40
      2  537 1433 (N20E40 L=328)   417     90        0 ( 497/1413- 583/1453)  -7.1 E43-E35 N18-N20
      3  631 1317 (N14E29 L=338)   224     51        0 ( 608/1303- 659/1336)  14.0 E31-E27 N12-N14
      4 1374 1278 (N21W20 L= 27)   416    121        0 (1328/1242-1418/1331) -33.7 W16-W22 N18-N23
      5 1728 1167 (N18W48 L= 55)   444     95        1 (1694/1148-1768/1202) -15.9 W45-W52 N16-N19
      6  380  938 (S12E43 L=325)   323     92        0 ( 358/ 897- 408/ 974)  51.3 E44-E40 S15-S09
      7  923  808 (S14E04 L=  3)   344    166        0 ( 875/ 750- 967/ 874)  63.4 E06-E01 S17-S09
      8  441  834 (S18E37 L=330)   327     82        2 ( 409/ 812- 483/ 865) -31.0 E39-E33 S19-S16
      9  530  625 (S31E31 L=336)  2236    397        4 ( 475/ 452- 615/ 793) -82.9 E34-E23 S43-S19
     10 1226  681 (S18W17 L= 24)   316     92        1 (1192/ 652-1271/ 711)  45.0 W15-W19 S19-S15
     11 1118  541 (S28W13 L= 20)   819    189        1 (1023/ 514-1190/ 587)  28.6 W06-W17 S31-S24
     12 1312  527 (S27W27 L= 34)   416     98        1 (1267/ 495-1356/ 551)  38.7 W24-W29 S29-S24
     13 1522  468 (S28W47 L= 54)  2284    370        3 (1352/ 426-1694/ 500)  12.3 W33-W65 S33-S24
  

    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