Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  390 1642 (N34E67 L=306)   800     60        2 ( 377/1607- 412/1677) -22.6 E75-E61 N31-N36
      2  641 1588 (N33E36 L=337)  1561    299        4 ( 541/1461- 720/1666) -26.6 E49-E25 N25-N37
      3  498 1629 (N35E52 L=321)   639     60        2 ( 468/1591- 530/1654) -39.8 E56-E48 N31-N36
      4  430 1476 (N23E49 L=324)   379     59        0 ( 417/1438- 445/1504) -68.2 E51-E47 N20-N25
      5  491 1426 (N21E42 L=331)   514    188        0 ( 425/1378- 535/1504)  71.6 E46-E39 N17-N26
      6 1067 1399 (N25E01 L= 12)   412    117        0 (1042/1346-1106/1443)  74.1 E02-W01 N21-N28
      7  906 1340 (N20E11 L=  3)   503    212        0 ( 794/1307- 990/1357)  -4.1 E18-E04 N18-N20
      8 1319 1218 (N16W17 L= 30)   255     83        1 (1277/1202-1366/1239)  18.4 W14-W20 N14-N17
      9  959 1058 (N03E04 L=  9)   197     52        1 ( 929/1046- 989/1070)  14.0 E06-E02 N01-N03
     10 1269 1012 (N03W15 L= 28)   610    181        1 (1207/ 960-1354/1043)  12.5 W11-W20 N00-N04
     11  806 1023 (S01E13 L=360)   207     84        0 ( 767/1011- 851/1041)   0.0 E15-E10 S01-N00
     12  156  928 (S13E67 L=306)  1953    170        4 ( 120/ 865- 185/ 994) -49.4 E74-E62 S17-S09
     13 1382  904 (S03W23 L= 36)   203     29        0 (1359/ 883-1406/ 924) -33.7 W21-W24 S03-S01
     14 1600  680 (S15W43 L= 56)  1687    276        2 (1499/ 597-1709/ 766)  42.7 W36-W50 S20-S08
     15  337  637 (S30E50 L=323)   748    131        1 ( 296/ 592- 393/ 670)  24.8 E56-E43 S33-S27
  

    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