Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  651 1759 (N36E42 L=276)   918    201        1 ( 598/1717- 698/1793) -22.6 E48-E36 N33-N38
      2  296 1514 (N16E61 L=257)  3886    691       10 ( 202/1427- 366/1658)  76.0 E72-E54 N09-N26
      3  908 1514 (N22E15 L=303)   645    160        2 ( 887/1450- 927/1601) -68.2 E17-E12 N17-N27
      4  749 1562 (N23E26 L=292)   600    167        0 ( 692/1501- 798/1594) -24.0 E30-E21 N19-N24
      5  534 1522 (N18E40 L=278)  1146    207        3 ( 490/1443- 611/1590)  68.2 E42-E36 N12-N22
      6  814 1390 (N13E18 L=300)   576    177        1 ( 743/1337- 898/1413)  32.0 E21-E13 N08-N14
      7  386 1327 (N04E46 L=272)   538    129        1 ( 371/1256- 410/1386) -74.1 E47-E44 N00-N07
      8 1275 1135 (N04W13 L=331)   243     93        1 (1244/1104-1311/1163)  36.9 W11-W15 N01-N05
      9  206 1055 (S13E58 L=260)  3049    597        6 (  79/ 994- 367/1132)  12.3 E75-E43 S16-S07
     10 1564  912 (S04W35 L=353)   269     79        0 (1529/ 894-1595/ 931) -11.3 W32-W37 S04-S03
     11  750  825 (S22E14 L=304)   927    227        1 ( 633/ 790- 848/ 879)  28.3 E21-E08 S24-S17
     12  445  681 (S34E36 L=282)   416     93        0 ( 424/ 622- 463/ 724) -81.9 E37-E35 S38-S31
     13 1167  544 (S33W18 L=336)   391     85        2 (1133/ 511-1197/ 577)  -9.5 W14-W20 S35-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