Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1225 1858 (N50W50 L=117)   479     39        0 (1203/1838-1249/1876)  12.5 W45-W54 N49-N52
      2 1477 1490 (N19W40 L=107)  1631    384        3 (1295/1438-1610/1586)  -1.9 W26-W56 N16-N22
      3  962 1522 (N33W08 L= 75)  1887    406        3 ( 802/1446-1140/1577) -32.3 E03-W16 N24-N38
      4  347 1414 (N40E44 L= 23)  2576    306        6 ( 258/1309- 413/1553) -33.3 E68-E36 N31-N52
      5  377 1084 (N18E41 L= 27)  1415    246        3 ( 323/ 994- 432/1184) -71.6 E44-E36 N12-N24
      6  119 1047 (N20E71 L=356)  4012    241       10 (  84/ 943- 162/1155)  90.0 E80-E64 N14-N27
      7 1288  841 (S13W12 L= 79)   479    163        1 (1261/ 765-1317/ 920)  58.0 W09-W14 S17-S09
      8 1752  799 (S27W46 L=113)   441     82        1 (1721/ 769-1778/ 823) -39.8 W42-W48 S29-S24
      9 1000  689 (S16E08 L= 59)   531    160        0 ( 943/ 638-1071/ 742) -58.0 E10-E05 S20-S12
     10 1651  640 (S35W36 L=103)   293     56        0 (1617/ 627-1679/ 654) -15.9 W32-W39 S36-S33
     11  454  494 (S17E52 L= 16)   555    104        2 ( 427/ 466- 495/ 535) -68.2 E53-E48 S19-S14
     12  636  411 (S26E42 L= 25)   486    108        1 ( 604/ 370- 657/ 469)  36.9 E46-E38 S28-S22
     13  814  396 (S31E30 L= 37)   262     68        0 ( 782/ 380- 851/ 411)   0.0 E32-E26 S31-S30
  

    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