Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1528 1593 (N31W41 L=193)  1428    302        8 (1409/1546-1615/1630) -18.4 W32-W49 N27-N34
      2  477 1564 (N36E38 L=114)   913    275        4 ( 368/1538- 568/1593)   0.0 E48-E30 N34-N38
      3 1699 1396 (N17W50 L=202)   518    107        1 (1673/1344-1724/1447) -81.9 W47-W51 N13-N20
      4 1841 1261 (N08W61 L=213)   513    136        1 (1813/1222-1869/1301)  29.7 W57-W65 N06-N10
      5  457 1235 (N14E36 L=117)   328     96        2 ( 419/1208- 496/1254) -18.4 E38-E32 N12-N15
      6  767 1129 (N06E15 L=137)   325     86        1 ( 740/1106- 803/1175) -76.0 E16-E12 N04-N08
      7 1860  937 (S11W60 L=212)  1925    348        8 (1808/ 790-1906/1065)  69.4 W54-W66 S19-S03
      8 1312  912 (S10W17 L=169)   595    205        4 (1238/ 819-1355/ 997) -59.7 W12-W19 S16-S04
      9 1918  933 (S11W68 L=220)   928    207        3 (1883/ 901-1953/ 974) -90.0 W62-W73 S13-S08
     10  223  812 (S09E59 L= 93)   425     92        1 ( 201/ 783- 249/ 835)  31.0 E61-E55 S10-S07
     11 1647  783 (S20W41 L=193)   331     70        2 (1618/ 757-1675/ 816) -76.0 W38-W43 S21-S17
     12  298  623 (S21E56 L= 96)  1361    252        6 ( 263/ 527- 329/ 729)  85.6 E59-E52 S27-S14
     13 1600  681 (S26W38 L=190)   616    107        3 (1559/ 642-1638/ 718)   9.5 W34-W40 S28-S23
     14  211  638 (S19E65 L= 87)  1176    243        2 ( 164/ 596- 269/ 701) -33.7 E70-E59 S22-S15
  

    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