Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  863 1744 (N32E35 L= 31)   324    117        0 ( 837/1708- 882/1784) -35.5 E38-E31 N29-N34
      2  462 1668 (N17E59 L=  7)   418     82        0 ( 436/1647- 485/1688)  -8.1 E62-E55 N15-N18
      3  408 1605 (N12E60 L=  6)   516     77        2 ( 388/1577- 430/1637) -63.4 E62-E57 N10-N14
      4 1418 1301 (N20W15 L= 81)   873    263        0 (1395/1169-1442/1418) -63.4 W11-W19 N13-N28
      5 1722 1285 (N30W37 L=103)   501     58        0 (1690/1256-1744/1310)   0.0 W34-W39 N28-N31
      6 1594 1151 (N17W30 L= 96)   789    185        1 (1563/1053-1616/1242) -48.4 W25-W33 N12-N21
      7  257  931 (S31E50 L= 16)  1561    439        2 ( 136/ 910- 373/ 959)   9.9 E62-E39 S33-S27
      8 1430  840 (S05W28 L= 94)   209     23        0 (1409/ 817-1451/ 860)  90.0 W27-W29 S06-S03
      9  863  809 (S23E03 L= 63)   343     78        0 ( 822/ 778- 907/ 838)  59.0 E05-E01 S25-S20
     10  525  695 (S39E24 L= 42)  1007    219        1 ( 435/ 667- 612/ 740)  21.8 E31-E16 S42-S34
     11 1070  526 (S33W19 L= 85)  1197    204        2 ( 981/ 459-1167/ 603)  74.1 W15-W22 S39-S25
     12 1409  523 (S22W40 L=106)   867    161        1 (1327/ 480-1477/ 591)  68.2 W36-W42 S26-S16
     13 1541  450 (S21W53 L=119)   406     96        0 (1492/ 418-1590/ 481)  66.8 W51-W55 S24-S17
     14 1391  381 (S30W47 L=113)   566    110        0 (1349/ 365-1444/ 399)  23.2 W43-W50 S31-S28
  

    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