Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  389 1625 (N22E67 L=197)   575    102        1 ( 371/1597- 422/1662) -18.4 E73-E61 N20-N24
      2  343 1476 (N12E60 L=204)  1353    150        6 ( 315/1418- 388/1545) -71.6 E66-E53 N07-N16
      3  385 1391 (N07E51 L=213)   412    147        0 ( 355/1341- 430/1452)  69.4 E52-E49 N03-N11
      4 1600 1313 (N28W33 L=297)   796    146        4 (1555/1261-1636/1363) -32.0 W28-W36 N25-N31
      5 1873  919 (N10W65 L=329)  1052    111        3 (1846/ 885-1905/ 960)  63.4 W61-W71 N07-N13
      6 1730  886 (N05W50 L=314)   642    114        1 (1692/ 858-1779/ 923)  33.7 W45-W54 N02-N07
      7  520  847 (S22E29 L=235)   314    137        0 ( 479/ 807- 551/ 911)  63.4 E31-E27 S25-S17
      8  251  784 (S32E55 L=209)   372     59        0 ( 233/ 761- 275/ 811) -26.6 E57-E52 S33-S30
      9  996  699 (S22W05 L=269)   334     78        1 ( 956/ 674-1037/ 720)  31.0 W02-W07 S23-S19
     10  672  587 (S36E15 L=249)   656    171        0 ( 610/ 552- 751/ 635)  -5.2 E19-E08 S37-S33
     11  799  586 (S33E05 L=259)   222     52        1 ( 781/ 565- 831/ 610)  33.7 E06-E02 S34-S31
     12  275  579 (S46E61 L=203)   911    107        1 ( 225/ 560- 329/ 599)   8.1 E78-E50 S48-S44
     13 1627  434 (S23W63 L=327)  1997    274        8 (1560/ 353-1707/ 542) -74.1 W57-W68 S29-S15
     14 1537  478 (S23W50 L=314)   631    122        1 (1507/ 422-1570/ 524) -74.1 W48-W52 S26-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